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Delphi 软件 开发 平台 以 其 丰富 的 环境 、 友 好 的 界面 、 高 速 的 编译 器 、 强 大 的 数据 库 支持 而 
备 受 广大 软件 开发 人 员 的 欢迎 和 喜爱 。 为 了 帮助 广大 学 生 更 好 地 掌握 最 新 Delphi 编程 技术 ， 
特 编写 了 本 书 。 本 书 于 2005 年 出 版 第 1 版 ,2008 年 出 版 第 2 版 , 随 着 Delphi 开发 平台 的 进 一 
步 升级 ,在 第 2 版 的 基础 上 ,本 版 在 Delphi XE8 新 的 开发 平台 上 进行 修订 ,增加 了 基于 
Android 应 用 程序 设计 和 基于 iOS 应 用 程序 设计 ,对 章节 进行 了 修订 ,更 符合 教学 的 需要 , 精 
选 了 相关 例题 ,学生 学 习 更 有 针对 性 和 可 操作 性 。 

本 书 是 Delphi XE8 的 入 门 教材 ,内 容 浅 显 易 懂 。 书 中 精心 挑选 每 一 个 例题 ,每 个 例题 均 
分 为 界面 设计 、 属 性 设置 .程序 设计 和 程序 分 析 等 栏目 ,内 容 新 颖 ,结构 清晰 。 全 书 共 分 为 
14 章 。 

第 1 章 介绍 Delphi XE8 的 基本 知识 以 及 使 用 Delphi XE8 进行 程序 设计 的 一 些 基 础 知 
识 。 本 章 的 重点 是 Delphi XE8 的 开发 环境 和 开发 方法 。 

第 2 章 介 绍 Delphi 的 基本 语法 ,主要 包括 基本 词法 .基本 数据 类 型 .常量 与 变量 .运算 符 
与 表达 式 、 常 用 函数 与 过 程 、 语 句 等 ,以 及 程序 的 异常 处 理 和 程序 调试 方法 。 

第 3 章 介 绍 Delphi 常用 组 件 的 使 用 方法 及 特点 ,并 且 通 过 一 些 简明 的 示例 对 它们 进行 了 
更 直观 的 介绍 。 

第 4 章 介绍 过 程 与 函数 ,主要 介绍 结构 化 程序 设计 中 过 程 的 分 类 ,定义 及 应 用 ,函数 的 定 
义 、 分 类 以 及 内 部 函数 的 使 用 方法 ,参数 的 分 类 及 传递 方式 。 

第 5 章 介 绍 高 级 数据 类 型 ,主要 包括 枚 举 、 子 界 与 集合 类 型 .数组 与 记录 类 型 .指针 类 
型 等 。 

第 6 章 介 绍 键盘 和 鼠标 的 响应 事件 和 文件 的 编程 。 

第 7 章 介 绍 与 多 媒体 方面 相关 的 编程 ,包括 图 形 图 像 处 理 的 组 件 的 使 用 方法 ,音频 与 视频 
处 理 技 术 。 

第 8 章 介绍 Windows 高 级 编程 技术 ,重点 介绍 动态 链接 库 和 ActiveX 技术 。 

第 9 章 介 绍 Delphi XE8 的 数据 库 编 程 。 在 初步 了 解数 据 库 简单 理论 的 基础 上 ,详细 介绍 
了 Delphi 中 数据 访问 组 件 及 数据 感知 组 件 的 常用 属性 与 方法 .ADO 数据 访问 技术 ,SQL 编程 
的 相关 知识 等 。 

第 10 童 介绍 Delphi 串 行 通信 编程 ,包括 RS232 串 行 通信 的 基本 原理 ,常用 的 串 行 通信 的 
API 函数 ,MSComm 的 使 用 方法 。 

第 11 章 介绍 网 络 编程 的 基本 方法 及 Windows Sockets 的 一 些 概念 ,重点 介绍 了 几 个 重要 
的 网 络 组 件 , 最 后 举例 说 明了 网 络 编程 的 应 用 。 
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第 12 童 介绍 多 线程 的 基本 概念 及 编程 的 一 般 方法 。 

第 13 章 介绍 基于 Android 平台 下 的 应 用 程序 设计 。 主 要 包括 Android 平台 程序 开发 的 
一 般 步骤 的 简单 App 的 实现 ,数据 库 编 程 等 。 

第 14 章 介绍 基于 iOS 平台 下 的 应 用 程序 设计 。 主 要 包括 进行 iOS App 开发 的 准备 工 
作 ,iOS App 开发 中 的 基本 UI 元 素 的 使 用 及 iOS 设备 功能 的 编程 。 

本 书 由 杨 长 春 、 刘 俊 、 方 线 \ 石 林 、 徐 守 坤 、 朱 正 伟 、 刘 江 惠 、 丁 宪 成 等 策划 ,第 1、3、5 章 由 杨 
长 春 、 刘 俊 编写 ,第 2、4 章 由 朱 正 伟 、 刘 江 惠 编写 ,第 6 一 9 章 由 杨 长 春 、 谢 惠 敏 编 写 ,第 10 章 由 
方 双 、 丁 宪 成 编写 ,第 11、13 章 由 石林 编写 ,第 12 章 由 刘 俊 、 李 俊 华 编写 ,第 14 章 由 方 骏 、 谢 惠 
敏 编写 ,全书 由 杨 长 春 、. 刘 俊 统 稿 , 李 俊 华 . 谢 惠 敏 等 参加 了 统 稿 工作 , 薛 恒 新 教授 审阅 了 全 部 
书稿 ,提出 了 许多 宝贵 的 意见 ,在 此 一 并 表示 感谢 。 

限于 编者 水 平 , 书 中 难免 有 朴 漏 与 不 足 之 处 , 敬 请 读者 批评 指正 。 
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Delphi XE8 基础 知识 


Delphi XE8 是 Embarcadero( 英 巴 卡 迪 诺 ) 公 司 开发 的 可 视 化 软件 开发 工具 。“ 聪 明 的 程 
序 员 用 Delphi”, 这 句 话 是 对 Delphi 最 经 典 、 最 实在 的 描述 。Delphi XE8 被 称 为 第 四 代 编 程 语 
言 , 它 具有 简单 高效 .功能 强大 的 特点 ,一直 是 程序 员 至 爱 的 编程 工具 。Delphi XE8 使 用 了 
Microsoft Windows 图 形 用 户 界面 的 许多 先进 特性 和 设计 思想 ,采用 了 可 重复 利用 的 完整 的 
面向 对 象 的 程序 语言 (Object Oriented Language) ,是 当今 最 快 的 编辑 器 ,拥有 领先 的 数据 库 
技术 。 对 于 广大 的 程序 开发 人 员 而 言 , 使 用 Delphi XE8 开发 应 用 软件 ,无 疑 会 极 大 地 提高 编 
程 效率 。 


1.1 Delphi XE3 简介 


Delphi 到 现在 已 经 历 了 二 十 多 年 的 发 展 历 程 ,每 一 代 产 品 都 是 伴随 Windows 操作 平台 的 
升级 而 升级 。 本 书 将 以 版 本 Delphi XE8 为 开发 平台 阐述 。 

1. Delphi 的 发 展 历程 

1995 年 ,Borland 发 布 Delphil.0, 支 持 16 位 Windows 开发 ,是 基于 框架 (VCL) 的 ,可 拖 
蝶 、 可 视 化 的 开发 环境 。 

1996 年 ,Borland 发 布 Delphi 2.0, 以 32 位 编译 器 为 核心 ,支持 C/S 数据 库 开发 。 

1997 年 ,Borland 发 布 Delphi 3.0 语法 ,加 入 接口 (Interface) 的 机 制 。IDE 首次 提供 了 
Code Insight, 

1998 年 ,Borland 更 名 Inprise, 发 布 Delphi 4.0 语法 : 加 入 动态 数组 和 方法 覆盖 等 支持 。 
IDE 增强 调试 能 力 ,提供 代码 模板 。 

1999 年 , Inprise 发 布 Delphi 5. 0, 增 强 了 IDE 和 调试 器 ,提供 了 TeamSource, 简化 
Internet 的 开发 ,增强 数据 库 支持 。 

2001 年 ,Inprise 重新 更 名 Borland, 发 布 Delphi 6. 0 ,提供 了 Web Service, 跨 平台 的 Kylix 
1.0 和 CLX。 

2002 年 , Borland 发 布 Delphi 7. 0, 提供 了 . NET 的 过 渡 , 增 强 的 Internet 开发 
(IntraWeb) ,完善 数据 库 支持 ,增加 了 Indy 网 路 元 件 和 Rave Report 资料 库 报表 ,并 且 支 持 
UML 及 XP 的 程式 制作 。Delphi 7 Studio 于 2002 年 夏季 推出 ,有 4 个 版 本 : 体系 版 
(Architect) ,企业 版 (Enterprise) ,专业 版 (Professional) 和 个 人 版 (Personal)。 体 系 版 .企业 版 
和 专业 版 都 配备 Delphi 语言 的 Borland Kylix 3 完整 版 。 

2003 年 ,Borland 发 布 Delphi 8. 0 ,单纯 的 for . NET 版 本 .拥有 CC# 的 能 力 . 保 留 了 Delphi 
的 易 用 性 (业内 视 为 一 个 过 渡 版 本 ) 。 

2004 年 ,Borland 发 布 Delphi 9.0 ,正式 名 称 为 Delphi 2005。 其 语法 加 入 了 inline 及 for 
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in loop 等 功能 ,IDE 把 Borland Delphi. NET、Borland Delphi Win32、Borland C# 、Enterprise 
Core Objects 等 环境 和 功能 集成 为 一 个 开发 工具 ,因此 可 以 在 Win32 和 . NET 开发 环境 中 切 
换 或 同时 进行 。 

2005 年 , Borland 发 布 Delphi 10. 0 ,发 布 名 称 为 Borland Developer Studio(BDS) 2006 。 
集成 Ct+Builder; ECO(Enterprise Core Objects) 升 级 到 ECO III; 集成 Together for Delphi， 
可 以 在 同一 个 IDE 中 进行 UML 开发 ; QA Audits 和 QA Metrics 可 以 快速 地 把 握 专案 的 设 
计 和 代码 的 质量 。 

2006 年 , Borland 将 BDS 2006 拆 分 成 几 个 独立 的 版 本 (Delphi for Win32、Delphi for 
.NET、C#、C++Builder) ,而 且 不 能 同时 安装 两 个 不 同 的 版 本 。 由 于 Borland 的 IDE 生产 部 
分 独立 成 为 一 家 名 为 CodeGear 的 公司 ,所 以 这 个 版 本 是 以 Borland 名 义 推 出 的 最 后 一 个 
版 本 。 

2007 年 ,CodeGear 发 布 Delphi 11.0, 正 式 名 称 为 CodeGear Delphi - Delphi 2007 。 

2008 年 ,Borland 正式 宣布 将 CodeGear 子 公司 出 售 给 Embarcadero( 英 巴 卡 迪 诺 ) 技 术 
公司 。 

2008 年 ,Embarcadero 发 布 CodeGear Delphi 2009 Pre-release 版 。 

2009 年 ,Embarcadero 发 布 CodeGear. RAD. Studio. 2010 版 。 

2010 年 ,Embarcadero 发 布 Delphi XE。 

2011 年 ,Embarcadero 发 布 Delphi XE2 RTM。 

2012 年 ,Embarcadero 发 布 Delphi XE3。 

2013 年 4 月 ,Embarcadero 发 布 Delphi XE4。 

2013 年 9 月 ,Embarcadero 发 布 Delphi XE5。 

2014 年 5 月 ,Embarcadero 发 布 Delphi XE6。 

2014 年 9 月 ,Embarcadero 发 布 Delphi XE7。 

2015 年 5 月 ,Embarcadero 发 布 Delphi XE8。 

Delphi XE8 是 一 套 在 Windows 平台 开发 移动 终端 应 用 程序 的 开发 工具 。 这 次 Delphi 主 
要 版 本 更 新 ,能 让 Delphi/Object Pascal 与 C++ 的 软件 开发 者 ,将 既 有 的 Windows VCL 应 用 
程序 ,扩展 到 移动 终端 .云端 及 物 联 网 的 应 用 。 

Delphi XE8 具有 路 平台 与 连接 各 种 行动 平台 Apps 的 特性 ,包含 Windows、Android、 
iOS、OS X、 物 联网 终端 .中 间 件 、 云 端 应 用 及 企业 服务 。Delphi XE8 新 增加 的 iOS 64 位 及 
Apple Universal Apps 功能 ,能 让 软件 开发 部 门 ,很 容易 加 入 物 联网 应 用 。 例 如 ,Beacon 侦 测 
终端 的 应 用 ,能 提升 应 用 软件 使 用 效益 及 软件 开发 者 生产 力 , 让 用 户 更 加 了 解 使 用 者 购买 行 
为 。 新 增加 的 GetIt Package Manager 功能 ,提供 了 在 IDE 开发 环境 简易 地 管理 程序 代码 与 
组 件 的 功能 。 

各 行 各 业 的 客户 正 开发 或 维护 成 千 上 万 的 应 用 程序 。 今 天 ,他 们 被 要 求 去 开发 延伸 至 移 
动 终端 .云端 服务 及 物 联 网 的 应 用 ,并 提升 用 户 更 多 的 使 用 体验 。Embarcadero 公司 资深 副 总 
裁 Michael Swindell 说 :“Delphi XE8 产品 提供 了 软件 开发 部 门 所 需 的 功能 ,就 是 要 让 他 们 的 
客户 有 更 多 的 使 用 体验 。 物 联网 应 用 就 是 一 个 特殊 例子 ,客户 有 更 好 的 使 用 体验 。 尤 其 是 复 
杂 的 物 联 网 应 用 ,Delphi XE8 让 他 的 应 用 开发 变 得 更 为 简易 。 然 而 对 大 多 数 软 件 开发 者 来 
说 , 物 联网 应 用 是 复杂 的 与 难以 达成 的 。 今 年 开始 ,使 用 Delphi XE8 产品 ,Embarcadero 公司 
会 领先 同行 站 在 最 前 端 , 帮 助 软件 开发 者 快速 简易 地 整合 物 联网 应 用 。” 
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2. Delphi XE8 全 新 功能 

(1) 支持 iOS 64 位 及 Apple Universal App。Delphi XE8 的 iOS 64 位 Object Pascal 及 
C++Compiler 包含 linkers 及 tools, 能 让 开发 人 员 编 译 iOS 64 位 的 程序 代码 ,Delphi XE8 支持 
Apple Universal Apps 并 同时 提供 32 位 及 64 位 程序 代码 ,以 及 多 样 的 iOS 内 建 控制 ,让 开发 
人 员 能 推出 具有 极 佳 用 户 体验 的 应 用 程序 。 

(2) 多 平台 终端 的 画面 预览 。Delphi XE8 能 快速 建立 多 平台 终端 应 用 程序 ,利用 多 平台 
终端 画面 预览 功能 ,可 以 让 开发 人 员 在 各 种 平台 上 看 到 呈现 的 使 用 者 画面 ,让 开发 人 员 很 容易 
就 可 看 出 哪里 需要 再 修正 。 多 平台 终端 画面 预览 功能 支持 桌面 计算 机 、 平 板 计 算 机 、 智 能 型 手 
机 、 智 能 型 手表 等 各 种 终端 。 

(3) Beacon 侦 测 终端 功能 。Delphi XE8 新 增 的 Beacon 组 件 功能 ,能 让 开发 人 员 在 应 用 
程序 中 非常 容易 地 增加 移动 终端 接近 与 位 置 辨识 的 功能 。 

(4) AppAnalytics。 为 了 能 了 解 使 用 者 购买 行为 .AppAnalytics 可 以 帮助 用 户 分 析 使 用 
者 喜欢 浏览 哪些 商品 。AppAnalytics 是 一 个 使 用 者 付费 的 服务 , 它 支持 VCL 及 
FireMonkey, 能 能 入 在 Windows、OS X 、Android 及 iOS 应 用 程序 中 。 

(5) GetIt Package Manager。GetIt Package Manager 包含 多 平台 终端 与 VCL 的 Source 
Code Library 与 组 件 ,让 用 户 很 容易 地 从 Embarcadero GetIt Server 发 觉 . 下 载 与 更 新 程序 代 
码 与 组 件 ,而 且 安 装 非常 简易 。 

(6) 强化 的 Enterprise Mobility Services (EMS)。EMS 是 一 个 安全 的 Middleware 
Server, 专 为 移动 终端 连接 企业 数据 库 的 解决 方案 ,在 Delphi XE8 版 本 增加 了 Push 
Notification Server 的 功能 。 让 开发 人 员 更 容易 安装 且 安 全 地 连接 Oracle、 SQL Server、 
Informix、DB2、PostgreSQL、MySQL 等 企业 数据 库 。 

(7) Delphi XE8 版 本 还 增加 了 提高 Object Pascal 程序 开发 效率 的 软件 工具 Castalia。 通 
过 Code Refactoring, Project Statistics, Code Analysis 及 Time-saving Code Editor 
Shortcuts,Castalia 让 程序 开发 效率 大 幅 提 升 。 

有 了 Delphi XE8, 可 以 随手 机 、 云 、 穿 戴 设备 和 物 联 网 扩展 VCL 和 FireMonkey 应 用 程 
序 , 全 新 的 多 设备 预览 提供 并 列 的 视图 ,可 在 给 定 的 平台 上 比较 不 同 外 观 规格 的 应 用 程序 UI， 
这 全 都 可 在 一 个 窗口 中 查看 ; 还 可 以 使 用 全 新 的 GetIt Package Manager 浏览 .下 载 和 从 IDE 
集成 新 的 组 件 ,利用 对 iBeacons 和 AltBeacons 的 支持 ,轻松 为 应 用 程序 增添 邻近 感知 功能 。 
如 果 想 了 解 应 用 程序 如 何 进行 API 调用 ,AppAnalytics 可 让 开发 人 员 在 视觉 上 清楚 了 解 用 户 
如 何 与 使 用 Delphi XE8 生成 的 应 用 程序 互动 。 

Delphi XE8 是 完整 的 软件 开发 解决 方案 ,可 让 开发 人 员 快 速 设 计 、 编 码 以 及 跨 Windows、 
Mac.iOS、Android 和 物 联网 延伸 “互联 的 ”应 用 程序 ,生成 具有 产业 实力 和 业务 上 立即 可 用 的 
解决 方案 ,结合 多 种 原生 客户 端 平台 ,移动 扩展 、 智 能 设备 、 云 服务 、 企 业 和 嵌入 式 数据 ,消除 需 
要 多 个 团队 和 多 个 基本 代码 的 压力 ,利用 一 个 基本 代码 快速 创建 Windows、OS X 和 移动 设备 
适用 的 本 机 应 用 程序 。 

3. Delphi XE8 新 特点 

1) 工作 效率 比 以 往 更 高 

Delphi XE8 的 新 增 功能 可 让 开发 人 员 拥 有 比 以 往 更 高 的 工作 效率 。 开 发 人 员 可 以 使 用 
全 新 的 GetIt Package Manager 浏览 下载 和 从 IDE 集成 新 的 组 件 。 

新 的 程序 代码 增强 功能 包含 重 构 程 序 代 码 , 实 时 语法 检查 ，Metrics, 高 亮度 程序 代码 结 
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构 ,高 亮度 程序 代码 流程 ,以 及 程序 代码 分 析 。 这 些 都 让 程序 员 拥 有 更 高 的 生产 力 并 且 能 帮助 
了 解 团队 生产 力 和 程序 代码 质量 。 

2) 利用 FireUI 对 进程 进行 革新 

Delphi XE8 和 FireUI 多 设备 设计 工具 为 本 机 编译 的 应 用 程序 ,提供 真正 的 单一 源 代 码 
解决 方案 。 大 多 数 支持 本 机 跨 平台 开发 的 厂商 均 需 要 在 每 个 平台 上 撰写 个 别 的 用 户 界面 , 生 
成 可 跨 手机 平板 电脑 和 台式 计算 机 系统 等 多 种 外 形 规格 工作 的 通用 UI。 大 多 数 的 移动 开发 
解决 方案 不 支持 创建 Windows 和 OS X 适用 的 PC 应 用 程序 。 

Delphi XE8 则 继续 增强 使 用 FireUI 生成 优良 应 用 程序 的 流程 ,全 新 的 多 设备 预览 提供 
并 列 的 视图 ,可 在 给 定 的 平台 上 比较 不 同 外 观 规格 的 应 用 程序 U1, 这 全 都 可 在 一 个 窗口 中 
查看 。 

3) 向 移动 、 云 和 物 联网 快速 扩展 VCL 应 用 程序 

现 有 企业 应 用 程序 的 功能 可 以 轻松 扩展 为 集成 移动 设备 和 提供 新 奇 的 解决 方法 的 全 新 物 
联网 小 工具 。 实 用 的 物 联网 和 企业 应 用 程序 不 再 是 独立 的 (与 单一 的 移动 应 用 程序 相连 ) ,但 
是 会 分 散 于 数 层 、 小 工具 和 设备 ,例如 ,Windows、Mac、iOS、Android 等 各 种 操作 系统 平台 ,以 
及 中 间 件 、 云 .服务 器 和 企业 服务 。 扩 展现 有 的 应 用 程序 对 于 企业 应 用 程序 开发 人 员 而 言 是 一 
大 胜利 ,因为 他 们 可 以 结合 物 联网 解决 方案 ,同时 维持 现 有 的 架构 ,充分 运用 现 有 的 大 型 基本 
代码 。 事 实 上 ,所 有 产业 都 能 立即 从 生成 互联 应 用 程序 受 惠 ,例如 零售 、 食 品 服务 、 卫 生 保 健 、 
制造 和 产业 自动 化 ; 应 用 范围 无 限制 。 

4) 利用 企业 移动 性 服务 (EMS) 提 高 移动 性 

企业 移动 性 服务 (EMS) 是 针对 今日 散发 的 互联 式 应 用 程序 的 新 解决 方案 ,提供 可 简单 部 
署 的 中 间 件 服务 器 ,其 中 托管 可 加 载 的 自 定 义 API 和 数据 访问 模块 。EMS 是 基于 开放 的 标 
准 技术 ,包括 REST HTTP 调用 和 JSON 数据 格式 ,提供 主要 的 SQL 数据 库 驱 动 程序 并 内 置 
加 密 的 SQL 数据 存储 。 企 业 移动 性 服务 具备 用 户 管理 和 验证 ,加 上 用 户 和 API 分 析 功 能 , 非 
常 适合 从 手机 和 桌面 应 用 程序 访问 企业 数据 库 时 所 需 的 安全 性 。EMS 是 一 中 间 件 解决 方案 ， 
无 状态 、 令 人 安心 .可 扩展 并 且 安 全 无 处 。 利 用 EMS 向 现 有 的 VCL 应 用 程序 打开 互联 设备 
的 新 世界 。EMS 已 经 过 改善 ,现在 具备 更 新 过 和 全 新 的 功能 。 对 于 iOS 和 Android 支持 推送 
通知 服务 ,可 让 开发 人 员 通 过 EMS 提供 事件 驱动 的 通知 至 用 户 的 设备 。 


1.2 Delphi XE8 集成 开发 环境 


集成 开发 环境 (Integrate Development Environment,IDE) 是 指 通过 单一 的 控制 面板 访问 
所 有 的 开发 工具 : 编辑 器 .调试 器 、 对 象 管理 器 、 编 译 器 、 实 时 分 析 器 、 图 形 信号 分 析 器 等 。 当 
前 流行 的 开发 工具 ,比如 Delphi、Visual Stutio 和 Eclipse 等 都 给 程序 员 提 供 了 集成 式 开发 环 
境 , 极 大 地 提高 了 程序 员 的 开发 效率 ,缩短 了 程序 的 开发 时 间 。 


1.2.1 认识 集成 开发 环境 


Delphi XE8 的 IDE( 如 图 1-1 所 示 ) 主 要 包括 主 窗口 (MainForm)、 欢 迎 画 面 (Welcome 
Page) \ 项 目 管 器 (Project Manager)、 项 目 树 状 架构 (Structure)、 对 象 观 察 器 (Object 


第 1 章 ”Delphi XE8 基础 知识 : 


Inspector)、 工 具 盘 (Tool Palette) .代码 编辑 器 (Code) 和 窗口 设计 器 (Design) 等 8 个 部 分 。 使 
用 IDE 可 以 很 方便 地 完成 创建 \ 调 试 和 修改 应 用 程序 等 各 种 操作 。 下 面 分 别 对 它们 进行 
介绍 。 
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人 


Studure 


Start Here Tutorials Code Samples 


纺 天 三 | 王 - 怕 | 四" 移 - 
Fle 


<No Prajed Group> 


Recent Projects 
reate a new Multi- Device Acplication (Delpn) 

闻 createa new project. 

的 open an eisting project 

险 open s somple project— 


@ etino sures vin Mp susio 
@ ree your trst Mn Deviee Nppiarion 
@ see Wats Newn ao sucio rea 


Fx 


图 1-1 Delphi XE8 的 IDE 


1. 主 窗口 
主 窗 口 ( 如 图 1-2 所 示 ) 可 以 认为 是 Delphi IDE 的 控制 核心 ,具有 其 他 Windows 应 用 程序 
主 窗口 所 具有 的 一 切 功 能 。 主 窗口 主要 包括 菜单 栏 . 工 具 栏 .标题 栏 三 个 部 分 。 


工具 栏 菜单 栏 标题 栏 


Refactor Project Run Component Tools Castaia Window Help GDefaukLayout -3m Dsearn 加 
DSNDR:gHrlT P| wndows -| -四 个 " 申 "ji@ 


图 1-2 Delphi XE8 的 主 窗口 


1) 菜单 栏 

与 其 他 Windows 应 用 程序 一 样 , Delphi XE8 的 主 菜单 包括 File (文件 )、Edit (编辑 )、 
Search( 查 找 )、View( 视 图 )、Refactor( 重 构 )、Project( 项 目 )、Run( 运 行 )、Component( 组 件 )、 
Tools( 工 具 )、Window (窗口 ) 和 Help( 帮 助 ) 等 11 个 下 拉 菜 单 , 可 以 通过 菜单 栏 创 建 . 打 开 或 
保存 文件 .调用 向 导 查看 其 他 窗口 以 及 修改 选项 等 。Delphi XE8 的 菜单 可 根据 当前 的 使 用 
状态 ,增加 或 取消 一 些 菜单 选项 。 用 户 还 可 通过 菜单 将 更 多 的 工具 添加 到 开发 环境 中 来 。 

2) 工具 栏 

工具 栏 (如 图 1-3 所 示 ) 上 的 每 个 按钮 实现 IDE 的 某 项 功能 .例如 ,打开 文件 或 创建 项 目 
等 。 工具 栏 上 的 按钮 都 提供 了 描述 该 按钮 功能 的 Tooltip。IDE 有 Debug (调试 工具 栏 )、 
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Desktops( 桌 面 工具 栏 )\Standard( 标 准 工 具 栏 )\View( 视 图 工具 栏 ) Internet( 因 特 网 工具 栏 ) 
和 Custom( 定 制 工 具 栏 )6 个 独立 的 工具 栏 。 图 1-3 展示 了 这 些 工 具 栏 上 默认 的 按钮 配置 。 在 
一 个 工具 栏 上 右 击 ,然后 在 弹出 的 快捷 菜单 中 选择 Customize( 定 制 ) 命 令 ,就 可 以 增加 或 去 掉 
一 些 按钮 。 


窗 
查 查 单 新 打 保全 打 添 移 行 运 暂 平 设 
看 看 元 建 开 存 部 开 加 除 不 行 停 ! 台 备 
单 窗 切 项 文 文保 项 文 文 调 程 运 选 选 向 向 
SE, 
DN TPR.9IDelTT P32 windows -| 避 中- 中- 


1-3 Delphi XE8 的 工具 栏 


IDE 工具 栏 的 定制 功能 并 不 仅 限于 配置 需要 显示 的 按钮 ,还 可 以 调整 工具 栏 和 菜单 栏 在 
主 窗口 中 的 位 置 。 要 做 到 这 一 点 ,只 需 拖 动工 具 栏 右边 凸 起 的 灰色 条 即 可 。 当 拖 动 时 ,如 果 鼠 
标 落 在 了 全 窗口 区 域 的 外 部 ,就 会 看 到 另 一 种 定制 形式 : 工具 栏 可 以 在 主 窗口 内 浮动 ,也 可 以 
停靠 在 它们 自己 的 工具 窗口 内 。 

2. 欢迎 画面 

欢迎 画面 (如 图 1-4 所 示 ) 中 的 内 容 会 根据 开发 人 员 的 设 定 来 显示 ,默认 显示 开发 人 员 最 
近 开 启 和 使 用 的 项 目 。 此 外 ,开发 人 员 也 可 以 在 其 中 建立 “最 爱 ”, 并 且 把 项 目 归 类 在 不 同 的 
“最 爱 ” 中 。 
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图 1-4 Delphi XE8 的 欢迎 画面 
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3. 项 目 管理 器 


项 目 管理 器 (如 图 1-5 所 示 ) 区 域 的 功能 是 指 管理 项 目 中 所 有 的 档案 ,由 ProjectGroup 构 
成 ,ProjectGroup 下 可 以 包含 多 个 项 目 , 本 ProjectGroup 中 只 有 一 个 项 目 ProjectGroupl, 下 


有 Build Configrations、Target Platforms 和 Unitl 。 
4. 项 目 树 状 架构 


项 目 树 状 架 构 ( 如 图 1-6 所 示 ) 区 域 的 功能 是 ,显示 目前 开启 的 窗 体 (Form) 中 组 件 的 树 状 


架构 ,并 在 Form 下 显示 所 属 的 相关 组 件 。 


projectl.dproj - Project Manager 里 甘 
癌 ~ 革 | 量 加 -| 


全 科研 | 反 - 区 | 加- 多 - 


Structure [3 
File 好 厨 | 全 二 
如 projectGroupl BD Forml 
十 国 Projectl.exe FS Buttonl 
取信 Build Configurations (Debug) - 同 Edma 
中 等 Target Platforms (Win32) 加 主旨 
由 加 Unitl.pas L 回 Labe2 


1-5 Delphi XE8 的 项 目 管理 界面 


5. 对 象 观察 器 


1-6 项 目 树 状 架构 


利用 对 象 观 察 器 ,可 以 修改 窗 体 或 组 件 的 属性 ,或 者 使 它们 能 够 响应 不 同 的 事件 。 属 性 
(Property) 是 一 些 数据 , 如 高 度 、 颜 色 和 字体 等 ,它们 决定 了 组 件 在 屏幕 上 的 外 观 。 事件 
(Event) 则 是 一 种 消息 处 理 机 制 , 它 能 够 捕捉 某 种 情况 的 发 生 并 做 出 反应 ,如 鼠标 单 击 和 窗口 
打开 就 是 两 种 典型 的 事件 。 对 象 观察 器 类 似 于 一 个 带 标签 的 多 页 笔记 本 ,包括 Properties 选 
项 卡 和 Events 选项 卡 ,切换 时 只 需 在 窗口 上 部 单 击 所 需 选 项 卡 的 标签 即 可 。 至 于 对 象 观察 器 
中 显示 哪个 组 件 的 属性 和 事件 ,取决 于 在 窗 体 设计 器 中 当前 选择 的 是 哪个 组 件 。 


Delphi XE8 还 可 以 按 对 象 的 种 类 或 名 字 的 字母 顺序 来 排 
列 对 象 观察 器 中 的 内 容 。 要 做 到 这 一 点 ,只 需 在 对 象 观察 器 中 
任意 位 置 单 击 右键 并 从 弹出 的 快捷 菜单 中 选择 Arrange 命令 即 
可 。 对 象 观察 器 如 图 1-7 所 示 ,对 象 观察 器 可 按 种 类 排序 也 可 
按 名 称 排序 ,本 图 为 按 名 称 排 序 。 还 可 以 从 快捷 菜单 中 选择 
View 命令 来 指定 想 看 到 的 对 象 种 类 。 

Delphi 程序 员 必 须知 道 的 ,也 是 最 实用 的 一 点 就 是 : 帮助 
系统 是 和 对 象 观察 器 紧密 结合 在 一 起 的 ,如 果 用 户 想 了 解 某 个 
属性 或 事件 的 帮助 信息 ,只 要 在 该 属性 或 事件 上 按 Fl 键 ,就 可 
获取 相应 的 帮助 。 

6. 组 件 板 

组 件 板 的 功能 是 列 出 目前 可 使 用 的 工具 ,一 开始 它 的 内 容 
列 出 了 目前 在 整合 发 展 环境 中 可 建立 的 项 目 种 类 。 如 果 建 立 
了 项 目 之 后 , 它 的 内 容 就 会 改变 ,改变 成 表格 可 使 用 的 组 件 。 

Delphi XE8 的 组 件 面板 包含 五 百 多 个 组 件 , 是 Delphi 可 视 
化 编程 的 核心 部 件 。 它 由 不 同 的 选项 卡 组 成 ,每 张 选项 卡 中 包 
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含 若干 图 形 按钮 ,这 些 图 形 按钮 都 代表 相应 的 组 件 。 编 程 时 可 以 方便 地 选择 需要 的 组 件 并 将 


它 放 到 窗 体 中 去 。 


Tool Palette 平 其 


7| 四 | Dsearch 组 件 面板 (如 图 1-8 所 示 ) 是 一 个 双 层 工具 栏 , 它 包含 IDE 
本 小 安装 的 所 有 VCL 组 件 。 


二 Additional 


Win32 组 件 面板 中 的 组 件 分 为 可 视 组 件 与 非 可 视 组 件 。 在 设计 时 


互 System 
Win 3.1 


可 以 通过 设置 可 视 组 件 的 属性 来 改变 其 外 观 , 如 TLabel、TEdit 


ialogs 等 都 是 可 视 组 件 。 非 可 视 组 件 设计 时 在 窗 体 上 用 一 个 图 标 表示 
ei ”添加 了 这 个 组 件 , 但 在 程序 运行 时 看 不 见 这 个 组 件 , 如 TTimer、 


Data Controls 


[dbExpress TOpenDialog 等 组 件 都 属于 非 可 视 组 件 。 


| 7. 源 代码 生成 器 


FireDAC 


当 对 窗 体 设计 器 中 的 可 视 化 组 件 进行 操作 时 ,Delphi XE8 


1-8 Delphi XE8 组 件 板 


会 自动 生成 Object Pascal 源 代 码 。 最 简单 的 例子 就 是 , 当 执行 


File| New|VCL Forms Application 命令 创建 一 个 新 的 项 目 时 ,将 看 到 屏幕 上 出 现 一 个 空白 的 
窗 体 设计 器 ,同时 ,代码 编辑 器 中 会 自动 出 现 一 些 代码 ,如 下 所 示 。 


unit Unitl; 
interface 
uses 


Winapi. Windows, Winapi. Messages, System， SysUtils, System. Variants, System. Classes, Vcl. 


Graphics, 


Vel.Controls, Vcl.Forms, Vcl.Dialogs, Vel.Stdctrls; 


type 
TForml = class(TForm) 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 
var 
Forml: TForml; 
implementation 
{S$R *.dfm} 
end. 


注意 ,与 任何 窗 体 对 应 的 源 代 码 模块 都 驻 留 在 单元 文件 中 。 虽 然 每 个 窗 体 都 对 应 着 一 个 
单元 文件 ,但 并 不 是 每 个 单元 文件 都 对 应 着 一 个 窗 体 。 如 果 对 Pascal 语言 不 太 熟 悉 , 不 清楚 


单元 的 概念 ,请 参考 相关 的 参考 书 。 
在 上 述 源 代码 清单 中 ,有 如 下 几 行 代码 。 


type 

TForml = class(TForm) 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 


可 以 看 出 , 窗 体 对 象 是 从 TForm 类 继承 下 来 的 。Delphi 已 经 清楚 地 标 出 了 可 以 插入 公 


共 (Public) 和 私有 (Private) 变 量 的 地 方 。 
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下 面 这 一 行 非常 重要 。 
{SR x .dfm} 


Pascal 语言 中 的 $ R 指令 用 于 加 载 一 个 外 部 资源 文件 。 上 面 这 一 行 表示 把 *. dftm( 代 表 
Delphi 窗 体 ) 文 件 链接 到 可 执行 文件 中 。*. dfm 文件 中 包含 在 窗 体 设 计 器 中 创建 的 表单 的 二 
进 制 代码 。 其 中 的 * 不 代表 通配符 ,而 是 表示 与 当前 单元 文件 同名 的 文件 。 例 如 ,假设 上 面 一 
行 是 在 一 个 名 为 Unitl. pas 的 文件 中 , 则 x*. dfm 就 代表 名 为 Unitl. dfm 的 文件 。 

应 用 程序 的 项 目 文件 也 值得 注意 。 项 目 文件 的 扩展 名 是 dpr( 代 表 Delphi Project) , 它 只 
是 一 个 带 有 不 同 扩 展 名 的 Pascal 源 文件 。 项 目 文件 中 有 程序 的 主要 部 分 ,与 其 他 版 本 的 
Pascal 不 同 ,大 多 数 的 编程 工作 都 是 在 单元 文件 中 完成 的 ,而 不 是 在 主 模块 中 。 可 以 执行 
Project| View Source 命令 把 项 目 源 文件 调和 代码 编辑 器 。 下 面 是 一 个 应 用 程序 示例 的 项 目 
文件 ,代码 如 下 。 


program Projectl1; 


uses 
Vel. Forms, 
Unitl in 'Unit1.pas' {Forml}; 


{S$SR * .res} 


begin 
Application. Initialize; 
Application. MainFormOnTaskbar : = True; 
Application. CreateForm( TForm], Forml ); 
Application. Run; 
end. 
当 向 应 用 程序 中 添加 表单 和 单元 时 ,它们 将 出 现在 项 目 文件 的 uses 子 句 中 。 
这 里 也 要 注意 ,在 uses 子 句 中 的 单元 文件 名 之 后 ,相应 表单 的 名 字 将 以 注释 的 形式 出 现 。 
如 果 搞 不 清楚 哪个 单元 对 应 哪个 文件 ,可 以 在 “项 目 管理 器 ”区域 中 查询 。 注 意 ,每 个 表单 都 对 
应 着 一 个 单元 文件 ,而 有 的 单元 文件 却 只 有 代码 而 不 对 应 任何 表单 。 在 Delphi 中 ,大 部 分 情 
况 下 都 是 对 单元 文件 进行 编程 ,几乎 不 需要 编辑 . dpr 文件 。 


1.2.2 基于 组 件 的 编程 思 ? 


Delphi XE8 是 一 种 典型 的 基于 组 件 的 编程 工具 。 在 介绍 组 件 编程 之 前 ,首先 简要 回顾 软 
件 设计 方法 的 发 展 史 ,以 便 更 好 地 理解 基于 组 件 的 编程 思想 。 

在 早期 DOS 操作 系统 和 C 语言 主导 的 时 代 , “数据 结构 十 算法 ”成 为 构建 软件 的 唯一 方 
式 , 然 而 这 种 扁平 的 API 组 织 结构 带 来 的 现实 逻辑 与 机 器 实现 之 间 的 巨大 鸿沟 让 人 无 法 妨 
受 , 近 乎 相同 的 软件 被 低 效 地 一 遍 一 遍 重 写 。 

接着 , 千 呼 万 响 始 出 来 的 C++ 语言 和 面向 对 象 技 术 , 一 时 间 成 为 人 们 的 口头 语 ; 绚丽 多 彩 
的 Windows 成 为 人 们 的 栖息 地 ; MFC 类 库 及 由 其 主导 开发 的 各 种 桌面 软件 成 为 C++ 历史 上 
的 极 盛 时 期 。 然 而 , 随 着 软件 规模 越 来 越 大 ,面向 Web 应 用 的 需求 越 来 越 高 , 源 代码 级 的 对 象 
复 用 显然 已 经 不 能 满足 需要 。 

软件 开发 迫切 需要 一 个 面向 Internet 的 异 构 体 系 ,为 软件 提供 像 IC 电路 元 件 一 样 可 插 拔 
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的 标准 封装 和 复 用 方式 的 组 件 构造 平台 。 于 是 20 世纪 90 年 代 中 期 开始 流行 一 种 办 新 的 程序 
设计 概念 : 软件 可 以 由 可 互 换 的 组 件 构成 ,一 套 组 件 可 以 装配 出 音频 系统 或 者 家 庭 影院 。 这 
就 是 基于 组 件 的 编程 思想 。 

到 底 什么 是 组 件 ? 不 同 的 人 可 能 会 有 不 同 的 答案 。 一 般 来 讲 ,组 件 是 指 通过 公开 的 属性 、 
方法 .事件 ,让 其 他 的 程序 设计 者 可 以 重复 使 用 的 一 种 经 过 编译 的 二 进 制 文件 ,其 文件 名 可 以 
是 .OCX 或 者 是 . dl, 如 命令 按钮 、 复 选 框 , 单 选 框 、 滚 动 条 等 都 是 常见 的 组 件 。 同 一 个 组 件 可 
以 嵌入 各 种 不 同 的 应 用 程序 之 中 ,因而 可 以 方便 地 通过 改写 组 件 的 属性 和 事件 来 定制 组 件 ,使 
它 适 用 于 不 同 的 应 用 程序 ,从 而 极 大 地 提高 编程 的 效率 和 程序 的 复 用 率 。 

Delphi XE8 中 有 一 个 庞大 的 可 视 化 组 件 库 (VCL) ,其 中 总 共 包括 五 百 多 种 组 件 , 涉 及 程 
序 设计 的 各 个 领域 。 其 中 任何 一 种 组 件 一 般 都 包括 属性 方法 .事件 等 信息 ,可 以 对 其 进行 设 
定 或 者 重 载 ,“ 装 配 ” 自 己 的 软件 。 当 然 用户 也 可 以 定义 自己 的 组 件 ,具体 将 在 第 8 章 8. 2 节 中 
详细 介绍 。 


1.3 简单 的 XE8 程序 设计 


一 般 情况 下 ,Delphi XE8 编写 应 用 程序 包括 新 建 应 用 程序 设置 窗 体 属性 、 添 加 组 件 \ 设 
置 组 件 属性 、 添 加 事件 \、 编 写 事件 响应 代码 和 编译 运行 等 几 大 步骤 。 下 面 以 一 个 简单 的 例子 来 
介绍 这 些 过 程 。 

1. 新 建 应 用 程序 

启动 Delphi XE8 ,执行 File|New|VCL Forms Application 命令 ,新 建 一 个 应 用 程序 。 

2. 设置 窗 体 属 性 

单 击 Object Inspector( 对 象 观察 器 ) 项 ,在 打开 的 对 话 框 中 选择 Properties 选项 卡 ,在 
Caption 文本 框 中 输入 窗 体 的 新 标题 “窗口 ”。 

上 述 设置 窗 体 大 小 和 位 置 的 方法 对 组 件 同 样 适用 。 

3. 向 窗 体 中 添加 组 件 

在 工具 盘 搜 索 区 域 输入 TButton ,找到 TButton 组 件 后 将 鼠标 指向 窗 体 中 的 任意 位 置 ( 标 
题 栏 除外 ) , 单 击 鼠 标 , 即 可 把 Buttonl 组 件 放 入 窗 体 中 。 或 者 直接 双击 在 工具 盘 搜 索 区 域 找 
到 的 TButton 组 件 ,也 可 以 在 窗 体 中 添加 一 个 Buttonl 组 件 。 用 同样 的 方法 添加 另外 两 个 组 
件 Button2 和 Button3, 如 图 1-9 所 示 。 


GQ Forml 


图 1-9 窗 体 布局 


第 1 章 ，Delphi XE8 基础 知识 总 


4. 设置 组 件 属 性 

选中 窗 体 中 要 设置 属性 的 组 件 ,再 单 击 Object Inspector 的 标题 栏 以 激活 对 象 观察 器 ,并 
选择 Properties 选项 卡 。 在 对 象 观 察 器 中 单 击 要 设置 的 属性 ,进行 属性 设置 。 本 例 中 的 组 件 
属性 设置 如 表 1-1 所 示 。 


表 1-1 窗 体 及 组 件 属性 设置 


对 象 属性 属性 值 说 明 
Forml caption 窗口 窗 体 的 标题 
Buttonl caption 窗口 放大 按钮 的 标题 
Button2 caption 窗口 缩小 按钮 的 标题 
Button3 caption 退出 按钮 的 标题 

5. 添加 事件 


选中 窗 体 中 要 添加 事件 的 组 件 , 激 活 对 象 观察 器 ,并 选择 Events 选项 卡 。 在 对 象 观察 器 
中 单 击 要 添加 的 事件 ,如 单 击 OnClick 事件 ,在 其 右 侧 的 文本 框 中 输入 事件 的 响应 函数 名 称 ， 
如 ButtonlClick, 然后 按 回 车 键 即 可 。 用 同样 的 方法 添加 响应 函数 Button2Click 和 
Button3Click 。 

如 果 单 击 要 添加 的 事件 后 ,在 其 右 侧 的 编辑 框 中 双击 ,将 为 事件 采用 默认 事件 处 理 过 程 
名 ,同时 进入 代码 编辑 窗口 。 上 默认 事件 处 理 过 程 名 是 组 件 名 和 事件 名 去 除 “on” 后 合并 而 成 的 
字符 串 , 如 Buttonl 组 件 的 OnClick 事件 的 默认 事件 处 理 过 程 名 是 Button1Click。 

6. 编写 事件 响应 代码 

先 选 定 要 编写 事件 响应 代码 的 组 件 , 再 打开 Object Inspector 中 的 Events 选项 卡 , 双 击 要 
编写 响应 代码 的 事件 右 侧 的 空白 部 分 ,这 里 是 双击 OnClick 事件 右 侧 的 空白 部 分 ,进入 代码 编 
辑 窗 口 。 这 个 过 程 也 可 以 在 窗 体 中 通过 双击 Button 组 件 来 完成 。 

编写 响应 代码 ,本 例 中 的 程序 代码 如 下 。 


procedure TForm1. Button1Click(Sender: TObject); // 单 击 放大 按钮 ,窗口 将 放大 
begin 
forml. Height: = form1.Height+ 10; // 窗 口 高 度 加 10 
forml. Width: = forml.Width+ 10; // 窗 口 宽度 加 10 
end; 
Procedure TForm1. Button2Click( Sender: TObject); // 单 击 缩小 按钮 ,窗口 将 缩小 
begin 
form1.Height: = forml.Height— 10; // 窗 口 高 度 减 10 
forml. Width: = forml.Width— 10; // 窗 口 宽度 减 10 
end; 
Procedure TForm1. Button3Click(Sender: TObject); // 关 闭 窗口 
begin 
close; // 退 出 
end; 


7. 编译 运行 程序 
程序 编写 完成 后 , 单 击 工 具 栏 上 的 Run 按钮 即 可 运行 程序 。 本 例 程序 的 运行 界面 如 
图 1-10 所 示 。 
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窗口 放大 窗口 缩小 退出 


1-10 运行 界面 


1.4 Delphi 上 机 步骤 


为 了 使 初学 者 能 对 Delphi XE8 的 上 机 步骤 有 比较 清楚 的 了 解 ,本 节 将 详细 介绍 Delphi 


的 上 机 操作 步骤 。 
1， 启动 程序 
系统 自动 生成 如 下 代码 。 
unit Unit1; // 单 元 文件 名 
interface // 接 口 关键 字 , 用 它 来 标识 文件 所 调用 的 单元 文件 
uses // 使 用 的 公共 单元 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; 
Type // 定 义 程序 所 使 用 的 组 件 以 及 组 件 所 对 应 的 事件 
TForml = class(TForm) 
Private // 定 义 私 有 变量 和 私有 过 程 
{ Private declarations } 
public // 定 义 共 有 变量 和 共有 过 程 
{ Public declarations } 
end; 
var // 定 义 程序 使 用 的 公共 变量 
Forml: TForml; 
Implementation // 程 序 代码 实现 部 分 
{$R *.dfm} 
end. 
2. 添加 组 件 


在 窗 体 设计 器 中 添加 如 图 1-11 所 示 的 各 组 件 。 


Ne 和 


图 1-11 窗 体 布局 图 


3. 设置 组 件 属性 
设置 窗 体 中 的 组 件 属性 如 表 1-2 所 示 。 
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表 1-2 窗 体 及 组 件 属性 设置 

对 象 属性 属性 值 说 明 
Labell Caption 请 输入 字符 : 标签 的 标题 
Label2 Caption 显示 字符 长 度 : 标签 的 标题 
Editl Text ( 空 ) 
Edit2 Text 0 

光 Readonly true 编辑 框 只 读 
Buttonl Caption 退出 按钮 的 标题 

4. 编写 代码 


组 件 属性 设置 完成 后 ,编写 如 下 代码 。 


procedure TForm1. EditlChange(Sender: TObject) // 关 键 分 析 


var 


stringlength: integer; 


begin 


stringlength: = editl.GetTextLen; 
edit2. Text: = inttostr(stringlength); 


end; 


// 定 义 整 型 变量 ,记录 编辑 框 1 中 字符 的 个 数 


// 得 到 编辑 框 1 中 字符 的 个 数 


procedure TForm1. Button1Click(Sender: TObject); // 关 闭 窗口 


begin 
close; 
end; 


// 编 辑 框 2 显示 编辑 框 1 中 字符 个 数 


关键 分 析 : Editl 中 的 内 容 发 生 改变 时 触发 此 事件 ,计算 当前 Editl 中 的 文本 的 长 度 。 


5. 保存 工程 


保存 工程 分 为 保存 单元 文件 和 保存 项 目 文件 两 步 。 
第 一 步 是 保存 单元 文件 , 单 击 工具 栏 上 的 Save 按钮 ,将 打开 Save Unitl As 对 话 框 ,默认 
的 单元 文件 名 是 “Unitl. pas”, 以 “. pas” 为 扩展 名 ,单元 文件 名 根据 需要 可 以 另 取 ,第 一 步 如 


图 1-12 所 示 。 


名 称 


| 图 uniklpas 


文件 各 (N): 


保存 类 型 (T: [Delphi unit (pas) 


二 隐 芒 文件 去 


图 1-12 保存 单元 文件 


@ 
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保存 完 单元 文件 后 ,接着 保存 项 目 文件 , 单 击 工具 栏 上 Save Project2 As 按钮 ,默认 的 项 
目 文件 名 是 “Project2. dproj”, 工 程 文件 名 根据 需要 可 以 另 取 以 dproj 为 扩展 名 ,第 二 步 如 
图 1-13 所 示 。 


vPro > -二 
SS 
SR 


轨 projectl.dproj 2015-11-06 8:54 。 Delphi p 


保存 类 型 (T): [Delphi projects (dproj) 


| 和. 隐 蕊 文件 六 


图 1-13 保存 项 目 文件 


需要 注意 的 是 ,保存 一 个 应 用 文件 ,要 分 别 保存 单元 文件 和 项 目 文件 ,而 且 这 两 个 文件 的 
文件 名 不 能 相同 。 建 议 最 好 将 单元 文件 和 工程 文件 保存 在 同一 文件 夹 里 ,以 便 将 来 使 用 方便 。 

保存 工程 还 可 以 通过 Save All 按钮 实现 ,步骤 和 上 两 步 一 样 。 

6. 运行 工程 

保存 工程 结束 后 即 可 运行 工程 ,工程 运行 的 界面 图 如 图 1-14 所 示 。 


1-14 工程 运行 界面 图 


小 结 


本 章 主要 介绍 Delphi 的 产生 和 发 展 .Delphi 的 特点 以 及 使 用 Delphi 进行 程序 设计 的 一 些 
基础 知识 。 本 章 的 重点 是 Delphi 的 开发 环境 和 开发 方法 ,通过 实例 介绍 了 Delphi 的 程序 设计 
和 上 机 操作 的 一 般 步骤 。 
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习 题 


1-1 简 述 Delphi XE8 集成 开发 环境 的 组 成 及 各 组 成 部 分 的 功能 。 

1-2 简 述 Delphi XE8 的 特点 。 

1-3” 简 述 对 象 观察 器 的 构造 及 使 用 方法 。 

1-4” 简 述 如 何 保存 Delphi 的 工程 。 

1-5 简 述 Delphi XE8 上 机 编程 的 一 般 步 骤 。 

1-6 设计 一 个 不 含 系统 菜单 的 窗 体 ,通过 添加 按钮 实现 窗 体 的 关闭 。 

1-7 设计 一 个 不 能 改变 大 小 的 窗 体 。 

1-8 编写 一 个 简单 的 程序 ,要 求 : 单 击 按钮 来 显示 或 隐藏 标签 。 

1-9 输入 圆 的 半径 ,计算 并 输出 圆 的 内 接 正方 形 面积 .外 切 正方 形 面积 ,如 图 1-15 所 示 。 


外 切 正方 形 面积 : 


| 医 于 至 


1-15 根据 半径 求 面积 


1-10 在 编辑 框 中 输入 三 种 商品 的 单价 .购买 数量 ,计算 并 输出 所 用 的 总 金额 ,如 图 1-16 
所 示 。 


单价 ”数量 
第 一 种 商品 : 85 10 


第 二 种 商品 : 3 2 
第 三 种 商品 : 1035 15 


总 计 金 额 : 2757. 5 元 | 


1-16 求 商品 的 总 计 金 额 


1-11 一 个 Delphi 应 用 程序 的 源 文 件 有 哪些 ? 运行 后 又 生成 哪些 文件 ? 各 文件 的 含义 
是 什么 ? 


小 
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Delphi XE8 是 一 种 完全 面向 对 象 的 开发 平台 , 它 以 面向 对 象 的 程序 设计 语言 Object 
Pascal 作为 其 程序 设计 语言 。Pascal 语言 是 世界 上 使 用 最 广泛 的 程序 设计 语言 之 一 ,是 一 种 
结构 化 的 程序 设计 语言 , 它 具 有 丰富 的 数据 类 型 .严谨 的 语法 规则 及 高 效 的 编译 器 等 特点 。 
Object Pascal 语言 是 Pascal 语言 的 面向 对 象 的 扩展 , 它 在 传统 的 Pascal 语言 基础 上 主要 增加 
了 面向 对 象 的 特性 .增加 了 若干 数据 类 型 ,对 编译 器 进行 了 改进 等 ,使 之 成 为 一 个 完善 的 面向 
对 象 的 编程 语言 。 


2.1 保留 字 与 标识 符 


任何 一 种 语言 都 有 自己 的 一 套 符号 和 语法 规则 ,程序 设计 语言 也 是 如 此 。 在 Object 
Pascal 语言 中 ,符号 由 一 个 或 多 个 字符 所 构成 ,是 最 基本 的 语言 元 素 。 本 节 对 Object Pascal 
的 符号 进行 介绍 。 


2.1.1 标识 从 


标识 符 是 ObjectPascal 语言 中 各 种 成 分 的 名 称 , 这 些 成 分 包括 变量 (Var) 、 常 量 (Const)、 
类 型 (Type) ,过 程 (Procedure)、 函 数 (Function) 方法 (Method) .单元 (Unit) 等 ,要 在 程序 中 
使 用 这 些 名 称 , 必 须 首 先 用 标识 符 说 明 它 们 。 

标识 符 可 以 分 为 三 类 : 标准 标识 符 、 自 定义 标识 符 和 限定 标识 符 。 

1. 标准 标识 符 

标准 标识 符 是 Object Pascal 语言 预先 分 配给 标准 函数 、 标 准 过 程 、 标 准 类 型 .标准 常量 ， 
以 及 标准 文件 使 用 的 标识 符 , 如 下 所 示 。 

(1) 标准 常量 ,如 False、Maxint、True 等 。 

(2) 标准 类 型 ,如 Boolean、Char、Real 等 。 

(3) 标准 函数 ,如 Sin、Cos、Abs、Arctan 等 。 

(4) 标准 过 程 , 如 Dispose、Get、New、Pack、Put 等 。 

(5) 标准 文件 ,如 Input、Output 等 。 

2. 自 定义 标识 符 

自 定义 标识 符 是 程序 员 根 据 程序 设计 的 需要 ,自己 定义 的 常量 ,变量 、 类 型 .函数 、 过 程 等 
所 取 的 名 字 。 自 定义 标识 符 可 以 由 任意 长 的 一 个 不 带 空格 的 字符 串 组 成 ,包括 字母 A 一 Za 一 
z\ 数 字 0 一 9 和 下 划 线 _ 等 。 

在 Object Pascal 语言 中 ,定义 标识 符 需要 遵循 以 下 规则 。 

(1) 标识 符 不 区 分 大 小 写 ; 
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(2) 标识 符 只 能 以 字母 或 下 划 线 开头 ,不 能 以 数字 开头 ; 

(3) 标识 符 可 以 是 任意 长 度 , 但 只 有 前 225 个 字符 有 效 ; 

(4) 标识 符 中 间 不 允许 有 空格 ; 

(5) 不 允许 使 用 Object Pascal 语言 的 保留 字 作 为 标识 符 。 

例如 ,ABC、K_2、calculatevalue、CalculateValue 和 CALCULATEVALUE 都 是 合法 的 标 
识 符 , 但 后 面 三 个 标识 符 被 认为 是 同一 个 标识 符 。 而 9A、A&B、MY teacher 和 resQ 等 都 是 
非法 的 标识 符 。 因 为 9A 用 数字 开头 ,A&B 使 用 了 非 字 母 、 非 数字 和 非 下 划 线 的 符号 & ,MY 
teacher 含有 空格 ,resQ 使 用 了 字符 Q。 

3. 限定 标识 符 

在 Delphi 程序 中 可 以 引用 多 个 单元 ,而 各 个 单元 中 的 全 局 变量 、 函 数 、 过 程 等 可 能 会 同 
名 ,所 以 在 程序 中 引用 它们 时 需要 使 用 限定 标识 符 来 区 分 它们 ,如 下 述 语句 : 

Var 

Y: real; 

Y: = System.cos(pi); 

其 中 System 称 为 限定 符 , 它 限定 语句 中 使 用 的 cos 标识 符 为 System 单元 中 声明 的 标识 
符 。 而 System. cos 称 为 限定 标识 符 。 


2.1.2 保留 字 


保留 字 是 由 系统 规定 的 .具有 特定 意义 和 用 途 的 单词 ,如 and、begin、end 等 。 在 编程 时 保 
留 字 不 能 被 重新 定义 或 作 他 用 ,Object Pascal 语言 中 定义 了 65 个 保留 字 , 如 下 所 示 。 

and array as asm begin case class const constructor destructor 
dispinterface div do downto else end except exports file finalization finally 
for function goto if implementation in inherited initialization inline interface 
is label library mod nil not object of or out packed procedure program 
property raise record repeat resourcestring set shl shr string then threadvar 
to try type unit until uses var while with xor 

说 明 : 

(1) 单词 at 和 on 也 具有 特殊 的 含义 ,不 要 定义 与 它们 同名 的 标识 符 。 

(2) Object Pascal 是 不 区 分 大 小 写 的 ,因此 ,保留 字 也 不 区 分 大 小 写 , 例 如 ,And、AND 和 
and 等 都 被 看 作 同 样 的 保留 字 。 

(3) 在 Delphi 集成 开发 环境 的 代码 编辑 器 中 ,将 以 黑体 显示 保留 字 和 指令 字 。 在 定义 标 
识 符 时 不 要 与 这 些 以 黑体 字 显 示 的 单词 一 样 。 


2.1.3 指令 符 


指令 符 也 是 具有 特定 意义 的 单词 。 但 是 ,它们 与 保留 字 的 不 同 之 处 是 : 指令 字 只 在 特殊 
的 程序 位 置 .或 当 上 下 文 关联 时 有 意义 的 程序 区 段 有 自己 特殊 的 意义 ,而 在 其 他 场合 ,用 户 可 
以 对 其 重新 定义 或 用 作 其 他 用 途 。 即 可 以 将 某 个 指令 符 定义 为 标识 符 ,Object Pascal 不 会 指 
示 出 错 , 当 用 户 重 新 定义 了 这 些 指令 字 后 ,在 作用 域内 它们 就 失去 了 原来 的 意义 了 ,这 容易 带 
来 混淆, 用 户 应 尽 可 能 少 用 。 

Object Pascal 中 规定 的 指令 符 有 39 个 ,如 下 所 示 。 
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absolute abstract assembler automated cdecl contains default dispid 
dynamic export external far forward implements index message name near 
nodefault overload override package pascal private protected public published 
read readonly register reintroduce require resident safecall stdcall stored 
virtual write writeonly 

说 明 : 指令 符 private、protected、public、published 和 automated 在 定义 对 象 类 型 时 也 作 
为 保留 字 , 而 在 其 他 场合 则 作为 指令 符 。 


2.1.4 注释 


注释 可 增加 程序 的 可 读 性 和 可 维护 性 。Object Pascal 语言 中 的 注释 有 下 面 三 种 形式 。 

(1) 组 合 符号 { 与 } 的 成 对 使 用 表示 它们 之 间 的 内 容 为 注释 部 分 。 

(2) 组 合 符号 (* 与 * ) 的 成 对 使 用 表示 它们 之 间 的 内 容 为 注释 部 分 。 

(3) 符号 // 的 单个 使 用 表示 所 在 行 的 该 符号 之 后 的 内 容 为 注释 。 

说 明 ， 

(1) 注释 符 { 与 ;、(* 与 * ) 在 使 用 时 不 支持 注释 的 嵌 套 ,而 且 必须 成 对 使 用 。 

(2) 建议 对 于 单行 和 少量 几 行 的 注释 使 用 符号 //, 对 于 大 块 注释 使 用 [和 } 或 (* 和 * ) 。 

(3) 有 时 可 以 利用 注释 在 代码 中 形成 一 个 醒目 的 标志 。 比 如 利用 注释 符号 形成 一 个 矩形 
方 框 ,在 其 中 可 以 添加 一 些 重要 的 说 明文 字 。 

(4) 在 注释 符 { 或 (* 后 紧 接 着 是 一 个 美元 符号 $ 时 ,表示 该 句 是 一 个 编译 器 指令 , 它 与 普 
通 的 注释 不 同 ,通常 用 来 对 编译 过 程 进行 设置 。 

由 于 Delphi 集成 开发 环境 中 的 代码 编辑 器 在 显示 不 同类 型 的 代码 时 通过 使 用 不 同 的 颜 
色 来 加 以 区 别 , 所 以 在 编程 过 程 中 ,只 要 注意 文件 中 代码 的 颜色 ,一 般 就 不 会 错误 地 使 用 注释 
符 了 。 

注释 可 以 放 在 程序 的 任何 地 方 ,例如 : 


begin 

Form1. Caption: = ' 欢 迎 使 用 Object Pascal 语言 '; {将 Forml 标题 改 为 "欢迎 使 用 Object Pascal 语 
言 "} 

Forml. Width: = 300; (* 将 Forml 的 宽度 改 为 300 x ) 

Forml. Height: =250; // 将 Forml 的 高 度 改 为 250 
End; 


2.2 数据 类 型 


描述 客观 事物 的 数 、 字 符 以 及 所 有 能 输入 到 计算 机 中 并 被 计算 机 程序 加 工 处 理 的 符号 的 
集合 称 为 数据 。 数 据 类 型 用 于 确定 数据 在 计算 机 中 的 存储 方式 和 能 够 对 它 进行 的 操作 , 即 数 
据 的 类 型 不 仅 确定 了 该 类 数据 的 表示 形式 和 取 值 范围 ,而 且 还 确定 了 数据 所 能 够 参加 的 各 种 
运算 。 

Object Pascal 是 一 种 强 类 型 的 语言 , 即 它 对 数据 类 型 的 定义 .声明 以 及 数据 赋值 和 传递 操 
作 等 都 制定 有 严格 的 语法 规则 。 因 此 ,掌握 好 数据 类 型 的 概念 是 设计 好 程序 的 关键 。 

Object Pascal 语言 支持 的 数据 类 型 比较 丰富 ,提供 了 多 种 数据 类 型 ,如 表 2-1 所 示 。 数 据 
类 型 可 以 分 为 标准 数据 类 型 及 高 级 数据 类 型 等 ,还 可 以 通过 数据 类 型 声明 语句 在 预定 义 数据 
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类 型 的 基础 上 定义 新 的 数据 类 型 。 本 节 首 先 分 析 标 准 数据 类 型 。 
表 2-1 Object Pascal 的 数据 类 型 


类 型 名 称 说 明 
整 型 Integer 标准 数据 类 型 
实 型 Real 标准 数据 类 型 
字符 型 Character 标准 数据 类 型 
字符 串 型 String 标准 数据 类 型 
布尔 型 Boolean 标准 数据 类 型 
枚 举 型 Enumerated 高 级 数据 类 型 
子 界 型 Subrange 高 级 数据 类 型 
集合 类 型 Set 高 级 数据 类 型 
数组 类 型 Array 高 级 数据 类 型 
记录 类 型 Record 高 级 数据 类 型 
文件 类 型 File 高 级 数据 类 型 
类 类 型 Class 高 级 数据 类 型 
类 引用 类 型 Class Reference 高 级 数据 类 型 
接口 类 型 Interface 高 级 数据 类 型 
指针 类 型 Pointer 高 级 数据 类 型 
过 程 类 型 Procedural 高 级 数据 类 型 
可 变 类 型 Variant 高 级 数据 类 型 


(1) 标准 数据 类 型 属于 Object Pascal 内 部 约定 的 数据 类 型 ,无 须 定义 就 可 以 直接 使 用 。 


(2) 高 级 数据 类 型 体现 了 特殊 的 数据 结构 ,在 使 用 之 前 必须 由 用 户 自己 定义 。 


(3) 数据 类 型 中 的 整 型 .字符 型 ,布尔 型 . 枚 举 型 和 子 界 型 被 称 为 顺序 类 型 ,其 取 值 是 一 个 


有 序 的 集合 ,每 一 个 可 能 的 取 值 都 与 顺序 (整数 值 ) 有 关 , 即 其 取 值 与 某 一 整数 相对 应 。 


2.2.1 


数值 型 数据 


Object Pascal 中 的 数值 型 数据 可 以 分 为 整数 类 型 和 实数 类 型 。 


1. 整数 类 型 


整数 类 型 是 存储 整数 数据 的 类 型 ,包括 表 2-2 中 的 各 种 类 型 。 
表 2-2 Object Pascal 的 整 型 数据 


类 型 名 称 字 长 取 值 范围 
短 整 型 Shortint 有 符号 8 位 一 128 一 127 
小 整 型 Smallint 有 符号 16 位 一 32 768 一 32 767 
长 整 型 Longint 有 符号 32 位 一 2 147 483 648 一 2 147 483 647 
64 位 整 型 Int64 有 符号 64 位 一 2 一 2 
字 节 型 Byte 无 符号 8 位 0 一 255 
字 型 Word 无 符号 16 位 0 一 65 535 
长 字 型 Longword 无 符号 32 位 0 一 4 294 967 295 
整 型 Integer 有 符号 32 位 一 2 147 483 648 一 147 483 647 
序数 型 Cardinal 无 符号 32 位 0 一 4 294 967 295 
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说 明 : 

(1) 前 7 种 为 基本 整 型 ,后 两 种 为 一 般 整 型 。 

(2) 应 尽量 使 用 一 般 整 型 Integer 和 Cardinal ,因为 这 两 种 类 型 可 以 最 大 限度 地 发 挥 CPU 
和 操作 系统 的 性 能 。 

2. 实数 类 型 

实数 类 型 是 存储 实数 数据 的 类 型 ,Object Pascal 语言 中 的 实数 数据 类 型 如 表 2-3 所 示 。 


表 2-3 Object Pascal 语言 中 的 实数 数据 类 型 


类 型 名 称 字 长 有 效 位 取 值 范围 
单 精 度 实 型 ”Single 4 7 或 8 士 1.5X10-% 一 3.4X102 
扩展 型 Extended 10 19 或 20 士 3.6X10-451 一 1.1X1062 
双 精 度 实 型 ” Double 8 15 或 16 士 5.0X10-58 一 1.7X103?08 
货币 型 Currency 8 19 或 20 一 922 337 203 685 477. 580 8 一 922 337 203 685 477. 580 7 
实 型 Real 8 15 或 16 土 5.0X10-28 一 1.7X10308 
说 明 : 


(1) 前 4 种 为 基本 实 型 ,Real 为 一 般 实 型 。 

(2) Real 类 型 与 Double 类 型 完全 等 价 。 

(3) Extended 类 型 比 Real 类 型 的 精度 更 高 ,但 与 其 他 语言 或 操作 平台 的 兼容 性 较 差 , 因 
此 应 尽量 避免 使 用 。 

(4) Currency 类 型 是 专 为 处 理 货 币值 而 设计 的 ,该 类 型 至 少 有 4 位 有 效 的 小 数位 。 当 与 
其 他 实 型 数据 进行 混合 运算 时 , Delphi 自动 将 运算 结果 执行 除 10 000 的 操作 而 转换 成 
Currency 类 型 。 


2.2.2 字符 型 数据 


Object Pascal 中 的 字符 型 数据 可 以 分 为 字符 型 和 字符 串 型 两 类 7 种 。 

1. 字符 类 型 

字符 型 是 存储 单个 字符 数据 的 类 型 ,Object Pascal 包括 三 种 形式 的 字符 型 数据 , 见 
表 2-4。 


表 2-4 Object Pascal 的 字符 型 数据 


类 型 名 称 字 节 数 取 值 范围 
Ansi 字 符 型 AnsiChar 1 扩展 ANSI 字符 集 
宽 字 符 型 WideChar 2 Unicode 字符 集 
字符 型 Char 1@ 扩展 ANSI 字符 集 
说 明 : 


(1) 前 两 种 为 基本 字符 类 型 ,后 一 种 为 一 般 字 符 类 型 。 

(2) Char 类 型 与 AnsiChar 类 型 完全 等 价 。 

最 常用 的 字符 类 型 是 Char 类 型 。 

2. 字符 串 类 型 

字符 串 类 型 是 存储 字符 串 数据 的 类 型 ,Object Pascal 包括 4 种 形式 的 字符 串 型 数据 , 见 表 2-5。 
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表 2-5 Object Pascal 语言 中 的 字符 串 类 型 


类 型 名 称 最 大 长 度 所 需 内 存 空间 
短 字符 串 型 ShortString 255 个 字符 2 一 256B 
长 字符 串 型 AnsiString 2 个 字符 4B~2GB 
宽 字符 串 型 WideString 2? 个 字符 4B 一 2GB 
字符 串 型 String 232 个 字符 4B~2GB 
说 明 : 


(1) ShortString 类 型 与 传统 的 Pascal 的 字符 串 相 对 应 ,是 为 了 与 Delphi 和 Borland 
Pascal 的 早期 版 本 相 兼容 。 

(2) AnsiString 类 型 的 定义 是 动态 分 配 的 ,内 容 由 AnsiChar 类 型 的 字符 组 成 ,长 度 仅 受 
可 用 内 存 空间 的 限制 ,以 空 字符 Null 作为 字符 串 的 结尾 。 

(3) String 字符 串 类 型 , 既 可 以 是 ShortString 类 型 ,也 可 以 是 AnsiString 类 型 ,默认 定义 
是 AnsiString 类 型 。 

(4) Delphi 中 ,许多 组 件 的 属性 都 使 用 了 String 类 型 ,如 Caption 属性 、Text 属性 等 。 


2.2.3 布尔 型 数据 


布尔 型 数据 用 于 关系 运算 和 条 件 语句 的 逻辑 运算 ,Object Pascal 包括 4 种 形式 的 布尔 型 
数据 ,如 表 2-6 所 示 。 
表 2-6 ”Object Pascal 的 布尔 型 数据 


类 型 名 称 字 节 数 取 值 
布尔 型 Boolean 1 只 能 为 0(False) 或 1(True) 
字 节 布尔 型 ByteBool 1 0(False) 或 非 0(True) 
宽 布尔 型 WordBool 2 0(False) 或 非 0(True) 
长 布尔 型 LongBool 4 0(False) 或 非 0(True) 
说 明 : 


(1) 后 三 种 类 型 是 为 了 兼容 其 他 语言 而 设置 的 ,编程 时 应 尽量 使 用 Boolean 类 型 。 
(2) Boolean 类 型 的 取 值 为 False 和 True 两 个 符号 常量 。 


2.3 常量 与 变量 


在 程序 执行 过 程 中 有 两 种 形式 的 数据 ,一 种 称 为 常量 , 另 一 种 称 为 变量 ,下 面 分 别 予 以 


2.3.1 常量 


常量 , 即 在 程序 的 执行 过 程 中 其 值 不 能 改变 的 量 。 在 Object Pascal 中 常量 也 具有 确定 的 
数据 类 型 。 例 如 ,2.73、3. 14 等 为 实 型 常量 ; 100、308 等 为 整 型 常量 ; 'Hello world ' 为 字符 串 
常量 等 。 

常量 的 表示 方式 有 两 种 ,一 种 是 常量 值 本 身 . 也 称 为 直接 常量 ; 另 一 种 是 要 用 声明 定义 的 
标识 符 表示 的 常量 , 即 要 在 定义 部 分 先行 声明 ,也 称 为 声明 常量 。 声 明 常 量 又 可 以 分 为 符号 常 
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量 和 类 型 常量 ,两 者 在 形式 上 是 一 样 的 ,但 使 用 规则 和 目的 却 不 相同 。 下 面 分 别 予 以 介绍 。 

1. 直接 常量 

直接 常量 是 指 在 程序 中 直接 引用 的 常数 ,如 整 型 常数 、 实 型 常数 .字符 型 常数 .字符 串 型 党 
数 和 布尔 型 常数 。 

(1) 整 型 常数 即 整数 ,可 以 是 带 有 正 、 负 号 的 整数 或 无 符号 的 整数 ,如 : 10、 一 3、0 等 。 

(2) 实 型 常数 即 实数 ,包括 定点 实数 与 浮 点 实数 两 种 表示 形式 。 

@ 定点 实数 即 小 数 表示 形式 的 数 ,如 0.06、3.14、-2. 42、0.0 等 。 

@ 浮 点 实数 即 科 学 表示 形式 ,如 十 3. 24E 十 6、-5. 68E-8、3. 86E10 等 。 

(3) 字符 型 常数 是 由 单 引号 ' 括 起 来 的 字符 ,如 'd'、'E'、' 十 '、'8'。 

(4) 字符 串 型 常数 是 由 单 引 号 ' 括 起 来 的 字符 串 , 如 :'Hello'、' 程 序 设计 '、'3. 28'。 

(5) 布尔 型 常数 只 有 两 个 值 : True 和 False, 分 别 表 示 逻 辑 判断 的 结果 是 真 CTrue) 还 是 假 
(False) 。 

2. 声明 常量 

1) 符号 常量 

符号 常量 是 由 先行 声明 定义 的 标识 符 表示 的 常量 ,其 值 在 定义 后 不 会 改变 。 如 果 在 程序 
中 , 某 一 个 常数 反复 多 次 出 现 ,可 以 定义 一 个 标识 符 来 代表 该 常数 ,这 个 标识 符 就 是 符号 常量 ， 
也 称 纯 常 量 。 定 义 符号 常量 使 用 常量 说 明 请 句 , 其 语法 格式 为 : 

Const 

< 常量 名 1>=< 常 量 值 1 >; 


< 常量 名 n > = < 常量 值 n >; 


其 中 ,Const 是 Object Pascal 的 保留 字 ,表示 常量 定义 段 的 开始 ,二 常量 名 二 即 常量 的 标识 符 ， 
其 命名 要 符合 标识 符 的 命名 规则 ,二 常量 值 二 是 直接 常量 或 由 已 经 定义 的 符号 常量 组 成 的 表 
达 式 。 例 如 : 
Const 
Pi=3.1415926; 


Message = 'Out of memory'; 
ErrStr = 'Error: '+ Message+'. '; 


说 明 : 
(1) 保留 字 Const 可 以 单独 书写 一 行 ,也 可 以 与 所 定义 的 常量 在 同一 行 。 例 如 : 


Const Pi= 3.1415926; 


(2) 不 能 在 程序 中 给 常量 另行 赋值 ,否则 将 导致 语法 错误 。 

(3) Delphi 根据 常量 的 值 来 判断 常量 名 属于 哪 种 类 型 。 例 如 ,因为 3. 141 592 6 是 实数 ， 
则 Pi 是 实数 类 型 ; 'Out of memory' 是 字符 串 ,Message 是 字符 串 类 型 。 而 常量 ErrStr 的 定义 
式 右 端 为 字符 串 常量 表达 式 , 因 此 它 也 是 字符 串 类 型 。 并 且 在 该 字符 串 常量 表达 式 中 引用 了 
常量 名 Message, 说 明 常 量 名 一 经 定义 ,就 能 被 引用 。 

2) 类 型 常量 

类 型 常量 用 于 保存 数组 记录、 过 程 以 及 指针 等 类 型 的 值 。 类 型 常量 不 能 出 现在 常量 表达 
式 中 。 在 默认 的 编译 器 状态 下 ,类 型 常量 的 值 可 以 改变 ,这 时 类 型 常量 更 像 初 始 化 过 的 变量 。 
但 当 在 程序 中 加 入 编译 命令 {$j-} 时 , 则 类 型 常量 的 值 在 运行 期 就 无 法 改变 ,此 时 ,类 型 常量 
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才 是 真正 的 常量 。 声 明 类 型 常量 的 语法 规则 为 : 


Const 
< 类 型 常量 名 >: < 类 型 > = < 常量 值 >; 
其 中 ,常量 名 要 符合 Pascal 标识 符 的 规则 ,类 型 是 除了 文件 型 和 可 变型 之 外 的 所 有 类 型 ,常量 
值 可 以 是 一 个 和 类 型 相应 的 常量 表达 式 。 例 如 : 
Const 
Pi: real = 3.1415926; 


Enterkey: char = #13; 
Heading: String[7] = 'Section'; 


2.3.2 变量 


变量 是 在 运行 时 可 以 改变 其 值 的 量 。 为 了 表示 和 引用 变量 就 要 用 标识 符 来 命名 它 ,并 把 
该 标识 符 称 为 变量 名 。 变 量 必然 有 它 的 数据 类 型 ,因为 数据 类 型 确定 了 它 的 取 值 范围 .运算 方 
法 和 对 存储 空间 的 要 求 等 。 因 此 所 有 的 变量 都 要 遵循 先 声 明 后 引用 的 规则 。 

1. 变量 的 声明 

在 Object Pascal 中 ,变量 在 单元 、 函 数 或 过 程 的 声明 部 分 进行 声明 ,声明 的 位 置 决定 了 变 
量 的 作用 域 。 变 量 的 声明 包括 两 部 分 : 变量 名 和 它 所 属 的 类 型 。 变 量 声明 的 语法 格式 为 : 


Var 


< 变量 名 1>: < 类 型 名 1>; 

< 变量 各 了 >: < 类 型 名 n>; 
当 多 个 变量 具有 相同 的 数据 类 型 时 ,可 以 使 用 如 下 紧凑 格式 ， 
Var < 变量 名 1 >,< 变 量 名 2 >, …,< 变 量 名 n >: < 类 型 名 >; 


其 中 ,Var 是 Object Pascal 的 保留 字 , 表 示 变 量 声明 段 的 开始 ; 一 变量 名 二 可 以 是 任意 合法 的 
标识 符 , 同 类 型 的 二 变量 名 二 可 以 超过 一 个 ,二 变 量 名 二 间 要 用 “, "分隔; 所 类 型 名 之 可 以 是 
Object Pascal 的 基本 数据 类 型 或 是 由 用 户 定义 的 高 级 数据 类 型 。 例 如 : 


Var 
Xry 2: real; // 声 明 x yz 为 实 型 变量 
I,J,K: integer; // 声 明 I,J,K 为 整 型 变量 
ch: char; // 声 明 ch 为 字符 型 变量 
country: string; // 声 明 country 为 字符 串 型 变量 


声明 变量 时 还 要 注意 ,尽管 仅 要 求 变量 名 符合 Pascal 关于 标识 符 规 则 的 任意 字符 组 合 ， 
但 应 尽量 使 定义 的 变量 名 便于 记忆 和 阅读 。 例 如 ,可 以 用 Day、Name 和 Total 分 别 命名 来 表 
示 天 、 姓 名 和 总 数 。 

2. 变量 的 使 用 

变量 经 过 声明 以 后 ,就 可 以 在 程序 中 使 用 了 。 通 常 可 以 通过 赋值 语句 给 变量 赋值 ,在 表达 
式 中 使 用 变量 。 

一 旦 声明 了 一 个 变量 ,应 及 时 对 它 进行 初始 化 。 这 是 因为 Object Pascal 是 一 种 编译 型 编 
程 语言 ,程序 经 过 编译 才能 运行 。 而 在 程序 编译 时 ,编译 器 会 按照 变量 的 类 型 为 变量 分 配 内 存 
空间 。 但 编译 器 不 会 自动 地 初始 化 变量 ,未 经 初始 化 的 变量 的 值 是 不 确定 的 一 个 随机 值 ,此 时 
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如 果 该 变量 参与 运算 或 是 出 现在 程序 流程 中 可 能 会 产生 严重 的 后 果 。 
初始 化 变量 的 最 简单 方法 就 是 给 变量 赋值 。 


2.4 运算 符 与 表达 式 


在 学 习 了 各 种 数据 类 型 以 及 常量 和 变量 之 后 ,接着 就 需要 学 习 如 何 将 它们 组 织 成 为 能 符 
合计 算 要 求 的 表达 式 ,因此 就 需要 更 进一步 了 解 各 类 运算 符 及 它们 之 间 的 运算 规则 。 

运算 是 对 数据 进行 加 工 的 过 程 , 运 算 符 是 在 代码 中 对 各 种 数据 类 型 进行 运算 的 符号 。 例 
如 ,有 能 进行 加 `\ 减 , 乘 、 除 的 运算 符 , 有 能 访问 一 个 数组 的 某 个 单元 地 址 的 运算 符 等 。 

按照 操作 数 数目 的 多 少 来 分 ,运算 符 分 为 下 面 两 类 : 单 目 运算 符 和 双 目 运算 符 。 单 目 运 
算 符 一 般 放 在 操作 对 象 的 前 面 , 双 目 运算 符 都 放 在 两 个 操作 数 之 间 。 

有 些 运算 符 是 根据 给 定 的 操作 数 的 数据 类 型 做 相应 处 理 的 。 例 如 ,运算 符 not 对 于 整 型 
的 操作 数 来 说 ,做 的 是 按 位 取 反 ; 对 于 逻辑 类 型 的 操作 数 来 说 , 它 完成 的 则 是 逻辑 取 反 。 

表达 式 是 表示 某 个 求 值 规 则 的 运算 公式 , 它 由 运算 符 和 配对 的 圆 括号 将 常量 、 变 量 、 函 数 、 
对 象 等 操作 数 以 合理 的 形式 组 合 而 成 。 最 简单 的 表达 式 是 变量 .常量 和 函数 ,复杂 的 表达 式 则 
是 通过 将 简单 表达 式 用 运算 符 结 合 起 来 而 构成 。 

表达 式 可 用 来 执行 运算 、 操 作 字符 或 测试 数据 ,每 个 表达 式 产 生 唯 一 的 值 。 表 达 式 的 类 型 
由 运算 符 的 类 型 决定 。 


2.4.1 算术 运算 符 与 算术 表达 式 


1. 算术 运算 符 
算术 运算 符 对 浮 点 数 和 整数 进行 加 \ 减 、 乘 、 除 和 取 模 运算 ,如 表 2-7 所 示 。 在 所 列 出 的 算 
术 运 算 符 中 , 除 取 正 十 和 取 负 一 是 单 目 运算 符 外 ,其 他 均 为 双 目 运算 符 。 


表 2-7 Object Pascal 语言 中 的 算术 运算 符 


运算 符 名 称 表达 式 例 子 运算 符 名 称 表达 式 例子 
+ 取 正 +a Div 整数 除法 ADivb 
一 取 负 一 b Mod 求 余 A Modb 
x 乘法 axb + 加 法 A 十 b 


/ 除法 a/b 一 减法 A—b 


说 明 : 

(1) 其 中 ,十 、 一 、* 运算 的 含义 与 数学 中 相同 ,参加 运算 的 数 可 以 是 整 型 也 可 以 是 实 型 ， 
结果 由 Delphi 自动 向 精度 高 的 类 型 转化 。 

(2) 参加 除法 运算 /的 数 无 论 是 整 型 还 是 实 型 ,结果 都 是 实 型 的 商 。 

(3) 参加 整数 除法 Div 和 求 余 运算 Mod 的 数 必须 是 整 型 ,结果 也 是 整 型 数 (包括 商 和 余 
数 ) ,符号 与 被 除数 的 符号 相同 ,小 数 部 分 被 舍 去 。 

(4) 在 表达 式 a/b、aDivb 和 aModb 中 ,如 果 b 的 值 为 0, 将 会 引发 一 个 错误 。 

2. 算术 运算 符 的 优先 级 

在 算术 表达 式 中 可 以 包含 各 种 运算 符 ,必须 规定 各 个 运算 的 先后 顺序 ,这 就 是 算术 运算 符 
的 优先 级 。 表 2-8 按 优先 顺序 由 高 到 低 列 出 了 算术 运算 符 。 
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表 2-8 算术 运算 符 的 优先 顺序 


优先 顺序 运算 符 
1 十 \ 一 ( 取 正 、 取 负 ) 
2 * ./( 法 除法) 
3 Div、Mod( 整 除 、 求 余 ) 
4 十 ,一 (加 法 、 减 法 ) 


当 一 个 表达 式 中 含有 多 种 运算 符 时 ,将 按 上 述 顺序 求 值 。 同 级 运算 自 左 至 右 ,如 果 表 达 式 
中 含有 括号 (), 则 先 计 算 括 号 内 表达 式 的 值 ; 如 果 有 多 层 括号 , 先 计算 最 内 层 括 号 中 的 表 
达 式 。 

3. 算术 表达 式 

为 了 完成 预定 的 工程 计算 任务 ,算术 表达 式 必然 要 和 某 个 数学 式 对 应 起 来 ,就 是 要 利用 上 
述 算术 运算 符 将 数学 式 改 写 为 符合 Object Pascal 语言 语法 要 求 的 算术 表达 式 ,这 要 考虑 三 个 
问题 : 一 是 语法 ,二 是 优先 级 ,三 是 类 型 。 例 如 ,有 一 列 数学 式 : 

CIY yrsY (2)(2x— /XE 3) le4.54003nd5 (4) C5 F335) 

若 变 量 x、y、z 已 经 被 定义 为 实数 型 , 且 已 经 赋值 , 则 上 述 数 学 式 对 应 的 Object Pascal 算 
术 表达 式 如 下 。 

(1) y/(x*z) 

(2) (ZOEY) 

(3) log10(4.5) 十 0.3x ln(4.5) 

(4) (5x Power(x,2.3) 二 3.0)/(3.0/5.0) 

说 明 : 

(1) 数学 式 中 省 略 的 运算 符 和 表示 函数 参数 的 括号 必须 添加 上 去 ,因为 在 程序 中 ,yx*z 和 
yz\ln4.5 和 ln(4.5) 等 具有 完全 不 同 的 意义 

(2) 必须 注意 优先 级 的 处 理 , 若 表达 式 yyxx*z 和 (2.0x* x 一 y/x) 中 不 用 括号 , 即 写 为 : 
y/xx*z 和 2.0* x 一 y/x 的 形式 , 则 对 应 的 数学 式 显然 不 一 样 。 

(3) 必须 恰当 利用 标准 函数 。 例 如 ,只 能 用 函数 Power(ab) 来 表示 指数 运算 am 。 

(4) 必须 注意 数据 类 型 。 例 如 ,3.0/5.0 为 实数 除 ,结果 为 0.6; 而 若 为 整数 除 ,结果 为 0， 
若 将 上 面 第 (4) 式 中 的 分 母 写成 (3 DIV5) ,程序 运行 时 就 将 引起 用 0 作 除 的 错误 。 当 然 , 几 个 
简单 例子 只 能 使 读者 对 算术 表达 式 有 一 个 简单 认识 ,还 有 许多 应 该 注意 的 事项 ,比如 类 型 的 兼 
容 性 如 何 保证 运算 精度 等 ,需要 在 实践 中 继续 探讨 学 习 。 

2.4.2 ”逻辑 运算 符 与 布尔 表达 式 

逻辑 运算 符 可 分 为 布尔 运算 符 、 位 运算 符 和 关系 运算 符 。 

1. 布尔 运算 符 

布尔 运算 符 只 能 对 两 个 布尔 型 操作 数 进行 运算 ,结果 仍 为 布尔 型 , 即 只 能 为 True 或 者 
False。 基 本 的 布尔 运算 符 有 4 个 : NOT、.AND、OR 和 XOR。 分 别 简 单 介绍 如 下 。 
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(1) NOT: 求 * 非 ?运算 符 ,为 一 元 运算 符 ,计算 操作 数 的 相反 数 。 如 有 NOT a, 则 若 a 的 
值 为 True, 则 运算 结果 为 False; 车 a 的 值 为 False, 则 运算 结果 为 True。 

(2) AND: 求 “ 与 ”运算 符 ,为 二 元 运算 符 。 如 有 aANDb, 当 a 和 bb 的 值 均 为 True 时 , 运 
算 结 果 为 True; 反之 运算 结果 为 False。 

(3) OR: 求 “或 ”运算 符 , 为 二 元 运算 符 。 如 有 a OR b, 当 a 和 b 的 值 有 一 个 为 True, 运 算 
结果 就 为 True; 反之 只 有 a 和 bb 的 值 都 为 False 时 ,运算 结果 才 为 False。 

(4) XOR: 求 “ 异 或 ”的 二 元 运算 符 。 如 有 aXORb, 当 a 和 bb 的 值 不 同时 运算 结果 为 
True; 反之 当 a 和 bb 的 值 相 同时 运算 结果 为 False。 

2. 位 运算 符 

位 运算 符 是 对 Integer 类 型 操作 数 的 二 进 制 形式 的 位 执行 操作 , 表 2-9 列 出 了 Object 
Pascal 的 位 运算 符 的 操作 ,操作 数 类 型 和 结果 类 型 等 。 

在 表 2-9 中 的 “位 ?是 指 二 进 制 的 比特 , 按 位 运算 是 指 不 考虑 相 邻 的 运算 结果 , 仅 计 算 两 个 
操作 数 中 的 对 应 位 。 


表 2-9 位 运算 符 


运算 符 操作 举例 操作 数 类 型 结果 类 型 功能 说 明 

NOT NOT x integer integer 即 按 二 进 制 形式 将 每 位 求 反 , 即 1 变 为 0,0 变 1 

AND aANDb integer integer 将 两 者 相对 应 的 位 进行 AND 运算 , 同 为 1 时 结果 为 1 

OR aORb integer integer 将 两 者 相对 应 的 位 进行 OR 运算 , 同 为 0 时 结果 为 0 

XOR aXORb integer integer 将 两 者 相对 应 的 位 进行 取 XOR 运算 ,两 者 不 同时 结果 为 1 
SHL aSHLb integer integer 将 a 的 二 进 制 值 向 左 移动 b 位 , 左 移 一 位 相当 于 乘 2 

SHR aSHRb integer integer 将 a 的 二 进 制 向 右 移动 b 位 , 右 移 一 位 相当 于 除 2 


(1) 若 有 操作 数 x, 其 值 的 二 进 制 数 形式 为 00100011 ,执行 语句 : 
y: = NOTx; 


y 值 的 二 进 制 数 形式 为 11011100。 
(2) 车 操作 数 x 和 y 的 二 进 制 数 形式 分 别 为 00100011 和 11101110, 执 行 语句 : 


z: =x ANDy; 


后 ,z 值 的 二 进 制 数 形式 为 00100010。 

(3) 若 执行 124 SHR 2 运算 ,由 于 常量 124 的 二 进 制 形式 为 011111100, 则 运算 的 结果 
为 : 00011111 , 即 十 进 制 数 31, 正 是 124/4 的 结果 。 

值得 注意 的 是 , 右 移 操作 时 原 值 的 低位 丢失 ,高 位 补 0; 左 移 操作 时 原 值 的 高 位 丢失 ,低位 
补 0。 例 如 : 

执行 运算 (35 SHR 2) , 即 先 把 数 35 右 移 两 位 ,再 把 其 结果 左 移 两 位 ,但 是 结果 将 是 32 ,而 
回 不 到 35。 

执行 运算 一 35 SHR 2, 结 果 将 是 1073741 815。 这 是 由 于 在 计算 机 内 部 ,负数 是 以 补 码 形 
式 存 放 的 缘故 。 关 于 补 码 ,请 参看 有 关 参 考 资料 。 
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3. 关系 运算 符 
关系 运算 符 用 于 比较 两 个 同类 型 量 的 值 ,共有 6 个, 见 表 2-10。 


表 2-10 关系 运算 符 
关系 符 操作 操作 数 类 型 结果 类 型 


全 等 于 简单 类 型 ,字符 串 或 可 变 类 型 ,类 ,类 引用 ,指针 ,集合 类 型 boolean 
<> 不 等 于 简单 类 型 ,字符 串 或 可 变 类 型 ,类 ,类 引用 ,指针 ,集合 类 型 boolean 
过 小 于 简单 类 型 ,字符 串 或 可 变 类 型 boolean 
Ee 天 于 简单 类 型 ,字符 串 或 可 变 类 型 boolean 
<= 小 于 等 于 简单 类 型 ,字符 串 或 可 变 类 型 boolean 
= 大 于 等 于 ”简单 类 型 ,字符 串 或 可 变 类 型 boolean 


运算 符 = 二 > 二 = 和 > 一 也 用 于 集合 运算 。 当 操作 数 为 集合 时 它们 的 意义 如 下 : 假设 
A,B 是 两 个 集合 , 若 A 和 B 所 包含 的 元 素 完 全 相同 , 则 A=B 的 运算 结果 为 True, 否则 
A 一 > 了 B 的 运算 结果 为 True; 若 A 的 每 个 元 素 也 是 B 的 元 素 ,A 志 =B 的 运算 结果 为 True, 并 
称 A 是 B 的 子 集 ; 车 A 二 =B 的 运算 结果 为 True, 则 B 是 A 的 子 集 。 

4. 布尔 表达 式 

布尔 表达 式 由 布尔 运算 符 和 布尔 类 型 的 操作 数 所 组 成 ,所 以 布尔 表达 式 中 的 操作 数 可 以 
是 任何 运算 结果 为 布尔 类 型 的 表达 式 , 包 括 关系 运算 表达 式 和 运算 结果 为 布尔 类 型 的 函数 ,如 
Odd(x) ,FileExists(x) 等 。 但 位 运算 符 的 结果 是 整数 类 型 ,不 能 直接 作为 布尔 操作 数 。 

利用 布尔 表达 式 可 以 描述 比较 复杂 的 判定 条 件 ,例如 ,要 判断 实数 变量 x 的 值 是 否 落 在 闭 
区 间 [3,5] 上 ,可 用 布尔 表达 式 : 


(x>=3.0) and (x<=5.0) 
要 判定 实数 变量 x 的 值 是 否 落 在 闭 区 间 [3,5] 之 外 ,可 用 布尔 表达 式 : 


(x<3.0) or (x>5.0) 


2.4.3 字符 串 运 算 符 


Object Pascal 只 有 一 种 字符 串 运 算 符 , 即 连接 运算 符 十 ,该 运算 符 主要 用 于 连接 两 个 或 更 
多 的 字符 串 。 

最 简单 的 字符 串 表 达 式 是 字符 常量 .字符 串 常量 .字符 变量 .字符 串 变 量 或 字符 函数 的 引 
用 。 字 符 串 表达 式 格式 为 ， 

< 字符 串 表达 式 > + {< 字 符 串 >|< 字 符 >} 

当 两 个 字符 串 用 连接 运算 符 连 接 起 来 后 ,第 二 个 字符 串 直 接 添加 到 第 一 个 字符 串 的 尾部 ， 
结果 是 包含 两 个 源 字符 串 全 部 内 容 的 新 字符 串 。 如 果 要 把 多 个 字符 串 连 接 起 来 ,每 两 个 字符 
串 之 间 都 要 用 “十 ”号 分 隔 。 例 如 


'ABCDEFG' + '123456" // 连 接 后 的 结果 为 'ABCDEFG123456" 
'DELPHI' + ' 程 序 设 计 ' // 连 接 后 的 结果 为 'DELPHI 程序 设计 ' 
'123 45'+ 'abc '+ xyz ' // 连 接 后 的 结果 为 '123 45 abc xyz' 
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2.4.4 运算 符 的 优先 级 


除了 以 上 介绍 的 运算 符 外 ,还 有 指针 运算 符 、 集 合 运算 符 、 类 运算 符 和 取 地 址 运算 符 等 ,所 
有 的 运算 符 和 算术 运算 符 一 样 ,都 具有 优先 级 的 概念 。 在 Object Pascal 中 ,运算 符 的 优先 级 
可 以 分 为 4 个 级 别 , 见 表 2-11。 


表 2-11 运算 符 的 优先 级 


优先 顺序 运 算 符 分 类 描述 
1 @( 取 地 址 ) ,NOT ,一 一 元 运算 符 
多 * ,/,DIV, MOD, AND,SHL,SHR 乘除 及 类 型 强制 转换 运算 符 
3 + ,一 ,OR,XOR 加 减 运算 符 
4 =,<>,<,>,<=,>=,in,is 关系 、 集 合成 员 及 类 型 比较 运算 符 


尽管 各 种 运算 符 的 优先 级 比较 明确 ,但 是 在 具体 编程 时 ,并 不 需要 记 住所 有 运算 符 的 优先 
级 顺序 。 常 见 的 一 些 优先 级 顺序 比较 好 记 , 如 乘 、 除 运算 符 的 优先 级 比 加 、 减 运算 符 的 优先 级 
高 。 在 优先 级 顺序 不 太 明 显 的 地 方 ,可 以 多 加 一 些小 括号 以 明确 表达 式 的 结合 次 序 。 另 外 , 相 
等 优先 级 的 运算 符 连 续 应 用 时 ,运算 按 从 左 到 右 的 顺序 进行 。 如 果 表 达 式 中 有 函数 , 则 先 引 用 
函数 ,再 将 其 函数 值 参与 表达 式 的 运算 。 


2.5 常用 系统 函数 与 过 程 


为 了 简化 程序 员 的 编程 工作 ,在 Delphi 的 软件 系统 中 提供 了 大 量 的 预定 义 函 数 和 过 程 ， 
并 称 为 库 函 数 和 过 程 ,也 称 为 标准 函数 和 过 程 。 只 要 通过 简单 的 应 用 或 调用 ,就 能 够 完成 相当 
复杂 的 工作 。 例 如 ,算式 : 

x+ sin(y) + sqrt(z)+1 
中 就 引用 了 求 变量 y 的 三 角 正 弦 值 sin 函数 和 求 变量 z 的 平方 根 sqrt 函数 ,并 将 求 得 的 函数 
值 带 回 到 式 子 中 参与 运算 。 

下 面 仅 依据 课程 教学 内 容 的 要 求 , 分 类 简单 介绍 库 函 数 中 的 一 小 部 分 ,更 多 的 库 函 数 和 过 
程 的 介绍 参见 有 关 参 考 文献 。 
2.5.1 数值 运算 函数 


Delphi 的 数值 运算 函数 包含 常用 的 数学 函数 (如 三 角 函 数 、 对 数 函 数 等 ) 和 适合 计算 机 数 
据 处 理 的 其 他 函数 (如 求 数组 中 的 最 大 值 . 求 三 角形 的 斜 边 长 等 )。 由 于 数值 运算 函数 引用 比 
较 简 单 , 仅 以 表 2-12 说 明 。 


表 2-12 常用 数学 运算 函数 


数学 函数 引用 形式 参数 类 型 函数 值 类 型 函数 功能 描述 
绝对 值 函数 Abs(x) 整数 或 实数 。” ” 同 参 数 类 型 ” 求 x 的 绝对 值 ,整数 表示 所 有 整数 
类 型 ,实数 表示 所 有 实数 类 型 
正切 函数 Arctan(x) 实数 实数 求 x 的 反正 切 值 


余弦 函数 Cos(x) 实数 实数 求 x 的 余弦 值 
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续 表 
数学 函数 引用 形式 参数 类 型 函数 值 类 型 函数 功能 描述 

正弦 函数 Sin(x) 实数 实数 求 x 的 正弦 值 

x 值 函数 Pi 实数 实数 返回 常数 x 的 值 : 
3.141 592 653 589 793 238 5 

平方 函数 Saqrt(x) 实数 实数 求 x 的 平方 

平方 根 函 数 Saqrt(x) 实数 实数 求 x 的 平方 根 ,要 求 x>0 

竹 函 数 Power(x,y) 实数 实数 求 表 达 式 xy 的 寡 

自然 对 数 函 数 。 Ln(x) 实数 实数 求 x 的 自然 对 数 ,要 求 x>0 

常用 对 数 函 数 Logl10(x) 实数 实数 求 x 的 常用 对 数 ,要 求 x 二 0 

指数 函数 Exp(x) 实数 实数 求 数学 表达 式 e* 的 值 

取 小 数 函 数 Frac(x) 实数 实数 返回 x 的 小 数 部 分 

取 整 数 函 数 Int(x) 实数 实数 返回 x 的 整数 部 分 , 舍 去 小 数 部 分 

舍 人 函数 Round(x) 实数 Int64 返回 x 的 整数 部 分 ,对 小 数 部 分 进 
行 四 舍 五 人 处 理 。 注 意 : 若 x 的 整 
数 部 分 超出 Int64 的 表示 范围 , 则 结 
果 不 正确 

取 整 函数 Trunc(x) 实数 Int64 返回 x 的 整数 部 分 ,会 去 小 数 部 分 。 
注意 同上 

奇偶 判断 函数 。 Odd(x) 整数 布尔 当 x 为 奇数 时 返回 True, 当 x 为 偶 
数 时 返回 False 

随机 函数 Random[(x)] ”整数 不 定 当 省 略 参数 时 ,返回 一 个 在 区 间 [0， 


1) 上 的 随机 实数 , 当 使 用 有 参数 x 
时 ,返回 一 个 在 区 间 [0,x) 上 的 随机 
整数 


2.5.2 字符 处 理 函 数 


对 字符 的 处 理 主 要 包括 : 大 小 写 转换 .比较 先后 顺序 、 合 并 、 查 找 、 截 取 、 插 入 \ 求 长 度 以 及 
类 型 转换 等 。 常 用 的 字符 处 理 函 数 如 表 2-13 所 示 。 


表 2-13 字符 处 理 函数 


字符 函数 过 程 


引用 形式 


函数 功能 描述 


大 小 写 转换 函数 


UpperCase(s) 


将 参数 串 s 中 的 小 写字 母 全 部 转换 为 大 写字 母 并 返回 


LowerCase(s) 


将 参数 串 s 中 的 大 写字 母 全 部 转换 为 小 写字 母 并 返回 


比较 字符 串 大 小 函数 


CompareStr(s1,s2) 


比较 字符 串 sl 和 s2 的 大 小 ,区 分 大 小 写 , 若 sl 大 于 s2， 
则 函数 返回 值 大 于 0; 若 sl 小 于 s2, 则 函数 返回 值 小 于 
0; 车 sl 等 于 s2, 则 函数 返回 值 等 于 0 


CompareText(s1,s2) 


不 区 分 大 小 写 ,其 他 同 CompareStr(sl ,s2) 


合并 字符 串 


Concat (sl, s2 (, s3)， 
s4…))) 


合并 多 个 字符 串 s1 十 s2 十 s3 十 …。 参 数 表 列 中 的 () 表 示 
可 选择 内 容 


查找 字符 串 函数 


Pos(sl1,s) 


求 参数 串 sl 在 参数 串 s 中 的 起 始 位 置 , 即 返回 值 为 整数 。 
若 串 s 中 不 包含 s1, 则 返回 值 为 0 
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字符 函数 过 程 


续 表 
引用 形式 函数 功能 描述 


求 字 符 串 长 度 函 数 


求 参数 串 s 中 的 字符 个 数 , 即 求 串 长 度 , 返 回 值 为 整数 


Length(s) 类 型 


截取 子 字符 串 函 数 


在 字符 串 s 中 截取 从 n 开始 ,m 个 字符 长 的 子 字 符 串 , 包 
Copy(s,n,m) 括 第 n 个 字符 。 若 取 不 够 m 个 字符 , 则 取 到 s 的 尾 字 符 
为 止 ; 若 n 的 值 为 0 或 大 于 当前 s 的 串 长 度 , 则 返回 空 串 


类 型 转换 函数 


将 整数 参数 x 转 换 成 字符 串 , 并 返回 整 型 数据 x 的 十 进 
制 格式 的 字符 串 


IntTostr(x) 


将 实数 参数 x 转换 成 字符 串 , 并 返回 实 型 数据 x 的 普通 


FloatToStr(x) 数字 格式 的 字符 串 ,转换 的 有 效 精度 为 15 位 


将 字符 串 s 转换 为 整数 值 , 并 返回 。 当 s 中 含有 非 数字 字 
StrtoInt(s) 符 时 会 导致 运行 异常 ( 即 错误 )。 若 程序 中 无 异常 处 理 ， 
将 返回 系统 处 理 


将 字符 串 s 转换 为 实数 值 , 并 返回 。 当 s 中 含有 非 数字 字 
StrtoFloat(s) 符 时 会 导致 异常 运行 ( 即 错 误 )。 若 程序 中 无 异常 处 理 ， 
将 返回 系统 处 理 


进 制 转换 函数 


IntToHex(d,h) 将 十 进 制 整 数 转换 成 十 六 进 制 格式 


ASCII 转换 为 字符 
函数 


将 ASCII 码 值 转换 成 字符 ,返回 以 整数 参数 x(0 二 x 一 


Chr(x) 256) 的 值 为 序号 (ASCII 代码 ) 的 字符 


格式 化 字符 串 函 数 


按 字符 串 s 所 指定 的 格式 要 求 ,将 实数 参数 x 转换 为 串 
型 值 ,并 返回 。 

例如 ,format('s% 数 学 考 了 d% 分 !',[ ' 小 红 ',98]) ;返回 
字符 串 ' 小 红 数学 考 了 98 分 !' 


Format(s,x) 


类 型 转换 过 程 


Str(x,s) 将 数值 x 转 换 成 字符 串 放 人 参数 s 中 


将 字符 串 s 转换 成 数值 放 人 参数 v 中 ,根据 c 的 值 判 断 是 


VCsyvyc) 否 转换 成 功 


2.5.3 日 期 时 间 函 数 
调用 日 期 时 间 函 数 可 以 对 日 期 和 时 间 进 行 处 理 ,常用 的 日 期 时 间 函 数 如 表 2-14 所 示 。 


函数 过 程 


表 2-14 日 期 时 间 函 数 
引用 形式 函数 功能 描述 


日 期 时 间 函 数 


用 来 返回 当前 的 日 期 和 时 间 信息 。 其 返 
回 值 实质 上 是 一 个 Double 类 型 ,其 整数 
部 分 表示 从 1899 年 12 月 30 日 以 来 所 经 
过 的 天 数 ,小 数 部 分 则 表示 经 过 的 时 间 
与 24 小 时 之 比 ,例如 ,2.75 表示 : 
1/1/1900 6:00 PM 


Now; 


日 期 函数 


用 来 返回 TdateTime 对 象 ,其 中 含有 年 、 
月 .日 信息 


Date; 


时 间 函 数 


用 来 返回 TdateTime 对 象 ,其 中 含有 时 、 
分 、 秒 信息 


Time; 
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续 表 
函数 过 程 引用 形式 函数 功能 描述 
DataToStr( date); 将 TdateTime 类 型 的 data 转换 为 字符 串 
TimeToStr(time); 将 TdateTime 类 型 的 time 转换 为 字符 串 
DateTimeToStr( datetime); dt 
转换 函数 竺 晶 
人 将 整 型 的 year、 month、day 转换 为 
ncodeDate(year,month,day); TdateTime 类 型 
EncodeTime(hour, min, sec, msec); 将 整 型 的 人 
TdateTime 类 型 
返回 日 期 所 对 应 的 星期 数 ,函数 返回 整 
星期 函数 DayOfWeek( date) ; 数 1~7,1 表示 星期 日 ,7 表示 星期 六 
将 函数 参数 DateTime 所 给 的 日 期 时 间 
日 期 与 时 间 的 格式 | FormatDateTime(format, datetime); 值 按 参 数 Format 指定 的 格式 输出 ,参数 
format 又 称 为 格式 化 字符 串 
将 参数 date 中 的 日 期 分 为 年 月、 日 分 别 
转换 过 程 Decodedate( date, year, month, day) 放 人 参数 year .monthvday 中 
将 参数 time 中 的 时 间 分 为 时 ,分 、 秒 、 毫 
转换 过 程 DecodeTime( Time, hour, min, sec, msec) 秒 分 别 放 人 参数 hour,min,sec,msec 中 


2.5.4 顺序 类 型 函数 


1. 顺序 类 型 

顺序 类 型 是 指 整 型 .字符 型 .布尔 型 . 枚 举 型 . 子 界 型 等 5 种 数据 类 型 。 顺 序 类 型 的 所 有 取 
值 是 一 个 有 序 的 集合 ,每 一 个 取 值 都 与 顺序 有 关 ,该 顺序 对 应 于 唯一 的 整数 ,如 下 所 述 。 

(1) 整数 的 序数 是 其 自身 ; 

(2) 字符 的 序数 是 其 ASCII 码 ; 

(3) 布尔 型 数据 : False 的 序数 为 0,True 的 序数 为 1; 

(4) 枚 举 型 的 第 一 个 数据 的 序数 为 0, 以 此 类 推 ; 

(5) 子 界 型 的 第 一 个 数据 的 序数 为 1, 以 此 类 推 。 

除了 第 一 个 序数 外 ,每 一 个 序数 都 有 一 个 前 趋 值 ; 除了 最 后 一 个 序数 外 ,每 一 个 序数 都 有 
一 个 后 继 值 。 整 数 无 第 一 和 最 末 数 。 

2. 顺序 函数 

常用 的 顺序 类 型 函数 如 表 2-15 所 示 。 


表 2-15 顺序 类 型 函数 


顺序 函数 引用 形式 函数 功能 描述 
序数 函数 Ord(x); 返回 数据 x 的 序数 
前 趋 函 数 Pred(x); 返回 数据 x 的 前 趋 值 。 如 果 将 Pred 函数 用 于 第 一 个 数据 ,就 可 能 产生 一 个 
编译 时 的 错误 
后 继 函 数 Succ(x); 返回 数据 x 的 后 继 值 。 如 果 将 Succ 函数 用 于 最 后 一 个 数据 ,就 可 能 产生 一 
个 编译 时 的 错误 
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续 表 
顺序 函数 引用 形式 函数 功能 描述 
首 序数 函数 Low(x); 返回 顺序 型 数据 x 取 值 集合 中 的 第 一 个 值 (序数 最 小 )。 它 还 可 以 返回 数组 
的 第 一 个 元 素 
末 序 数 函 数 High(x); 返回 顺序 型 数据 x 取 值 集合 中 的 最 末 一 个 值 ( 序 数 最 大 ), 它 还 可 以 返回 数 
组 的 最 末 一 个 元 素 
2.6 语 名 


2.6.1 语句 的 基本 概念 


语句 是 由 语句 命令 动词 (或 称 语 句 定 义 符 ,一般 都 属于 保留 字 或 特定 符号 ) 和 表示 操作 具 
体内 容 的 表达 式 所 构成 , 当 为 简单 系统 控制 语句 时 ,可 以 没有 表达 式 部 分 ,语句 的 功能 是 控制 
程序 的 执行 或 控制 编译 系统 的 工作 。 

按 语句 的 执行 时 间 可 分 为 两 大 类 : 声明 语句 和 可 执行 语句 。 

声明 请 句 包括 单元 说 明 语 句 、 类 型 说 明 语句 、 变 量 说 明 语句 .过程 说 明 语句 、 函 数 说 明 语 句 
和 程序 区 段 标识 语句 等 。 声 明 语句 仅 在 程序 编译 期 间 起 作用 ,告诉 编译 系统 如 何 进 行 编译 操 
作 和 程序 在 运行 时 需要 用 到 的 计算 机 资源 ,例如 ,要 引用 哪些 标准 函数 和 过 程 ,要 重新 定义 哪 
些 函 数 和 过 程 ,要 定义 多 少 个 常量 和 变量 ,都 属于 什么 数据 类 型 等 。 在 程序 开始 执行 后 ,这 些 
语句 一 般 不 影响 程序 的 运行 。 

可 执行 语句 包括 赋值 语句 、 运 行 控 制 语句 和 结构 控制 语句 等 。 可 执行 语句 只 有 在 程序 开 
始 运行 后 ,才能 被 依次 执行 ,完成 指定 的 运算 或 控制 程序 的 执行 流程 等 。 

按 语句 的 描述 形式 ,可 分 为 简单 语句 、 结 构 语 句 和 复合 语句 等 。 简 单 语句 只 含有 一 个 
语句 定义 符 或 特殊 标志 ; 结构 语句 往往 含有 多 于 一 个 的 语句 动词 ; 复合 语句 则 是 由 begin 
和 end 括 起 来 的 若干 个 简单 语句 .结构 语句 和 复合 语句 , 即 允 许 复合 语句 多 层 嵌 套 , 复 合 请 句 
也 人 允许 为 空 ,也 就 是 在 begin 和 end 之 间 没 有 其 他 语句 。 但 是 要 特别 注意 begin 和 end 的 配对 
使 用 。 

例如 : 


一 般 情 况 下 , 常 采 用 缩 格 的 方法 表示 程序 语句 和 结构 层次 ,即将 同一 个 结构 语句 的 各 个 子 
句 或 一 对 begin 和 end 的 开始 字母 写 在 同一 列 上 ,以 方便 程序 阅读 和 查 错 。 

为 了 便于 解释 语句 、 方 法 和 函数 ,本 书 语句 、 方 法 和 函数 格式 中 的 符号 采用 统一 约定 。 在 
各 语句 \ 方 法、 函数 的 语法 格式 和 功能 说 明 中 ,以 尖 插 号 一 二 、 方 括号 [ ]、 花 括号 { 八 竖 线 | . 逗 
号 加 省 略 号 ,…、 省 略 号 … 作 为 专用 符号 ,这 些 符 号 的 含义 如 表 2-16 所 示 。 
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表 2-16 常见 符号 含义 


符号 含义 
< 为 必 选 参数 表示 符 。 尖 括号 中 的 中 文 提示 说 明 ,由 使 用 者 根据 问题 的 需要 提供 具体 参数 。 
如 果 缺 少 必 选 参数 ,语句 则 发 生 语法 错误 
[J 为 可 选 参数 表示 符 。 方 括号 中 的 内 容 选 与 不 选 由 用 户 根据 具体 情况 决定 , 且 都 不 影响 语 
名 本 身 的 功能 
| 为 多 中 取 一 表示 符 ,含义 为 “或 者 选择 "。 坚 线 分 隔 多 个 选项 ,必须 选择 其 中 之 一 
归 ， 包含 多 中 取 一 的 各 项 
Ss 表示 同类 项 目的 重复 出 现 
表示 省 略 了 在 当前 的 叙述 中 不 涉及 的 部 分 


说 明 : 这 些 专 用 符号 和 其 中 的 提示 ,不 是 语句 行 或 函数 的 组 成 部 分 。 在 输入 具体 命令 或 
函数 时 ,上 面 的 符号 均 不 可 作为 语句 中 的 成 分 输入 计算 机 ,它们 只 是 语句 、 函 数 格式 的 书面 表 
示 。 例 如 : 


If < 布尔 表达 式 > Then < 语句 1 >[Else < 语句 2>]; 


2.6.2 常见 声明 语句 


在 Object Pascal 中 ,凡是 程序 要 用 到 的 标号 .常量 ` 变 量 . 类 型 ,过程 、 函 数 等 都 要 先 在 程 
序 的 Type 区 域 或 子 程序 的 Begin 语句 之 前 声明 ,这 就 要 用 到 声明 请 句 。 常 量 和 变量 声明 请 句 
在 前 面 已 经 进行 了 说 明 ,这 里 就 其 他 声明 语句 进行 介绍 。 

1. 标号 声明 语句 

所 谓 标 号 声明 语句 就 是 用 一 个 整 型 数 (标识 符 或 常数 ) 来 表示 程序 的 某 个 执行 语句 ,以 后 
用 goto 语句 可 以 很 方便 地 跳 转 到 这 个 语句 ,用 作 标 识 符 的 整数 必须 在 0 一 9999 之 间 ,一行 标 
号 声明 请 句 可 以 同时 声明 几 个 标号 ,其 用 法 如 下 所 示 。 

label Ma, Ab; 

var 

I: integer; 

begin 
“…// 语 句 
if(I=0) then goto AMa; 
…// 语 名 

Ra: begin 
…// 语 句 
end; 

end; 

2. 类 型 声明 语句 

在 Object Pascal 中 ,所 有 的 变量 必须 是 某 种 特定 的 数据 类 型 ,类 型 决定 了 它 所 能 包含 的 
数值 和 可 进行 的 操作 ,Object Pascal 已 经 预定 义 了 丰富 的 数据 类 型 ,更 重要 的 是 它 允 许 定义 新 
的 数据 类 型 ,用 类 型 声明 语句 可 以 定义 新 的 数据 类 型 。 例 如 : 


Type 
TmyDim: Array[1..10,1..5] of Double; 


上 面 的 语句 定义 了 一 个 新 的 数据 类 型 TmyDim 。 
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3. 过 程 声明 语句 

过 程 是 程序 中 一 个 相对 独立 的 部 分 , 它 可 以 被 看 成 一 段 小 程序 ,用 来 实现 某 种 特定 的 目 
标 ,在 完整 的 程序 中 它 被 当 作 一 个 语句 来 执行 。 在 建立 过 程 之 前 应 先 对 过 程 进行 声明 ,过 程 声 
明 参 见 下 面 的 语句 。 


procedure NumString(N: Integr;Var S: string); 


4. 函数 声明 语句 
函数 与 过 程 相似 ,它们 的 主要 区 别 在 于 函数 必须 有 返回 值 ,函数 的 声明 参见 下 面 的 语句 ， 
其 中 ,最 后 的 Real 表示 函数 的 返回 数据 类 型 。 


Function Power(X: Real;Y: Integer): Real; 


2.6.3 赋值 语句 和 程序 的 顺序 结构 


1. 赋值 语句 
任何 变量 在 使 用 之 前 都 必须 赋值 ,赋值 语句 是 最 简单 也 是 最 常用 的 语句 。 赋 值 语 句 的 语 
法 格式 为 : 


< 变量 名 >: = < 表达 式 >; 


赋值 语句 由 变量 名 开始 ,后 跟 赋 值 符号 : 。 在 = 的 右 端 是 一 个 表达 式 ,其 结果 的 数据 类 型 
必须 和 : == 左 端 变量 的 数据 类 型 兼容 ,最 后 以 分 号 "; ”结束 。 

2. 类 型 兼容 

所 谓 类 型 兼容 ,是 指数 据 类 型 不 完全 相同 的 量 之 间 能 进行 的 运算 和 赋值 操作 。 例 如 , 若 变 
量 Value 被 定义 为 Real 类 型 ,变量 Intl 被 定义 为 Integr 类 型 , 则 如 下 赋值 语句 : 


Int1: =12+10DIV3: 
将 右 端 表达 式 的 整数 结果 15 转换 为 Real 类 型 并 赋 给 Value, 即 符合 赋值 兼容 ,但 语句 
Int1: = value: 


不 符合 赋值 兼容 ,不 能 通过 编译 。 要 先 利 用 Round 或 Trunc 函数 将 其 转 为 整数 再 赋值 : 
Int1: = Round(Value) : 


又 如 ,运算 符 / 两 边 既 可 以 是 实数 类 型 或 整数 类 型 ,也 可 以 一 个 是 实数 类 型 , 另 一 个 是 整数 
类 型 , 均 符 合 运算 类 型 兼容 ; 但 运算 符 DIV 的 两 个 操作 数 必须 是 整数 类 型 ,不 存在 和 其 他 类 
型 的 运算 兼容 。 

3. 利用 赋值 语句 给 对 象 属性 赋值 

除了 给 予 一 般 变量 赋值 外 ,对 象 属性 赋值 也 是 程序 运行 时 的 重要 操作 。 由 于 属性 总 是 归 
属于 对 象 才 有 实际 意义 ,所 以 引用 属性 时 用 符号 “. ”来 连接 表示 其 隶属 关系 。 如 组 件 Editl 的 
文本 属性 表示 为 Editl. text, 其 字体 的 颜色 属性 表示 为 Editl. Font. Color。 

给 对 象 属性 赋值 的 语句 举例 如 下 。 

Label. Caption: = ' 输 入 加 数 '; 


Editl. Text: = // 相 当 于 将 Editl 的 文字 编辑 框 清空 
Editl. Font. Color: =clred; //clred 为 系统 定义 的 表示 红色 的 常量 符号 


第 2 章 Delphi 语法 基础 5 


Editl. Font. Size: =24; // 定 义 Editl 所 显示 的 文字 的 字号 
Button1.Enabled: =False; // 使 Buttonl 无 效 , 即 显示 灰色 ,不 再 响应 单 击 
Buttonl. Enabled: = False; // 使 Buttonl 无 效 , 即 显示 灰色 ,不 再 响应 单 击 
Buttonl. Enabled: = False; // 使 Buttonl 运行 时 ,在 操作 界面 上 不 显示 
Buttonl. Visible: =True; // 使 Buttonl 在 运行 界面 上 有 显示 


实际 上 ,所 有 对 象 的 所 有 属性 ,都 可 以 通过 赋值 语句 在 程序 运行 中 随时 改变 其 现行 值 ,而 
且 设 定 新 值 后 的 效果 会 立即 在 用 户 操作 界面 上 表现 出 来 ,或 对 程序 运行 即时 产生 影响 。 

4. 顺序 结构 

顺序 结构 是 程序 设计 中 最 简单 、 最 常用 的 结构 。 在 该 结构 中 ,各 操作 块 (对 应 于 程序 中 的 
“程序 段 ”) 按 照 出 现 的 先后 顺序 依次 执行 ,不 产生 程序 流程 的 其 他 转移 。 它 是 任何 程序 的 主体 
结构 ,即使 在 选择 结构 或 循环 结构 中 ,也 常 以 顺序 结构 作为 其 子 结构 。 

顺序 结构 通常 由 若干 个 赋值 语句 或 其 他 简单 语句 构成 , 例 2. 1 是 程序 顺序 结构 和 赋值 语 


句 的 应 用 举例 。 
【 例 2.1】 求 一 个 任意 三 角形 的 面积 。 
1) 界面 设计 


使 用 Button、Edit、Label 组 件 和 showmessage 消息 框 即 可 完成 界面 设计 ,用 户 界面 如 
图 2-1 所 示 。 


SO EE ela 
请 输入 三 角形 三 个 边 长 


图 2-1 顺序 结构 运行 的 操作 界面 


2) 属性 设置 
各 组 件 的 属性 设置 如 表 2-17 所 示 。 
表 2-17 窗 体 及 组 件 属性 设置 


对 象 属性 属性 值 说 明 
Label Caption 请 输入 三 角形 三 个 边 长 标签 的 内 容 
Editl Text 空白 输入 第 一 条 边 长 
Edit2 Text 空白 输入 第 二 条 边 长 
Edit3 Text 空白 输入 第 三 条 边 长 
Buttonl Caption 确定 按钮 的 标题 
Button2 Caption 清除 按钮 的 标题 

3) 程序 设计 


/1/ xxxxxxxx 单 击 ^“ 确 定 “按钮 事件 代码 xxxxxxxxxxxxxxx // 
procedure TForm2. ButtonlClick(Sender: TObject); 
var 

a,b,c,s,area: real; strl: string; // 关 键 分 析 1 
begin 

a: = strtofloat(editl. Text); 
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b: = strtofloat(edit2. Text); 

c strtofloat (edit3. Text); 

s: = (a+b+c)/2; 

area: =sqrt(s*(s-a)x*(s-b)x*(s-c)); 

str(area: 8: 3, str1); 

showmessage( ' 面 积 为 : ' + str1); // 关 键 分 析 2 
end; 
/1 xxxxxxxx 单 击 "清除 "按钮 事件 代码 xxxxxxxxxxxx%xx% /AN 
procedure TForm2. Button2Click( Sender: TObject); 
begin 

editl. Text: 

edit2. Text: 

edit3. Text: 
end 


4) 程序 分 析 

关键 分 析 1: 分 析 题 意 ,确定 算法 。 在 本 例 中 ,计算 公式 (也 称 数 学 模型 ) 已 经 给 出 , 即 基 本 
算法 问题 已 经 解决 ,但 要 把 该 算法 描述 出 来 ,首先 必须 安排 变量 。 由 于 本 例 涉 及 三 个 输入 量 
(三 角形 的 三 条 边 长 ) ,一 个 输出 量 ( 计 算 所 得 的 三 角形 面积 ) , 共 4 个 变量 分 别 命名 为 a、b、c 和 
area。 依 据 一 般 计算 要 求 ,它们 均 应 为 实数 类 型 。 另 外 ,为 了 描述 算法 需要 ,往往 还 要 安排 车 
干 保存 中 间 结 果 的 变量 ,在 本 例 中 ,安排 了 一 个 实数 类 型 的 变量 s。editl 、edit2、edit3 的 Text 
属性 是 字符 型 ,本 例 中 使 用 strtofloat() 函数 ,将 字符 型 数据 转换 成 浮 点 型 数据 。 

关键 分 析 2: showmessage 消息 框 是 Delphi 常用 的 对 话 框 之 一 ,是 一 个 在 系统 Dialog 单 
元 中 预定 义 的 标准 过 程 。 其 在 系统 的 Dialog 单元 中 的 声明 语句 为 : 


showmessage(const Msg: string); 


在 该 声明 语句 中 ,procedure 即 为 过 程 声明 语句 的 语句 定义 符 ; showmessage 即 被 声明 的 
过 程 名 ; 括号 内 为 该 过 程 形式 参数 Msg 的 说 明 ; const 说 明 Msg 的 值 在 调用 过 程 中 不 能 改 
变 , 且 可 以 为 常量 表达 式 ; 而 “: ”号 后 的 string 则 指明 Msg 为 String 类 型 。 调 用 
showmessage 过 程 时 ,将 弹出 一 个 显示 有 参数 Msg 的 值 的 对 话 框 。 本 例 用 showmessage 消息 
框 来 报告 每 次 的 计算 结果 ,如 图 2-2 所 示 。 


@ 求 三 角形 面 各 [oe| ¥ 


请 给 入 三 角形 三 个 边 长 pe 


面积 : 6.000 


2-2 运行 结果 


2.6.4 条件 语句 和 程序 的 选择 结构 

选择 结构 提供 了 选择 程序 执行 路 径 的 能 力 , 它 根据 不 同 的 条 件 选择 不 同 的 通路 ,实现 选择 
结构 的 是 话语 句 和 case 语句 ,这 两 种 语句 又 称 为 条 件 语句 ,条 件 语句 的 功能 就 是 根据 表达 式 
的 值 有 选择 地 执行 一 组 语句 。 
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1. 证 语句 

让 请 句 通过 条 件 的 布尔 表达 式 结果 来 选择 程序 的 执行 路 径 。 其 语法 格式 为 : 

证 < 条 件 > then [< 语句 1>][else < 语句 2>]; 

说 明 : 

三 条件 二 可 以 是 关系 表达 式 或 布尔 表达 式 。 如 果 一 条 件 二 的 值 为 真 , 则 执行 二 语句 1 二 ， 
否则 执行 二 语句 2 过 。 

因为 f…then*…else 语句 是 一 个 完整 的 语句 ,因此 在 else 保留 字 之 前 没有 分 号 。 如 果 加 
入 分 号 将 产生 编译 错误 。 

去 语句 之 可 以 是 简单 语句 ,也 可 以 是 复合 语句 。 

让 语 句 分 为 简单 条 件 语句 和 复合 条 件 语 句 两 种 。 

1) 简单 条 件 语 句 

简单 条 件 语 句 的 二 语句 二 中 不 包含 其 他 的 条 件 语 句 , 其 示例 程序 如 下 所 示 。 


Var x,y,z: Integer; 


begin 


if (x>10) and (y>5) then 
[4 和 
else 
Zz: =2x (x+y); 
end; 


说 明 : 在 让 语 句 中 ,如 果 只 有 一 个 条 件 表达 式 , 可 以 用 圆 括号 把 表达 式 括 起 来 ,也 可 以 不 
用 ,但 车 有 两 个 或 两 个 以 上 的 条 件 表达 式 时 ,就 必须 用 括号 把 条 件 表达 式 括 起 来 。 在 该 例 中 ， 
有 两 个 条 件 表达 式 , 所 以 必须 用 括号 把 它们 括 起 来 。 

当 分 支 结构 中 的 两 个 分 支 之 一 有 一 个 为 空 ( 无 操作 ) 时 ,可 转化 为 更 为 简单 的 分 支 结构 , 它 
可 由 条 件 语句 if…then 来 描述 ,其 语法 规则 为 : 


if < 条 件 > then < 语句 >; 


执行 过 程 为 : 当 条 件 成 立时 执行 then 后 的 语句 ,然后 顺序 向 下 执行 ; 否则 跳 过 then 后 的 
语句 并 顺序 向 下 执行 。 

2) 复合 条 件 语 句 

如 果 在 让 语句 格式 中 的 所 语句 1 二 或 志 语 句 2 二 本身 又 是 一 个 让 语句 , 则 称 为 和 f 语 句 的 
嵌 套 , 嵌 套 的 计 语 句 又 被 称 为 复合 条 件 语 句 。 例 2. 2 就 是 复合 条 件 语句 的 应 用 。 

【 例 2.2】 铁路 托运 行李 ,从 甲 地 到 乙 地 ,规定 
每 张 客票 托运 费 计 算 方法 是 : 行李 重量 不 超过 50kg 
时 ,每 千克 0. 25 元 ,超过 50kg 而 不 超过 100kg 时 ， 
其 超过 部 分 0. 35 元 /kg, 超 过 100kg 时 ,其 超过 部 分 
0.45 元 /kg。 试 编写 程序 ,输入 行李 重量 ,计算 并 输 
出 托运 的 费用 。 

(1) 界面 设计 

使 用 Button、Edit、Label 组 件 即 可 完成 界面 设 图 2-3 “让 语句 的 应 用 ”操作 界面 
计 , 用 户 界面 如 图 2-3 所 示 。 
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(2) 属性 设置 
各 组 件 的 属性 设置 如 表 2-18 所 示 。 


表 2-18 窗 体 及 组 件 属性 设置 


对 象 属性 属性 值 说 明 
Labell Caption 行李 重量 (千克 ) 标签 的 内 容 
Label2 Caption 行李 托运 费 共 计 ( 元 ) 标签 的 内 容 
Editl Text 空白 输入 行李 重量 
Edit2 Text 空白 计算 托运 费 
Buttonl Caption 确定 按钮 的 标题 
Button2 Caption 清除 按钮 的 标题 
(3) 程序 设计 


/1 xxxxxxx# 单 击 "确定 "按钮 事件 代码 xxxxxxxxxxxxxxxx // 


procedure TForm2. ButtonlClick( Sender: TObject); 
var 
W,x: real; 


begin 


if edit1.text = '' then editl1. Text: = '0'; // 关 键 分 析 1 


w: = strtofloat(editl. Text); 


if w<= 50 then // 关 键 分 析 2 


X: =0.25#wW 
else 
if w<= 100 then 
x: =0.25*50+0.35* (w— 50) 
else 
x: =0.25*50+0.35*50+0.45* (w— 100); 
edit2. Text: = floattostr(x); 
editl. SelStart: =0; 
edit1. Sellength: = length(editl.Text); 
end; 
// xxxxxxx 单 击 "清除 "按钮 事件 代码 xxxxxxxxxxxxxxxx // 
Procedure TForm2. Button2Click( Sender: TObject); 


begin 
editl. Text: = ?7 
edit2. Text: = ""; 
end; 


// xxxxxxx 防止 非法 键 输入 事件 代码 xxxxxxxxxxxxxxxx // 


procedure TForm2. EditlKeyPress(Sender: TObject; var Key: Char); 


var 
B:boolean; 
begin 
B: = (key <#8) 
or 
(key>#8)and(key<#45) 
or 
(key>#46)and(key<#48) 
or 
(key>#57); 
if B then 
key: = #0; 
end; 
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(4) 程序 分 析 
关键 分 析 1: 为 了 防止 编辑 框 Editl 中 为 空 而 引发 错误 ,增加 了 以 下 请 句 : 


if editl. text = ''then editl.Text: = "0'; 


关键 分 析 2: 复合 语句 的 应 用 。 本 例 中 ,在 让 语句 中 租 入 了 一 个 让 语句 , 则 称 为 让 语句 的 
嵌 套 , 嵌 套 的 计 语 句 又 被 称 为 复合 条 件 语句 。 

关键 分 析 3: 为 了 防止 编辑 框 Editl 中 输入 非法 字符 ,设置 了 布尔 类 型 变量 1, 其 中 ,#8 对 
应 BackSpace 键 、#45 对 应 “一 ” 键 ,#46 对 应 *. 键 , 井 48 一 井 57 对 应 “0 一 “9? 键 。 如 果 按 下 
的 键 为 上 述 键 ,变量 B 的 值 为 False,key 值 即 为 按 下 的 键 值 ; 如 果 按 下 的 键 值 为 非 上 述 键 ,为 
非法 键 变量 B 的 值 赋 为 True; key 值 将 被 置 为 #0, 屏 项 非法 键 。 

2. case 语句 

使 用 证 语句 可 以 方便 地 实现 双 分 支 选择 结构 ,但 是 ,对 于 多 分 支 选择 情况 , 若 仍 然 使 用 计 
语句 ,就 必须 采用 多 层 骨 套 ,非常 烦琐 。 为 此 ,Object Pascal 提供 了 case 语句 专门 来 实现 多 分 
支 选择 结构 。case 语句 以 清晰 简洁 .直观 的 形式 描述 了 多 路 择 一 的 功能 , 它 根据 “选择 器 表达 
式 ” 的 值 , 来 决定 执行 相应 的 语句 。case 语句 的 语法 格式 为 : 


case < 选择 器 表达 式 > of 
< 情况 常量 表 1>: < 语句 1>; 


< 情况 常量 表 n>: < 语句 n>; 
[else 
< 其 他 语句 列 >; ] 
end; 
说 明 : 
case 语句 由 保留 字 case 开始 到 它 所 对 应 的 保留 字 end 结束 。 
去 选择 器 表达 式 二 的 值 必须 是 顺序 类 型 (如 整 型 .字符 型 .布尔 型 . 子 界 型 等 ) 。 
去 情况 常量 表 过 中 的 值 应 该 是 二 选择 器 表达 式 过 可 能 具有 的 值 ,各 常量 之 间 用 逗号 分 隔 ， 
所 有 常量 表 中 的 值 必须 互 不 相同 。 
去 语句 之 可 以 是 简单 语句 ,也 可 以 是 复合 语句 。 
case 语句 首先 计算 二 选择 器 表达 式 二 的 值 , 然 后 判断 该 值 是 否 等 于 某 个 常量 , 若 相等 则 执 
行 该 常量 后 面 的 语句 ,执行 完 该 语句 后 , 跳 过 所 有 其 他 语句 , 转 去 执行 end 后 面 的 语句 。 若 与 
所 有 情况 常量 表 中 所 列 的 常量 都 不 相等 , 则 执行 else 后 面 的 语句 列 。 
由 于 所 选择 器 表达 式 二 的 值 必 须 是 顺序 类 型 ,case 语句 在 使 用 时 受到 了 一 些 限制 。 某 些 
问题 在 使 用 case 语句 时 ,必须 对 表达 式 进行 变换 ,下 面 用 case 语句 来 计算 例 2. 2 中 的 托运 费 。 
其 对 应 的 程序 段 为 : 
var 
WwW, Xx: real; 

begin 

a Trunc((w— 0.00001)/50) of // 关 键 分 析 
0 x: =0.25%W 
1: x: =0.25x*50+0.35* (w— 50); 


else 
x: =0.25*50+0.35x*50+0.45x* (w— 100); 
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end; 
wd; 
关键 分 析 : 由 于 行李 重量 w 是 一 个 实数 ,必须 将 其 转换 为 整数 (顺序 类 型 )。 为 此 , 取 表达 


式 : Trunc((w 一 0.00001)/50) ,这 样 , 当 w 落 在 [0,50],(50,100] 区 间 时 ,表达 式 的 值 正 好 为 
整数 值 0,1。 


2.6.5 循环 语句 和 程序 的 循环 结构 


在 程序 设计 中 ,从 某 处 开始 有 规律 地 反复 执行 某 一 程序 块 的 现象 称 为 “循环 ”, 完 成 这 一 功 
能 的 程序 结构 为 “循环 结构 ”, 而 其 中 重复 执行 的 程序 块 称 为 “循环 体 "。 使 用 循环 可 以 避免 不 
必要 的 重复 操作 ,简化 程序 ,节约 内 存 , 从 而 提高 效率 。Object Pascal 提供 的 循环 结构 语句 有 
三 种 ,它们 分 别 是 : while 语句 、repeat 语句 以 及 for 语句 。 

无 论 何 种 类 型 的 循环 结构 ,其 特点 都 是 : 循环 体 执行 与 否 及 其 执行 次 数 多 少 都 必须 视 其 
循环 类 型 与 条 件 而 定 , 且 必须 确保 循环 体 的 重复 执行 能 有 适当 的 时 候 得 以 终止 ( 即 非 死 循环 ) 。 

1. while 语句 

while 语句 属于 前 测 型 循环 结构 。 首 先 判断 条 件 ,根据 条 件 决定 是 否 执行 循环 ,执行 循环 
的 最 少 次 数 为 0。 其 语法 格式 为 : 

while < 条 件 > do 

[< 循环 体 >]; 

说 明 : 

(1) 二 条 件 二 是 一 个 具有 Boolean 值 的 条 件 表 达 式 ,为 循环 的 条 件 。 

(2) 二 循环 体 二 可 以 是 简单 语句 、 复 合 语句 和 其 他 结构 语句 。 

(3) while 循环 的 执行 过 程 : 首先 计算 二 条 件 二 的 值 ,如 果 二 条 件 二 为 真 (True), 则 执行 
do 后 面 的 循环 体 ,执行 完 后 ,再 开始 一 个 新 的 循环 : 如 果 志 条 件 二 为 假 (False) , 则 终止 循环 ， 
执行 二 循环 体 二 后 面 的 语句 。 

(4) 可 以 在 志 循 环 体 二 中 的 任何 位 置 用 break 语句 来 终止 while 循环 , 即 随时 跳出 while 
循环 。break 语句 通常 位 于 计 语 句 之 后 。 

(5) 可 以 在 循环 体 中 的 任何 位 置 放 置 continue 语句 ,以 便 在 整个 循环 体 没 有 执行 完 就 重 
新 判断 二 条 件 二 ,以 决定 是 否 开始 新 的 循环 。continue 语句 通常 位 于 让 语句 之 后 。 

while 语句 的 应 用 可 见 例 2. 3。 

【 例 2.3〗 求 累加 和 1 十 2 十 3 十 … 十 100。 

1) 界面 设计 

使 用 Button、Edit、Label 组 件 即 可 完成 界面 设计 ,用 户 界面 如 图 2-4 所 示 。 


图 2-4 “while 语句 的 应 用 ”操作 界面 
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2) 


属性 设置 


各 组 件 的 属性 设置 如 表 2-19 所 示 。 


表 2-19 窗 体 及 组 件 属性 设置 


对 象 属性 属性 值 说 明 
Labell Caption 1 十 2 十 3 十 … 十 100 一 标签 的 内 容 
Editl Text 空白 计算 累加 和 
Buttonl Caption 确定 按钮 的 标题 
Button2 Caption 清除 按钮 的 标题 

3) 程序 设计 


/1 xxxxxxxx 单 击 "确定 "按钮 事件 代码 *xx%xxxx%x%% AN 
procedure TForm3. ButtonlClick( Sender: TObject); 
var 


s,n: integer; // 关 键 分 析 1 
begin 
s: =0;n: =1; 
while n<= 100 do // 关 键 分 析 2 
begin 
s: =S+ni 
n: =n+1; 
end; 


editl, Text: = inttostr(s); 


end, 
// 


xxxxxxxx 单 击 "清除 "按钮 事件 代码 xxxxxxxxxxxxxxxx // 


procedure TForm3. Button2Click( Sender: TObject); 
begin 


editl. Text: = "7 


end; 


4) 


程序 分 析 


关键 分 析 1: 采用 累加 的 方法 ,用 变量 s 来 存放 累加 的 和 (开始 为 0) ,用 变量 n 来 存放 “加 
数 ”( 加 到 s 中 的 数 ) ,这 里 n 又 称 为 计数 器 ,从 1 开始 到 100 为 止 。 

关键 分 析 2: 使 用 while 循环 ,必须 在 循环 头 的 前 面 为 循环 变量 赋 初 值 。 循 环 体 执行 完 一 
次 后 ,循环 变量 必须 加 1, 即 必须 在 循环 体 的 最 后 有 n: 一 n 十 1 语句 。 


2. 


repeat 语句 


repeat 语句 与 while 语句 一 样 ,也 是 采用 逻辑 形式 来 控制 循环 的 执行 次 数 ,只 不 过 repeat 
语句 属于 后 测 型 循环 结构 , 它 首 先 执行 循环 体 ,然后 判断 条 件 , 根 据 条 件 决定 是 否 继续 执行 循 
环 ,因此 执行 循环 的 最 少 次 数 为 1。 其 语法 格式 为 : 


repeat 

[< 循环 体 >] 

until < 条 件 >; 

说 明 : 

(1) 二 条 件 二 是 一 个 具有 Boolean 值 的 条 件 表达 式 ,为 循环 的 条 件 。 


(2 


) 二 循环 体 二 可 以 是 一 条 语句 ,也 可 以 是 多 条 语句 。 多 条 语句 无 须 用 begin…end 括 起 


来 ,而 


保留 字 repeat 与 until 将 其 括 起 。 
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(3) repeat 循环 的 执行 过 程 : 首先 执行 二 循环 体 二 ,然后 计算 二 条 件 二 的 值 ,如 果 二 条 件 二 
为 假 (False) , 则 开始 一 个 新 的 循环 ; 如 果 二 条 件 二 为 真 (True), 则 终止 循环 ,执行 Until 志 条 
件 二 后 面 的 语句 。 

(4) 可 以 在 循环 体 中 的 任何 位 置 放置 break 语句 来 强制 终止 repeat 循环 , 即 随时 跳出 
repeat 循环 。break 语句 通常 位 于 让 语句 之 后 。 

(5) 可 以 在 循环 体 中 的 任何 位 置 放置 continue 语句 ,以 便 在 整个 循环 体 没 有 执行 完 就 重 
新 判断 (条 件 ) ,以 决定 是 否 开始 新 的 循环 。continue 语句 通常 位 于 计 语 句 之 后 。 

【 例 2.4】 输入 两 个 正 整数 , 求 它 们 的 最 大 公约 数 。 

1) 界面 设计 

使 用 Button、Edit、Label 组 件 即 可 完成 界面 设计 ,用 户 界面 如 图 2-5 所 示 。 


请 输入 两 个 正 整 数 : 
N=1 
M= 


最 大 公约 数 : 


图 2-5 “repeat 语句 的 应 用 ”操作 界面 
2) 属性 设置 
各 组 件 的 属性 设置 如 表 2-20 所 示 。 
表 2-20 窗 体 及 组 件 属性 设置 


对 象 属性 属性 值 说 明 
Labell Caption 请 输入 两 个 正 整数 : 标签 的 内 容 
Label2 Caption N= 标签 的 内 容 
Label3 Caption M= 标签 的 内 容 
Label4 Caption 最 大 公约 数 : 标签 的 内 容 
Editl Text 空白 输入 一 个 正 整 数 
Edit2 Text 空白 输入 另 一 个 正 整 数 
Edit3 Text 空白 显示 两 个 数 的 公约 数 
Buttonl Caption 计算 按钮 的 标题 
Button2 Caption 结束 按钮 的 标题 

3) 程序 设计 


/1 xxxxxxxx 单 击 "计算 "按钮 事件 代码 xxxxxxxxxxxxxxxx // 


procedure TForm3. Button1Click(Sender: TObject) ; 
var 
n,nm, temp,r: integer; 
begin 
n: = strtoint(edit1. Text); // 关 键 分 析 1 
m: = strtoint(edit2. Text); 
if n>m then // 关 键 分 析 2 
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temp: =n;n: =mm: = temp; 


repeat // 关 键 分 析 3 
=m mod n; 
m: =n; 
=r; 
until r=0; 
edit3. Text: =format('%s 与 $s 的 最 大 公约 数 是 %d'， 
[edit1. text, edit2. text, m] ); 
end; 


/1 xxxxxxxx 单 击 "结束 "按钮 事件 代码 xxxxxxxxxxxxxxx% // 

procedure TForm3. Button2Click( Sender: TObject); 

begin 

editl. Text: 
edit2. Text: f 
edit3. Text: ee 

end; 

4) 程序 分 析 

关键 分 析 1: 求 最 大 公约 数 可 以 用 “回转 相 除 法 ”, 方 法 如 下 。 

(1) 以 大 数 m 作 被 除数 ,小 数 n 作 除 数 , 相 除 后 余数 为 r。 

(2) 若 r 不 等 于 0, 则 n 一 m,r 一 n, 继 续 相 除 得 到 新 的 r。 若 仍 有 上 不 等 于 0, 则 重复 此 过 
程 , 直 到 r 一 0 为 止 。 

(3) 最 后 的 n 就 是 最 大 公约 数 。 

关键 分 析 2: 交换 两 个 数 的 值 ,因为 “回转 相 除 法 ”算法 的 要 求 , 规 定 后 面 的 整数 运算 中 , 变 
量 m 的 值 要 大 于 变量 n 的 值 ,而 用 户 的 输入 却 没 有 这 个 要 求 ,所 以 首先 要 比较 n 和 m 的 大 小 ， 
如 果 n 二 m, 则 必须 交换 n 和 m 的 值 。 交 换 两 个 数 的 值 需 要 用 到 中 间 变 量 temp。 

关键 分 析 3: repeat 循环 的 应 用 ,根据 “ 驾 转 相 除法 ”, 可 能 重复 多 次 整除 运算 ,所 以 要 用 循 
环 诸 句 ,至 少 要 进行 一 次 n 和 m 的 整除 运算 , 且 循 环 次 数 不 固定 ,r=0 时 就 退出 循环 ,所 以 选 
用 repeat 语句 。 

3. for 语句 

在 不 知道 需要 执行 多 少 次 循环 时 ,应 该 用 while 或 repeat 循环 。 但 是 , 若 知道 要 执行 多 少 
次 循环 时 , 则 最 好 使 用 for 循环 结构 。 与 前 两 种 循环 不 同 ,for 循环 使 用 一 个 循环 变量 ,每 重复 
一 次 循环 之 后 ,循环 变量 的 值 就 会 自动 增加 或 者 减少 。for 语句 的 语法 格式 为 : 

for < 循环 变量 > = < 初 值 >{to| downto}j< 终 值 > do 

[< 循环 体 >]; 

说 明 : 

(1) 二 循环 变量 二 为 必要 参数 ,用 作 循 环 计数 器 ,只 能 是 顺序 类 型 。 

(2) 所 初 值 这 和 去 终 值 过 表示 志 循 环 变量 之 的 初 值 和 终 值 ,可 以 是 表达 式 , 但 应 与 二 循环 
变量 二 的 类 型 相同 , 若 为 表达 式 , 则 在 进入 循环 之 前 已 被 计算 确定 。 在 循环 体 中 改变 初 值 或 终 
值 表达 式 中 变量 的 值 ,并 不 影响 循环 的 次 数 。 

(3) to 表示 计数 器 递增 ,downto 表示 计数 器 递减 。 

(4) 二 循 环 体 二 可 以 是 简单 语句 、 复 合 语句 和 其 他 语句 。 
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(5) for 循环 的 执行 过 程 : 首先 判断 循环 变量 的 值 是 否 “ 超 过 ” 终 值 (对 于 递增 循环 为 大 
于 ,对 于 递减 循环 为 小 于 ) ,车 已 超过 则 跳出 循环 ,执行 二 循环 体 二 后 面 的 语句 ; 若 未 超过 则 执 
行 do 后 面 的 和 循环 体 >, 然 后 循环 变量 自动 * 增 量 ”( 递 增 或 递减 ) 并 开始 一 个 新 的 循环 。 

(6) 可 以 在 过 循环 体 盖 中 的 任何 位 置 放 置 break 语句 来 强制 终止 for 循环 ,break 语句 通 
常 位 于 这 语句 之 后 。 

(7) 可 以 在 循环 体 中 的 任何 位 置 放 置 continue 语句 ,在 整个 循环 体 没 有 执行 完 就 重新 开 
始 新 的 循环 。continue 语句 通常 位 于 计 语 句 之 后 。 

【 例 2.5】 输入 一 个 正 整数 ,判断 是否 是 一 个 “ 素 
数 ”, 所 谓 “ 素 数 ” 是 指 除 了 1 和 该 数 本 身 ,不 能 被 任何 整数 
整除 的 数 。 

1) 界面 设计 

使 用 Button、Edit、Label 组 件 即 可 完成 界面 设计 ,用 户 
界面 如 图 2-6 所 示 。 

2) 属性 设置 图 2-6 “for 语 句 的 应 用 ”操作 界面 

各 组 件 的 属性 设置 如 表 2-21 所 示 。 


表 2-21 窗 体 及 组 件 属性 设置 


和 for 语句 的 应 用 


请 输入 一 个 正 整数 N; 
下 | 
判断 结果 ， 


对 象 属性 属性 值 说 明 
Labell Caption 请 输入 一 个 正 整 数 N: 标签 的 内 容 
Label2 Caption 判断 结果 : 标签 的 内 容 
Lakel3 Caption N= 标签 的 内 容 
Editl Text 空白 输入 一 个 正 整 数 
Edit2 Text 空白 判断 是 否 素数 
Buttonl Caption 判断 按钮 的 标题 
Button2 Caption 清除 按钮 的 标题 

3) 程序 设计 


/1 xxxxxxxx 单 击 "判断 "按钮 事件 代码 xxxxxxxxxxxxxxxx // 
Procedure TForml. Button1Click(Sender: TObject); 
var 
Sn,i,j: Integer; 
m,q: real; 
a: string; 
begin 
m: = strtofloat(editl. Text); 
n: = round(m); 
if n<3 then showmessage( ' 请 输入 一 个 大 于 2 的 整数 ! '); 
s: =0; 
q: = sqrt(m); 
j: =trunc(q) +1; 
for i: =2 tojdo // 关 键 分 析 
begin 
if n mod i=0 then 
begin 
| a 
break; 
end; 
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end; 
if s=0 then 

= "是 一 个 素数 ， 
else 

= ' 不 是 一 个 素数 '; 


edit2. Text: = editl.Text+a; 
edit1. SelectAll; 
edit1. SetFocus; 
end; 
procedure TForm1. Button2Click( Sender: TObject); 


4) 程序 分 析 


关键 分 析 : 使 用 for 语句 需要 注意 , 当 使 用 to 时 ,要 保证 终 值 不 小 于 初 值 ,使 用 downto 
时 ,要 保证 初 值 不 小 于 终 值 ; 当 控制 变量 等 于 终 值 时 仍然 要 执行 一 次 循环 。 


4. 循环 的 泣 套 

在 前 面 的 例子 中 ,循环 语句 的 循环 体 中 仅 包含 简单 语句 
环 。 如 果 在 循环 体 中 又 包含 男 一 个 循环 结构 , 则 称 为 多 重 
循环 。 这 种 情况 又 称 为 循环 的 嵌 套 。 

前 面 介 绍 的 三 种 类 型 的 循环 可 以 互相 嵌 套 。 在 循环 
体 中 的 嵌 套 称 为 内 循环 ,外 部 的 循环 称 为 外 循环 。 多 重 循 
环 嵌 套 的 层 数 几乎 可 以 是 任意 的 ,根据 循环 结构 嵌 套 的 层 
数 可 以 分 为 二 重 循环 、 三 重 循环 等 。 

【 例 2.6】 我 国 古代 著名 的 “ 百 钱 买 百 鸡 ” 问 题 : 每 只 
公鸡 值 5 元 ,每 只 母 鸡 值 3 元 ,三 只 小 鸡 值 1 元 , 现 用 100 
元 买 100 只 鸡 , 问 公鸡 、 母 鸡 和 小 鸡 各 买 几 只 ? 

1) 界面 设计 

使 用 Button、Label 组 件 即 可 完成 界面 设计 .用户 界 
面 如 图 2-7 所 示 。 

2) 属性 设置 

各 组 件 的 属性 设置 如 表 2-22 所 示 。 

表 2-22 窗 体 及 组 件 属性 设置 
对 象 属性 属 性 值 


,这 种 类 型 的 循环 结构 称 为 单 重 循 
mes 


公鸡 5 元 ， 母 鸡 3 元 ，3 
只 小 
只 鸡 ， 
鸡 各 买 


二 用 100 光 芝 100 


图 2-7 “循环 的 嵌 套 ”操作 界面 


说 明 


Labell Caption ”公鸡 5 元 , 母 鸡 3 元 ,三 只 小 鸡 1 元。 用 100 元 买 100 只 ”标签 的 内 容 


鸡 , 问 公鸡 、 母 鸡 和 小 鸡 各 买 几 只 ? 
Label2 Caption 公鸡 
Label3 Caption 母 鸡 
Label4 Caption ”小 鸡 
Memol Name Memol 


Buttonl Caption ”计算 
Button2 ”Caption ”清除 


标签 的 内 容 
标签 的 内 容 
标签 的 内 容 

将 显示 所 买 各 种 鸡 的 
个 数 

按钮 的 标题 
按钮 的 标题 
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3) 程序 设计 


// xxxxxxxx 单 击 "计算 "按钮 事件 代码 xxxxxxxxxxxxxxxx // 
procedure TForm2. Button1Click(Sender: TObject) ; 
Var 

XrYrZ: integer; 


p: string; 
begin 
memol. Clear; // 关 键 分 析 1 
for x: =0to 19 do 
for Y: =0to 33 do // 关 键 分 析 2 
begin 


SB 00=x= 
if 5xx+3x*y+z/3=100 then 
begin 
p: =format('%3d %3d %3d', [x,y,2]); 
memol. Lines. add(p); 
end; 
end; 
end; 
/1 xxxxxxxx 单 击 "清除 "按钮 事件 代码 xxxxxxxxxxxxxxx% // 
Procedure TForm2. Button2Click( Sender: TObject); 


begin 
memol,. Text: = ""; 
end; 
4) 程序 分 析 
关键 分 析 1: 设 公鸡 x 只 , 母 鸡 y 只 ,小 鸡 z 只 , 依 题 意 , 列 出 以 下 方程 组 。 
x 十 y 十 z 一 100 {Ly 
5x 十 3y 十 z/3 王 100 (2) 


由 于 两 个 方程 式 中 有 三 个 未 知 数 ,属于 不 定 方 程 ,无 法 直接 求解 。 可 以 用 “ 穷 举 法 ”来 进行 
“ 试 根 ”, 即 将 各 种 可 能 的 x、y、z 组 合 一 一 进行 测试 ,将 符合 条 件 者 输出 即 可 ,考虑 到 公鸡 最 多 
只 能 买 19 只 , 母 鸡 最 多 只 能 买 33 只 ,所 以 可 设计 出 双重 循环 程序 。 

关键 分 析 2: 在 设计 和 编写 多 重 循 环 时 ,应 注意 以 下 两 个 问题 。 

(1) 内 、 外 层 循环 体 只 能 嵌 套 ,不 能 交叉 。 

(2) 不 同 层 的 循环 变量 不 能 同名 ,但 同一 层 并 列 循环 变量 可 以 同名 。 

5. 循环 的 中 断 

在 某 些 特殊 情况 下 ,需要 中 断 正 在 执行 的 循环 ,可 以 使 用 break 语句 或 continue 语句 。 
break 请 句 或 continue 语句 可 以 放 在 循环 体 的 任意 位 置 ,通常 放 在 让 语句 之 后 。 

执行 break 请 句 的 结果 是 : 跳出 整个 循环 ,执行 二 循环 体 二 之 后 的 请 句 。 

执行 continue 语句 的 结果 是 : 跳出 本 轮 循环 ,然后 判断 循环 条 件 是 否 成 立 ,再 决定 是 否 开 
始 新 一 轮 的 循环 。 

【 例 2.7】 从 自然 数 1 开始 ,计算 不 能 被 3 整除 的 正 整数 的 个 数 , 并 将 这 些 正 整数 进行 求 
和 ,要 求 总 和 不 能 超过 32 767。 最 后 输出 参加 求 和 的 最 大 数 n、1~n 不 能 被 3 整除 的 个 数 及 
1~n 不 能 被 3 整除 的 累加 和 。 

1) 界面 设计 

使 用 Button、Edit、Label 组 件 即 可 完成 界面 设计 ,用 户 界 面 如 图 2-8 所 示 。 
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不 能 被 整除 的 整数 求 和 ， 
参加 求 和 的 最 大 值 ， 


不 能 被 整除 的 数字 的 个 数 : 
从 1 开始 累加 求 和 的 值 为 : 


图 2-8 
2) 属性 设置 


“循环 的 中 断 ” 操 作 界 面 


各 组 件 的 属性 设置 如 表 2-23 所 示 。 
表 2-23 窗 体 及 组 件 属性 设置 


对 象 属性 属 性 值 说 明 
Labell Caption 不 能 被 3 整除 的 整数 求 和 : 标签 的 内 容 
Label2 Caption 参加 求 和 的 最 大 值 : 标签 的 内 容 
Label3 Caption 不 能 被 3 整除 的 数字 的 个 数 : 标签 的 内 容 
Label4 Caption 从 1 开始 累加 求 和 的 值 为 : 标签 的 内 容 
Editl Text 空白 显示 参加 求 和 的 最 大 值 
Edit2 Text 空白 显示 不 能 被 3 整除 的 整数 个 数 
Edit3 Text 空白 显示 从 1 开始 累加 求 和 的 值 
Buttonl Caption 开始 按钮 的 标题 
Button2 Caption 结束 按钮 的 标题 

3) 程序 设计 


// xxxxxxxx 单 击 " 开 始 "按钮 事件 代码 xxxxxxxxxxxxxx x // 


Procedure TForm1. ButtonlClick(Sender 
var 

i,k,t: integer; 
begin 


repeat 
FE 
if i mod 3 = 0 then 
continue; 
if t+i>32767 thenC 
break; 
te 
EE: =k+1; 
until false; 
editl. Text: = inttostr(i—1); 
edit2. Text: = inttostr(k); 
edit3. Text: = inttostr(t); 
end; 
Procedure TForml. Button2Click( Sender 
begin 
RE Pew: mw 


: TObject); 


// 关 键 分 析 1 


// 关 键 分 析 2 


// 关 键 分 析 3 


: TObject); 
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edit2. Text: = 和 
edit3. Text: = ''; 
end; 
4) 程序 分 析 
关键 分 析 1: continue 语句 的 应 用 , 当 循环 变量 i 能 被 3 整除 的 时 候 ,continue 语句 将 中 断 
本 轮 循环 , 即 不 再 运行 循环 体 中 该 让 请 句 后 面 的 其 他 语句 ,直接 跳 转 到 循环 尾 until 请 句 ,进行 
循环 条 件 的 判断 ; 如 果 不 满足 循环 退出 的 条 件 , 则 继续 下 一 轮 循环 。 
关键 分 析 2: break 语句 的 应 用 , 当 累 加 和 将 要 超过 32 767 时 ,break 语句 中 断 整 个 循环 的 
执行 , 即 不 再 执行 循环 体 的 任何 语句 ,退出 repeat 循环 ,开始 执行 until 后 面 的 语句 。 
关键 分 析 3: 特殊 的 循环 退出 条 件 ,repeat 循环 的 循环 尾 until 后 面 是 循环 退出 的 条 件 , 即 
如 果 该 条 件 表达 式 的 值 为 true, 将 退出 循环 。 而 在 本 例 中 ,该 表达 式 就 是 好 辑 值 false, 在 这 种 
特殊 的 情况 下 ,循环 在 这 里 永远 不 可 能 满足 退出 条 件 。 为 了 不 造成 死 循 环 ,必须 在 循环 体内 设 
置 退 出 循环 的 break 语句 。 


2.7 程序 异常 处 理 与 调试 技术 


在 Delphi XE8 中 有 两 种 程序 错误 : 一 种 是 编译 错误 ,在 程序 编辑 阶段 就 可 以 由 编译 器 发 
现 并 给 出 提示 ; 另外 一 种 是 运行 错误 ,这 类 错误 不 能 在 编译 阶段 查 出 ,只 能 在 程序 执行 时 发 
现 , 称 为 运行 错误 。Delphi XE8 提供 了 一 种 机 制 来 处 理 运 行 错误 ,保护 程序 的 正常 执行 ,这 种 
机 制 就 是 异常 处 理 。 异 常 处 理 的 方法 是 把 正常 的 执行 程序 同 错误 的 处 理 程序 分 离开 来 ,这 样 
可 以 保证 在 没有 错误 时 ,程序 正常 执行 , 当 发 生 错误 时 ,执行 错误 处 理 部 分 的 程序 ,然后 程序 跳 
出 保护 模块 ,继续 执行 后 续 的 程序 

Delphi XE8 对 应 用 程序 中 经 常 产生 的 异常 在 SysUtils、DB、ComCtrl 等 多 个 库 单 元 中 进 
行 了 定义 。 如 果 在 应 用 程序 的 uses 部 分 引用 了 这 些 库 文件 , 则 在 遇 到 错误 时 ,系统 会 自动 提 
交 蜡 常 ,一 般 会 弹出 一 个 错误 信息 对 话 框 , 报 告发 生 错误 。 用 户 可 以 定义 自己 的 异常 处 理 模 
块 ,产生 自 定 义 的 异常 处 理 消息 ,也 可 以 定义 自己 的 异常 处 理 类 ,用 来 响应 特殊 的 程序 异常 。 

异常 处 理 也 是 Object Pascal 程序 语言 不 可 或 缺 的 一 环 ,事实 上 ,真正 完善 的 应 用 程序 ,都 
需要 以 "异常 处 理 ” 作 为 它 完美 表现 的 后 盾 。 


2.7.1 异常 处 理 的 目的 


什么 是 异常 处 理 ? 假设 导弹 发 射 的 工作 正在 进行 中 ,而 发 射 的 程序 设 定 是 在 点 火 后 让 它 
升 空 飞行 ,然而 导弹 发 射 控制 导弹 飞行 的 系统 发 生 了 某 种 错误 ,而 系统 程序 又 不 负责 处 理 它 ， 
将 导致 不 开 估量 的 后 果 。 试 问 这 种 情况 该 如 何 处 理 ? 为 避免 这 种 情况 发 生 , 就 需要 用 到 异常 
处 理 。 

虽然 举 这 样 的 例子 有 些 夸 大 其 词 ,但 实际 上 我 们 所 开发 的 应 用 程序 若 在 执行 时 发 生 了 程 
序 不 负责 处 理 的 错误 ,对 于 用 户 而 言 ,其 损失 疏 伯 难以 预料 。 为 了 避免 程序 在 执行 中 出 现 可 能 
超 乎 预料 结果 而 导致 错误 的 状况 ,对 这 些 异常 的 状况 做 妥善 的 处 理 , 不 让 异常 的 状况 造成 错误 
的 结果 ,致使 程序 异常 停止 ,这 就 是 异常 处 理 存 在 的 目的 。 

或 许 读者 会 认为 所 开发 的 程序 是 可 以 执行 的 ,因此 不 需要 异常 处 理 , 然 而 当 程 序 编译 后 没 
有 错误 发 生 时 ,并 不 表示 程序 就 完美 无 缺 ,事实 上 某 些 异常 状况 是 在 执行 中 才 发 生 的 。 除 此 之 
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外 ,有 时 程序 还 会 受 软 、 硬 件 环境 的 影响 而 发 生 程序 异常 的 情况 。 例 如 ,由 磁盘 驱动 器 访问 数 
据 时 ,就 可 能 发 生 I/O 访问 的 问题 ,而 无 法 顺利 访问 的 异常 状况 ,就 可 能 导致 程序 错误 ,因此 。 
异常 处 理 , 可 以 说 是 预防 程序 执行 时 发 生 异 常 而 中 断 的 一 道 防线 ,通过 异常 处 理 可 以 设法 让 程 
序 避 开 异 常 的 发 生 , 不 让 它 异常 中 断 ; 或 者 在 中 断 程序 前 ,对 数据 做 适当 的 处 置 ,而 不 致 丢失 
重要 的 数据 。 


2.7.2 Object Pascal 异常 的 种 类 


以 Object Pascal 的 异常 处 理 而 言 , 每 个 异常 都 可 视 为 一 个 对 象 ,因此 当 异 常 发 生 时 ,也 就 
是 产生 了 某 个 异常 类 的 对 象 ,但 是 这 个 对 象 的 生命 周期 只 限 在 异常 处 理 的 语句 中 。 也 就 是 说 ， 
当 程 序 离开 异常 处 理 的 语句 时 ,异常 对 象 的 实体 就 会 从 内 存 中 释放 。 而 针对 不 同 的 异常 状况 ， 
就 会 产生 不 同 的 异常 ,并 且 有 不 同 的 表现 。 

在 Delphi XE8 中 ,所 有 异常 的 基 类 是 Exception 类 。 该 类 是 所 有 其 他 异常 类 的 祖先 , 即 
所 有 其 他 的 异常 类 都 是 由 该 类 派生 而 来 ,异常 基 类 Exception 类 的 属性 和 主要 方法 如 下 。 

1. 属性 

Exception 类 有 两 个 基本 属性 : HelpContext 和 Message。 

1) Exception. HelpContext 属性 

该 属性 的 定义 如 下 : 

TypeThelpContext = - MaxLongint. .MaxLongint; 

Property HelpContext: ThelpContext; 

HelpContext 是 ThelpContext 类 的 一 个 实例 , 它 提供 了 与 异常 对 象 联系 在 一 起 的 上 下 文 
相关 帮助 信息 的 序列 号 。 该 序列 号 决定 当 发 生 异 常 时 用 户 按 Fl 键 显示 的 一 个 异常 错误 的 帮 
助 信息 。 注 意 不 是 所 有 的 异常 错误 都 能 提供 帮助 序列 号 ,只 有 某 些 方法 例如 Exception. 
CreateFmt、Exception. CreateHelp 等 ,这 些 方法 在 稍 后 介绍 。 

2) Exception. Message 属性 

该 属性 的 定义 如 下 : 

Property Message: string 

该 属性 存储 异常 发 生 时 的 错误 信息 。 可 以 通过 该 属性 在 提示 错误 对 话 框 中 显示 错误 信息 
字符 串 。 

2. 方法 

Exception 类 除了 继承 Tobject 类 的 一 些 方法 外 ,还 有 自己 独特 的 方法 。 这 些 方法 都 可 以 
被 其 派生 类 继承 ,用 来 产生 相应 的 动作 。 

1) Exception. Create 方法 

该 方法 的 定义 形式 为 : 

Constructor Create(Const Msg: String); 


该 方法 用 来 产生 一 个 带 有 一 条 简单 提示 信息 的 对 话 框 ,对 话 框 中 的 提示 内 容 由 Msg 提 
Msg 可 以 是 一 个 已 经 编码 的 字符 串 ,也 可 以 是 一 个 能 返回 字符 串 的 函数 。 

2) Exception. CreateFmt 方法 

该 方法 的 定义 格式 如 下 : 


神 
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Constructor CreateFmt(Const Msg: String;Const Args: Rrray of Const) ; 


该 方法 用 来 产生 一 个 带 有 格式 化 字符 串 提 示 信 息 的 对 话 框 , 格 式 化 的 字符 串 由 Msg 和 
Args 数组 共同 提供 ,其 中 ,数组 Args 负责 提供 用 于 格式 化 的 数值 。 例 如 ,可 以 使 用 类 似 下 面 


这 样 的 结构 : 


EMyException. CreateFmt(' 名 d 不 在 %d..%d 范 围 内 ', [100,0,99]); 
该 方法 将 产生 一 个 “100 不 在 0. .99 范围 内 ”的 格式 化 字符 串 。 
3) Exception. CreatHelp 方法 

该 方法 的 定义 格式 如 下 : 


Constructor CreateHelp(Const Msg: String; AhelpContsxt: Integer) ; 


该 方法 产生 一 个 带 有 一 条 简单 提示 信息 和 上 下 文 帮助 序列 号 的 提示 对 话 框 。 其 中 ,Msg 
参数 包含 显示 在 异常 对 话 框 中 的 运行 错误 信息 ; AhelpContext 参数 包含 一 个 限定 异常 错误 信 


息 上 下 文 帮助 序列 号 。 


异常 类 的 种 类 主要 可 以 分 为 两 大 类 ,一 种 是 Delphi XE8 内 建 的 异常 类 , 另 一 种 则 是 程序 


员 自 定义 的 异常 类 。 


1) Delphi 内 建 的 异常 类 

Delphi 内 建 的 异常 类 有 很 多 ,但 基本 上 各 种 异常 类 都 是 继承 自 Exception 类 ,而 
Exception 类 则 继承 自 TObject 类 ,它们 全 都 定义 于 Sysutils 这 个 资源 文件 里 ,然而 异常 类 并 
不 同 于 一 般 的 类 ,因此 Delphi 内 建立 异常 类 其 标识 符 的 第 一 个 字母 都 是 下 ,如 此 就 能 很 容易 
地 辨认 出 此 种 类 。 以 下 就 以 表格 列 出 Delphi 提供 的 异常 类 ,并 且 简 要 叙述 各 种 异常 的 作用 ， 


如 表 2-24 所 示 。 


内 建 异 常 类 


表 2-24 内 建 异 常 类 
发 生 此 种 异常 的 情况 


Eabort 
EabstractError 
EaccessViolation 
EassertionFailed 
EcontrolC 
EconversionError 
EconvertError 
EdivByZero 
Eexternal 
EexternalException 
EinOutError 
EintfCastError 
EintOverflow 
EinvalidCast 
EinvalidOp 
EinvalidPointer 
EmathError 
EOSError 


静 静 地 触发 异常 而 不 会 显示 任何 信息 对 话 框 ,调用 Abort 函数 会 触发 此 异常 
程序 企图 去 调用 一 个 纯 虚 拟 方 法 时 产生 此 异常 

无 效 的 内 存 处 理 操作 

当 带 入 Assert 函数 的 参数 ( 属 Boolean 类 型 ) 的 值 为 False 时 
于 Console 模式 的 应 用 程序 中 按 Ctrl 十 C 键 时 
几何 方法 的 转型 错误 

字符 串 和 对 象 方面 的 转型 错误 

整数 除 以 0 的 错误 

捕获 Windows 系统 的 异常 记录 时 

无 效 的 异常 程序 代码 

文件 输入 、 输 出 的 错误 

接口 制定 的 错误 

整数 计算 后 的 结果 超过 所 配置 的 register 

无 效 的 typecast 

未 定义 的 浮 点 操作 

无 效 的 指针 操作 

浮 点 数学 上 的 错误 

操作 系统 运行 的 错误 
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续 表 

内 建 异常 类 发 生 此 种 异常 的 情况 
EoutOf Memory 无 法 成 功 配置 内 存 
Eoverflow 浮 点 register 滋 位 
EpackageError 封包 关联 上 的 错误 
Eprivilege 处 理 程序 特权 违法 
EpropReadOnly 以 OLE 自动 写 人 属性 的 操作 无 效 
EpropWriteOnly 以 OLE 自动 读 取 属 性 的 操作 无 效 
ErangeError 整数 的 值 超出 所 声明 的 范围 
EsafecallException 使 用 了 safecall 这 种 函数 调用 所 产生 的 常规 问题 
EstackOverflow 堆栈 过 多 的 错误 
Eunderflow 其 值 太 小 而 无 法 以 某 个 浮 点 变量 代表 
EvariantError 与 Variant 数据 类 型 有 关 的 错误 
Ewin32Error Windows 系统 方面 的 错误 
Exception 所 有 运行 时 异常 的 基础 类 型 
EzeroDivide 浮 点 数 除 以 0 的 错误 

2) 自 定义 异常 类 


虽然 Delphi 内 建 的 异常 类 有 很 多 ,但 是 这 些 类 不 一 定 完 全 符合 开发 程序 的 需求 ,这 时 可 


以 自 定义 一 个 异常 类 ,然而 异常 类 和 一 般 的 类 的 自 定义 有 些 细微 的 差别 , 它 必须 继承 内 建 类 。 


事实 上 , 自 定义 的 异常 类 必须 继承 内 建 的 Exception 类 ,或 者 继承 Exception 的 某 个 子 类 


才 行 。 除 此 之 外 , 自 定义 异常 关 的 请 法 和 自 定义 一 般 类 的 庄 、 [zane 


法 并 没有 不 同 , 以 下 就 是 自 定义 异常 的 一 个 例子 。 


添加 4 个 Label 组 件 和 三 个 Edit 组 件 ,各 组 件 属性 设置 如 


【 例 2.8】 自 定义 异常 类 实例 。 请 输入 你 的 生日 
1) 界面 设计 年 (公元 ) 月 日 
创建 一 个 新 的 工程 ,在 窗 体 中 添加 一 个 Button 组 件 ,再 ED 


图 2-9 所 示 。 图 2-9 “ 自 定义 异常 类 实例 ”界面 


2) 程序 设计 


implementation 
{$R *.dfm} 
type 
Eyearmeanerror = class(exception) // 自 定义 的 异常 类 
function transformyer(yearstr: string): string; 
end; 
function Eyearmeanerror. transformyer( yearstr: string): string; 
begin 
if strtoint(yearstr)> strtoint(copy(datetostr(date), 0,4)) then 
begin 
showmessage( ' 目 前 最 晚 只 到 '+ #13+ ' 公 元 '+ copy( (datetostr(date)),0,4) + ' 年 '); 
Yearstr: = copy(datetostr(date),0,4); 
end 
else 
begin 
if strtoint(yearstr)<= (strtoint(copy(datetostr(date),0,4)) - 1911) then 
begin 
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showmessage( ' 使 用 的 是 "公元 "年 '); 
Yearstr: = inttostr(strtoint(yearstr) + 1911); 


end 
else 
Yearstr: = "7 
end ; 
result: = yearstr; 
end; 
Procedure TForm1. Button1Click( Sender: TObject); 
var 
thedate: tdatetime; 
begin 
try 


thedate: = strtodate(editl.Text + '— '+ edit2.Text+'— '+edit3.Text); 
if (length(edit1. Text)< 4) or ( strtoint (edit1. Text)> strtoint (copy (datetostr (date), 0, 
4))) then 
raise eyearmeanerror. Create( ' 日 期 有 误 '); 
showmessage( ' 你 的 生日 是 公元 '+ datetostr(thedate) ) ; 
except 
on e: econverterror do // 捕 捉 内 建 的 Econverterror 异常 
messagedlg( ' 输 入 的 不 是 数字 '+ #13+ ' 或 日 期 不 符合 事实 '+ # 13 + "年 不 可 以 大 于 9999!'， 
mterror, [mbok], 0); 
on e: eyearmeanerror do // 捕 捉 自 定义 的 Eyearmeanerror 异常 
begin 
messagedlg(e. Message, mterror, [mbok], 0); 
editl. Text: =e.transformyer(editl.Text); 
end; 
else 
raise; //raise 其 他 异常 
end; 
end; 


2.7.3 触发 异常 的 方法 


当 程 序 在 执行 中 产生 可 能 出 现 的 异常 情况 时 ,要 设法 找 出 并 触发 这 个 异常 ,然后 做 适当 的 
处 理 , 否 则 异常 的 产生 可 能 会 使 程序 中 断 离 开 , 无 法 再 回 到 异常 产生 前 的 状况 ,继续 执行 程序 ， 
一 旦 中 断 程序 ,之 前 执行 程序 所 处 理 的 数据 ,就 可 能 毁 于 一 旦 。 也 就 是 在 预期 的 控制 中 触发 异 
常 , 然 后 设法 将 异常 排除 ,再 由 异常 发 生 点 继续 执行 程序 。 

至 于 触发 异常 的 方法 ,主要 可 分 为 两 种 : 一 种 是 由 程序 系统 自动 触发 ,一 种 则 是 利用 raise 
指令 触发 。 以 下 就 分 别 介 绍 这 两 种 触发 异常 的 方法 。 

1. 由 程序 系统 自动 触发 

只 要 属于 Delphi 内 建 类 的 异常 产生 时 ,程序 系统 就 会 在 当下 自动 触发 它们 ,并 捕捉 其 信 
息 , 然 后 将 异常 的 信息 以 对 话 框 显示 出 来 ,这 些 是 一 般 公认 的 异常 状况 ,即使 不 对 这 些 异常 做 
处 理 , 程 序 系统 也 会 帮 我 们 做 处 理 , 然 后 让 程序 再 继续 执行 下 去 ,这 样 程序 就 不 会 在 当时 异常 
中 断 ,而 出 现 意 料 之 外 的 问题 。 

不 过 程序 系统 所 做 的 只 是 一 般 的 处 理 , 通 常 仅 是 避 开 执行 会 发 生 异常 的 程序 代码 ,而 不 会 
排除 掉 异 常 发 生 的 原因 。 故 若 保持 原来 的 状态 再 做 同样 的 执行 操作 ,仍旧 会 触及 同样 的 异常 ， 
却 无 法 执行 下 一 步 的 程序 。 因 此 为 了 让 程序 执行 更 顺畅 ,并 且 让 用 户 更 容易 使 用 应 用 程序 。 
即使 是 程序 系统 自动 触发 的 异常 ,也 应 该 主动 去 处 理 , 设 法 去 除 导致 异常 的 原因 。 或 者 给 予 用 
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户 更 明确 、 更 人 性 化 的 提示 ,尽量 不 要 让 用 户 感 到 任何 操 必 上 的 困难 ,并 且 避 免 异常 重复 发 生 
而 浪费 不 必要 的 时 间 。 

2. 使 用 raise 指令 触发 

除了 由 程序 系统 自动 触发 异常 之 外 ,当然 还 可 以 根据 需要 ,自行 触发 某 个 异常 ,也 就 是 让 异 
常 对 象 产 生 之 后 再 对 异常 做 处 理 。 而 自行 触发 异常 的 方式 ,就 是 使 用 raise 指令 ,其 语法 如 下 : 


raise 异常 对 象 实体 
【 例 2.9】 raise 指令 触发 异常 实例 。 
1) 界面 设计 - 加 了 Q raise 措 $ 般 发 荣 El 四 
创建 一 个 新 的 工程 ,在 窗 体 中 添加 一 个 Button 组 件 ,再 添加 | 下 人 
个 Label 组 件 和 两 个 Edit 组 件 ,各 组 件 属性 设置 如 图 2-10 所 示 。 || 。 请 次 输入 确 客 碍 
2) 程序 设计 
implementation 
{SR *.dfm} 
type 
Epasswordinvalid = class(Exception); 2-10 “raise 指令 触发 异常 "界面 
procedure TForml. ButtonlClick( Sender: TObject); 
var 
Gpassword: string; 
begin 
if editl. Text <> edit2. Text then 
begin // 关 键 分 析 
raise EpasswordInvalid. Create( ' 由 程序 员 显 示 异 常 信息 '+ #10+ #13+ ' 密 码 输入 有 误 !'); 
edit2. Text: =""'; // 此 行 永远 不 会 被 执行 
end 
else 
begin 
Gpassword: = editl.Text; 
showmessage( ' 密 码 设 定 完成 '); 
end; 
showmessage( ' 欢 迎 光 临 ! ') ; // 前 面 不 产生 异常 时 ,此 行 才 会 执行 
end; 
3) 程序 分 析 


关键 分 析 : raise 指令 触发 异常 时 ,一 定 要 在 异常 处 理 的 语法 区 (例如 : try…except) 之 中 ， 
否则 当 异 常 被 触发 时 ,程序 并 不 会 执行 raise 指令 之 后 的 语句 。 以 本 例 而 言 , 当 raise 指令 触发 
异常 时 ,程序 就 不 会 像 平 常 一 样 继续 往 下 执行 。 因 此 本 例 的 raise 指令 触发 异常 时 ,将 有 两 行 
程序 不 会 执行 到 (如 程序 代码 注释 ) 。 

换言之 ,无 论 如 何 , 只 要 raise 指令 不 是 用 于 异常 处 理 的 语法 区 ,而 该 行 raise 指令 确实 触 
发 了 异常 ,其 后 的 程序 代码 就 无 用 武之 地 了 。 因 此 ,不 要 将 raise 指令 当成 一 般 语句 使 用 , 它 必 
须 配 合 异 常 处 理 语法 来 使 用 ,以 避免 产生 出 乎 意料 的 执行 情况 。 


2.7.4 ”处 理 异常 情况 


Object Pascal 程序 语言 中 ,专门 用 来 处 理 异 常情 况 的 语句 主要 有 两 种 ,一 种 是 try… 
except…end 结构 , 另 一 种 则 是 try…finally…end 结构 。 虽 然 两 者 都 是 用 于 异常 处 理 , 但 这 两 
种 语句 的 执行 情况 不 同 , 因 此 对 异常 的 处 理 方式 也 不 一 样 。 
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此 外 ,由 于 Delphi XE8 在 程序 设计 时 提供 了 调试 器 (Debugger) ,因此 当 程 序 执行 时 若 发 
生 异 常 状况 ,调试 器 将 发 挥 功能 ,让 程序 停 在 异常 发 生 点 ,并且 提示 调试 的 方法 ,方便 找 出 问题 
所 在 。 然 而 这 样 程序 就 无 法 如 实 展现 异常 处 理 的 情况 ,而且 这 个 应 用 程序 若 不 在 Delphi 环境 
下 执行 ,也 不 会 有 调试 器 存在 。 因 此 在 设计 异常 处 理 程序 时 ,可 选择 Tools|Debugger Options 
|General 选项 ,然后 取消 Integrated debugging 选项 ,这 样 才能 看 到 异常 处 理 的 效果 。 

设 定好 异常 处 理 程序 的 环境 后 ,接着 就 分 别 来 讲述 两 种 语法 的 意义 ,以 及 两 者 执行 的 情况 。 

1.。try…finally…end 结构 

使 用 try…finally… end 语法 来 做 异常 处 理 , 只 需要 触发 异 try 没有 异常 发 生 异常 
常 ,程序 系统 将 自动 捕捉 被 触发 的 异常 ,然后 以 信息 对 话 框 显示 | 几 
出 异常 的 信息 ,让 程序 避 开 发 生 异 常 的 程序 代码 ,然后 向 下 执行 入 


程序 。 详 细 情 况 请 看 此 结构 的 执行 方式 ,如 图 2-11 所 示 。 

如 图 2-11 所 示 ,无 论 在 try…finally 区 内 是 否 有 异常 被 触发 ， 人 oY ) 
都 会 接着 执行 finally…end 区 的 语句 。 然 而 若是 在 try…finally 
区 内 有 蜡 常 产 生 并 被 触发 时 ,就 会 由 异常 发 生 点 跳 转 此 区 域 , 转 | 


而 执行 finally…end 区 的 所 有 语句 。 end 
try…finally…end 的 一 般 结 构 为 : 图 2-11 try…finally…end 
执行 方式 
try 
语句 // 预 期 可 能 产生 异常 的 语句 
finally 
语句 // 无 论 是 否 发 生 异 常 都 要 执行 的 语句 
end; l 


由 上 述 语法 可 知 , 此 结构 中 可 以 编写 语句 的 区 域 有 两 个 ,而 且 其 内 语句 使 用 目的 并 不 相 
同 ,以 下 将 分 别 进行 说 明 。 

1) try…finally 区 中 的 语句 

本 区 可 包含 多 个 语句 ,但 这 些 是 可 能 造成 异常 情况 的 语句 。 而 此 处 产生 的 异常 ,包括 由 程 
序 系统 自动 触发 及 程序 员 使 用 raise 指令 触发 的 异常 。 而 无 论 使 用 raise 指令 ,还 是 由 程序 系 
统 自动 触发 的 异常 ,程序 系统 都 会 在 其 后 的 finally…end 区 执行 完了 的 时 候 , 自 动 捕捉 被 触发 
的 异常 ,并 且 将 异常 信息 显示 出 来 。 

2) finally…end 区 中 的 语句 

本 区 也 可 以 有 多 个 语句 ,但 是 不 要 在 本 区 使 用 raise 指令 ,因为 在 上 一 区 中 由 程序 系统 或 
raise 指令 触发 的 异常 ,其 异常 实体 将 存在 本 区 ,并 在 end 关键 字 前 显示 异常 信息 。 倘 车 在 本 
区 使 用 raise 指令 , 则 不 管 在 try…finally 是 否 有 异常 触发 ,都 会 执行 raise 指令 ,并 且 显 示 异 常 
信息 ,请 勿 在 这 个 区 域 使 用 raise 指令 。 

3) try…fianally…end 结构 的 应 用 

【 例 2.10】 前 面 已 经 介绍 了 try…fianally…end 语法 的 结构 和 此 种 语法 执行 的 方式 , 接 
下 来 将 举 一 个 实例 ,这 样 就 能 更 加 清楚 try…fianally…end 语法 的 实现 方法 。 

(1) 界面 设计 

创建 一 个 新 的 工程 ,在 窗 体 中 添加 一 个 Button 组 件 , 再 添加 一 个 Label 组 件 和 一 个 Edit 
组 件 ,各 组 件 属性 设置 如 图 2-12 所 示 。 
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3.14159 div 2=1.5707963 i^ 所 占 内 存 
Cs) ec 


2-12 try…finally…end 实例 运行 界面 图 


(2) 程序 设计 


Procedure TForm1. Button1Click(Sender: TObject); 
var 

i: ^integer; 

res,y: double; 


begin 
try // 关 键 分 析 
new(i); // 申 请 内 存 给 动态 变量 ,并 令 i 指针 指向 此 内 存 
i^: = strtoint(editl. Text); 
Y: =3.,1415926; 
res: =y/i"; 
labell.Caption: = '3.14159 div '+ inttostr(i^) + '= '+floattostr(res) ; 


finally // 此 区 必定 会 执行 
showmessage( ' 现 在 释放 i^ 所 占 内 存 '); 
dispose(i); // 释 放 i 变量 指向 的 实体 ,避免 占用 内 存 空 间 
end; 
end; 
(3) 程序 分 析 


关键 分 析 : 本 例 执行 到 try…finally 区 域 时 ,首先 申请 内 存 给 动态 变量 ,然后 将 Editl. text 
中 的 字符 串 转换 为 整数 。 然 而 用 户 却 有 可 能 输入 了 中 、 英 文 文字 ,而 不 是 数字 ,如 此 就 会 造成 
“类 型 转换 ”的 异常 问题 ,如 输入 abc, 而 此 时 程序 系统 会 自动 触发 内 建 的 EconvertError 异常 ， 
然后 在 执行 完 finally…end 区 的 语句 时 ,立即 处 理 异 常 ,并 且 以 对 话 框 显示 异常 信息 , 如 
图 2-13 所 示 。 


GTo_Eianaly end 实 凤 [ 一 | 回 | 3 | projectl 
abc 现在 释放 i^ 所 占 内 存 
Labell 


@ ‘abe’ is not a valid integer value. 


2-13 ”非法 字符 转换 异常 
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除了 上 这 种 异常 ,本 例 还 可 能 由 程序 系统 自动 触发 另 一 种 内 建 异 常 , 那 就 是 当 用 户 在 输入 
对 话 框 中 输入 “0” 这 个 数字 时 ,将 造成 “ 浮 点 数 除 以 0” 的 异常 ,而 同样 地 ,程序 系统 也 会 自动 触 
发 并 处 理 它 ,如 图 2-14 所 示 。 

finally…end 区 内 的 语句 ,不 管 发 不 发 生 异 常 都 将 执行 ,如 果 程序 正常 执行 没有 发 生 异 常 
将 不 弹出 任何 对 话 框 。 

2. try…except…end 结构 

使 用 try…except…end 语法 来 处 理 异常 时 ,可 让 程序 员 自 行 捕捉 异常 ,然后 根据 异常 的 类 
型 不 同 ,对 异常 做 不 同 的 处 理 操 必 。 下 面 通过 此 种 语法 的 执行 方式 以 及 语法 中 各 区 域 包含 的 
语句 ,来 了 解 此 种 语法 如 何 让 程序 员 捕 提 并 处 理 异常 。 先 来 看 它 运行 的 方式 ,如 图 2-15 所 示 。 

ty 没有 异常 发 生 异常 


Projectl I Ex except ) 
@ Floating point division by zero. | | 
2-14 浮 点 数 除 以 0 异常 2-15 try…except…end 执行 方式 


整个 try…except…end 语法 的 运行 方式 ,如 图 2-15 所 示 。 当 try…except 区 内 没有 异常 
被 触发 时 。 此 区 程序 执行 完 之 后 ,会 跳 过 execpt…end 区 内 的 程序 代码 而 离开 try…except… 
end 区 域 , 直接 执 行 其 后 的 程序 代码 。 反 之 ,车 try…except 区 内 有 异常 被 触发 , 则 在 触发 异常 
的 情况 下 ,就 立即 由 异常 产生 点 跳出 try…except 区 , 转 而 执行 except…end 区 的 程序 。 
try…except…end 的 一 般 结构 为 : 


try 
语句 // 预 期 可 能 产生 异常 的 语句 
except 
语句 // 捕 捉 异 常 的 语句 
[else 语句 …] // 可 有 可 无 的 区 域 ,一 般 语句 (包括 raise 指令 ) 
end; 


由 上 述 语法 可 知 ,try…except…end 语法 中 ,各 区 域 所 允许 包含 的 语句 类 型 不 同 。 下 面 将 
分 别 进行 说 明 。 

1) try…except 区 中 的 语句 

本 区 可 以 有 多 个 语句 ,但 这 些 是 有 可 能 造成 异常 情况 的 语句 ,而 这 里 可 能 产生 的 异常 ,就 
如 之 前 所 描述 的 ,包括 由 程序 系统 自动 触发 以 及 程序 员 使 用 raise 指令 去 触发 的 异常 , 故 在 本 
区 可 根据 状况 条 件 来 使 用 raise 指令 。 然 而 在 本 区 使 用 raise 指令 ,或 者 由 程序 系统 自动 触发 
某 些 异常 时 ,程序 系统 并 不 一 定 会 自动 处 理 这 些 异 常 ,这 时 程序 就 有 可 能 会 异常 中 断 , 因 此 需 
要 except…end 区 中 捕捉 异常 ,并 且 对 异常 做 适当 的 处 理 ; 或 者 也 可 仿照 try…finally…end 语 
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法 ,在 except…end 区 对 try…except 区 内 被 触发 的 异常 做 再 次 触发 的 操作 , 即 再 次 使 用 raise 
指令 ,由 程序 系统 自动 捕捉 异常 ,以 信息 对 话 框 显示 出 异常 的 信息 ,然后 让 程序 避 开 异常 ,而 不 
致 于 中 断 程序 。 

2) except…end 区 中 的 语句 

在 except…end 区 中 ,可 以 有 多 个 语句 ,但 此 处 主要 是 放置 用 来 捕捉 异常 的 语句 ,事实 上 ， 
捕捉 异常 的 语句 也 只 能 置 于 此 处 。 然 而 ,什么 是 捕 提 异常 的 语句 ? 其 目的 是 让 程序 仍 自行 捕 
捉 异常 ,根据 异常 的 类 型 决定 要 做 的 处 理 操作 ,而 此 种 请 句 也 有 它 特定 的 语法 : 

on 异常 对 象 标识 符 : 类 型 do // 异 常 对 象 标识 符 可 有 可 无 

yd identifier: type do statement) 

上 述 语法 是 表示 当 指定 类 型 的 异常 被 触发 时 ,就 执行 保留 字 do 后 面 这 个 语句 。 反 之 若 没 
有 这 种 类 型 的 异常 被 触发 , 则 不 会 执行 do 后 面 的 语句 。 此 语法 中 的 “异常 对 象 标 识 符 ”, 是 让 
程序 员 在 捕 提 异常 实体 的 同时 ,定义 一 个 参考 此 实体 的 标识 符 (identifier) ,倘若 不 需要 则 可 以 
省 略 它 。 但 如 有 一 个 对 象 标 识 符 参 考 了 捕捉 到 的 异常 实体 ,就 可 以 在 捕捉 到 异常 之 后 ,利用 此 
对 象 标识 符 去 访问 或 取 用 异常 对 象 的 属性 、 方 法 等 。 

另外 ,在 捕捉 异常 的 语句 之 后 ,还 可 以 有 一 个 else 区 ,在 这 个 区 域内 可 以 有 一 般 的 语句 
(包括 raise 指令 ) ,虽然 except…end 区 可 能 允许 一 般 语句 存在 (包括 raise 指令 ), 但 有 一 定 的 
限制 ,此 外 ,本 区 内 的 raise 指令 并 不 会 让 程序 跳出 执行 点 。 

若 本 区 域内 没有 else 区 域 时 ,只 要 其 内 有 捕 提 异常 的 语句 存在 ,就 不 允许 有 一 般 语句 ( 包 
括 raise 指令 ); 倘若 本 区 内 有 else 区 , 则 除了 else 区 域 之 外 ,并 不 允许 有 一 般 语 句 存 在 于 
except…else 区 域 ,否则 将 导致 编译 错误 。 

当 本 区 内 有 else 区 时 ,此 区 域 和 前 面 捕捉 异常 的 语句 必须 视 为 一 个 整体 ,其 意义 类 似 
case…of…else 语法 。 也 就 是 说 , 当 被 触发 的 异常 并 不 在 欲 捕 提 的 异常 之 列 时 ,程序 就 会 做 
else 区 内 的 处 理 操作 。 

说 明 : 在 本 区 内 使 用 raise 指令 时 , 若 做 的 是 reraise 的 操作 (try…except 内 已 raise 此 异 
常 ), 则 raise 保留 字 之 后 可 以 不 指定 对 象 实体 。 只 要 写 raise 即 可 ,而 它 会 直接 再 引发 之 前 于 
try…except 产生 的 异常 。 


3) try…except…end 结构 的 应 用 网 le 
前 面 已 经 介绍 了 try…except…end 语法 的 结构 和 此 
种 语法 执行 的 方式 , 接 下 来 将 举 一 个 实例 ,这 样 就 能 更 加 try_except_endl 
清楚 try…except…end 语法 的 实现 方法 。 i 
【 例 2.11】 异常 处 理 实例 。 
try_except_end3 
(1) 界面 设计 
创建 一 个 新 的 工程 ,在 窗 体 中 添加 三 个 Button 组 件 ， 
各 组 件 属性 设置 如 图 2-16 所 示 。 图 2-16 “try…except 异常 实例 ”界面 
(2) 程序 设计 
代码 如 下 。 


function strtointrange(const s: string;min,max: longint): longint;  // 关 键 分 析 1 
begin 
result: = strtoint(s); 
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证 (result<min)or(result> max)then 
raise ERangeError. CreateFmt(' 数 值 %$d 不 在 %d 跟 %d 之 间 ', [result,min, max]); 
// 参 数 中 三 个 "%d" 依 次 代入 其 后 数组 的 元 素 值 
end; 
procedure TForm1. Button1Click( Sender: TObject); // 关 键 分 析 2 
begin 
try 
strtointrange( '5',1,10); 
except 
on e: erangeerror do 
messagedlg(e. Message, mterror, [mbok], 0); 
end; 
end; 
procedure TForml. Button2Click( Sender: TObject); // 关 键 分 析 3 
begin 
try 
strtointrange( '123',1,10); 
except 
on e: erangeerror do 
messagedlg(e. Message, mterror, [mbok], 0); 
end; 
end; 
procedure TForm1. Button3Click(Sender: TObject); // 关 键 分 析 4 
var 
a,b: integer; 


try 
if(b=0) then 
raise ezerodivide. Create( "错误! 除数 不 得 为 0! ') 
else 
a: =10divb:; 
Showmessage( inttostr(a)); 
except 
on objl: ezerodivide do 
messagedlg(objl. Message, mterror, [mbok], 0) ; 
on obj2: eexternal do 
messagedlg(obj2. message, mterror, [mbok], 0); 
else 
messagedlg( ' 无 法 预知 的 错误 ! ', mterror, [mbok],0) 
end; 
end; 


(3) 程序 分 析 

关键 分 析 1: 自 定义 的 strtointrange 函数 ,其 目的 是 要 检查 s 参数 传人 的 字符 串 (String) 
在 转换 成 integer 类 型 后 ,其 值 是 否 在 min 参数 与 max 参数 值 范 围 之 内 ,如 果 不 是 ,就 会 由 
raise 指令 触发 ERangeError 这 种 内 建 异 常 。 

关键 分 析 2: Buttonl 的 OnClick 事件 过 程 中 ,在 异常 处 理 的 语法 中 调用 StrTointRange 
函数 ,传人 的 s 参 数 在 转换 为 integer 类 型 后 ,其 值 不 超出 min 参数 至 max 参数 值 的 范围 , 因 
此 不 会 触发 异常 。 

关键 分 析 3: Button2 的 OnClick 事件 过 程 中 ,在 异常 处 理 的 语法 中 调用 StrTointRange 
函数 ,传人 的 s 参数 在 转换 为 integer 类 型 后 ,其 值 不 在 min 参数 至 max 参数 值 的 范围 内 ,所 
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以 触发 了 ERangeError 异常 ,其 执行 状况 如 图 2-17 所 示 。 


@ 数值 123 不 在 1 禹 10 之 间 


2-17 Button2 执行 结果 


关键 分 析 4: Button3 的 OnClick 事件 过 程 中 ,由 于 b 是 一 个 变量 ,因此 其 值 有 可 能 为 0， 
则 程序 在 运算 出 变量 a 的 值 时 ,就 有 可 能 遇 到 * 整 数 除 以 0” 的 错误 ,显然 程序 系统 会 自动 触发 
此 种 异常 ,然而 程序 系统 并 不 一 定 都 会 在 异常 产生 点 立即 触发 此 种 异常 。 以 本 例 而 言 , 若 
只 是 : 

a: =10 div b; //b 的 值 为 0 

并 不 会 立刻 触发 异常 ,必须 等 到 读 取 a 变量 的 值 时 ,如 本 例 这 行程 序 : 

Showmessage( inttostr(a)); 

程序 系统 才 会 自动 触发 EZeroDivide 这 个 异常 。 这 算是 一 种 特殊 的 情况 ,因此 为 了 确保 


实时 触发 这 个 异常 ,本 例 才 在 设计 的 条 件 语句 中 ,以 raise 指令 触发 EZeroDivide 异常 。 如 此 
时 还 未 读 取 到 a 变量 ,也 不 会 放 过 EZeroDivide 异常 的 发 生 , 其 执行 状况 如 图 2-18 所 示 。 


2-18 ”Button3 执行 结果 


2.7.5 程序 调试 


Delphi XE8 提供 了 一 个 功能 强大 的 内 置 调试 器 (Integrated Debugger) 来 帮助 对 程序 的 运 
行 状态 进行 跟踪 和 调试 。 该 调试 器 可 以 方便 地 查找 程序 中 出 现 的 运行 时 间 错 误 和 逻辑 错误 。 
所 谓 运 行 时 间 错 误 是 指 程序 能 正常 编译 但 在 运行 时 出 错 。 逻 辑 错误 是 指 程序 设计 和 实现 上 的 
错误 。 程 序 语句 是 合法 的 ,并 顺利 执行 了 ,但 执行 结果 却 不 是 所 希望 的 。 对 于 这 两 类 错误 , 调 
试 器 都 可 以 快速 定位 错误 ,并 能 通过 对 程序 运行 的 跟踪 和 对 变量 值 的 监视 寻找 错误 的 原因 和 
解决 途径 。 

1. 调试 的 准备 

调试 的 准备 工作 有 下 面 几 个 方面 。 

1) 激活 内 置 调试 器 

要 能 对 程序 进行 调试 ,首先 必须 使 内 置 的 集成 调试 器 处 于 活动 状态 。 方 法 是 : 在 Delphi 
集成 开发 环境 中 ,选中 Tools| Debugger Options| General| Integrated Debugging 复 选 框 。 默 
认 情 况 下 该 框 被 选中 。 
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2) 设置 编译 和 调试 选项 
默认 情况 下 ,Delphi XE8 对 有 些 错误 和 信息 不 给 出 调试 信息 。 可 以 改变 Delphi 的 默认 设 
置 。 单 击 Project| Options|Compiler 选项 ,如 图 2-19 所 示 。 


图 2-19 Compiler 对 话 框 


(1) Runtime Errors 区 域 

在 该 区 域 设置 需要 额外 进行 检测 的 运行 错误 。 

Range checking: 检查 数组 或 是 字符 串 的 下 标 是 否 越界 ,默认 时 不 检测 。 

I/O checking: 检测 输入 输出 错误 ,默认 检测 

Overflow checking: 整 型 操作 溢出 检测 ,默认 不 检测 。 选 中 该 复 选 框 调试 器 将 对 整数 运 
算是 否 溢出 做 检测 ,默认 的 情况 下 不 报告 错误 。 

(2) Debugging 区 域 

设置 调试 的 信息 。 默 认 时 几乎 全 部 选中 。 一 般 无 须 改 变 该 区 域 的 选项 设置 。 

Debug information: 表示 产生 调试 信息 。 如 果 Debug Information 选中 会 在 单元 文件 
(. deu) 中 放置 调试 信息 ,文件 字 节 变 大 但 不 影响 速度 。 

Local symbols: 产生 局 部 变量 的 调试 信息 。Local symbols 选中 会 添加 与 所 在 类 、 过 程 、 
函数 及 对 象 方法 中 定义 的 标识 符 等 有 关 调 试 信息 。 在 程序 调试 时 调试 器 会 使 用 这 些 信 息 , 但 
这 些 信息 不 会 添加 到 可 执行 文件 中 。 除 非 在 Project| Options | Linker 页 面 中 选中 Include 
TD32 Debug Info 选项 ,选中 了 此 选项 就 可 以 使 用 TD32 来 调试 。TD32 是 Borland 公司 的 另 
外 一 个 专用 于 调试 的 软件 产品 (Turbo Debugger for Windows)。 

Reference info/ Definitions only: 用 来 产生 供 Code Browser, Code Explorer and Project 
Browser 使 用 的 标识 符 引 用 信息 。 如 果 Reference Info 和 Definitions Only 都 被 选中 ,表示 编 
译 器 将 记录 标识 符 定义 位 置 的 信息 。 如 果 仅 选中 了 Reference Info, 表 示 编 译 器 不 仅 记录 标识 
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符 定 义 的 位 置 , 同 时 将 记录 标识 符 被 引用 的 信息 。 如 果 不 选 中 Debug Information 和 Local 
Symbols 选项 , 仅 选 中 该 选项 将 不 起 作用 。 例 如 , 想 查看 单元 中 某 个 变量 的 声明 位 置 ,可 以 在 
引用 该 变量 的 位 置 , 单 击 鼠标 右键 ,然后 在 弹出 的 菜单 中 选择 Find Declaration 选项 则 自动 定 
位 到 变量 的 声明 处 。 

Assertions: 产生 断言 的 调试 代码 。 

Use Debug DCUs: 使 用 连接 的 dcu 文件 作为 调试 路 径 。 必 须 在 Tools | Debugger 
Options|General 页 中 指定 调试 文件 的 路 径 。 一 般 不 选中 该 项 。 

(3) Hintand Warnins 选项 

该 区 域 设 置 除了 显示 错误 的 调试 信息 外 ,还 需要 显示 的 其 他 调试 信息 。 

Output Hints: 使 编译 器 产生 提示 信息 。 例 如 ,检测 在 过 程 或 函数 中 声明 了 但 一 直 没 有 
使 用 的 变量 信息 ,或 者 无 效 的 引用 信息 等 。 

Output Warnings: 使 编译 器 产生 警告 信息 。 例 如 ,类 型 转换 警告 ,变量 未 初始 化 警告 等 。 

(4) 编译 程序 发 现 编译 错误 

在 调试 之 前 ,必须 先 编译 通过 。 可 以 选择 Project| Complie 一 工程 名 二 选项 对 工程 进行 编 
译 ,检测 编译 错误 。 也 可 以 按 Ctrl 十 F9 键 执行 同样 的 操作 。 默 认 情 况 下 ,如 果 有 错误 或 是 警 
告 和 提示 信息 则 显示 在 Message 列表 框 中 。 

2. 控制 程序 的 执行 

Delphi 程序 的 调试 命令 都 集中 在 Run 菜单 下 。 可 以 三 种 方式 进行 调试 : Step Over(F8) 
单 步 执行 调试 .Trace Into(F7) 跟 踪 调 试 或 使 用 Run To Cursor(F4) 运 行 到 光标 所 在 处 。 

Step Over 一 次 执行 一 行 语句 , 碰 到 调用 过 程 时 也 是 一 步 就 执行 过 去 ,不 会 跟踪 到 过 程 的 
内 部 代码 中 去 逐 行 执行 。Trace Into 则 是 在 碰 到 过 程 或 函数 时 跟踪 到 它们 的 内 部 ,可 以 对 其 
内 部 代码 进行 调试 。Run To Cursor 则 从 当前 运行 位 置 直接 运行 到 光标 所 在 的 位 置 ,如 果 光 
标 所 在 的 位 置 和 当前 运行 位 置 处 在 不 同 的 事件 代码 中 , 则 不 能 直接 运行 到 光标 处 ,只 有 当 发 生 
了 该 事件 才 可 以 继续 执行 。 

如 果 能 确保 过 程 或 函数 不 会 出 现 问 题 , 则 可 直接 用 Step Over 命令 ,否则 要 用 Trace Into 
去 跟踪 内 部 代码 。 

3. 使 用 断 点 

断 点 (BreakPoint) 就 是 使 程序 运行 中 断 的 点 。 在 一 个 应 用 程序 中 可 以 设置 多 处 断 点 , 当 
程序 运行 到 断 点 处 ,会 暂停 执行 ,等 待 进一步 的 命令 。 此 时 可 以 查看 变量 的 值 ,也 可 以 使 用 
Step Over 和 Trace Into 命令 继续 执行 程序 。 设 置 断 点 比 使 用 单 步调 试 . 跟 踪 调试 和 运行 到 鼠 
标 处 调试 都 要 方便 ,因为 可 以 仅 在 需要 程序 暂停 的 位 置 设置 断 点 ,然后 使 用 F9 键 直接 运行 到 
断 点 处 ,不 必 像 Step Over 一 样 每 次 只 能 执行 一 行 语 句 ,也 不 必 像 Run To Cursor 每 次 只 能 在 
程序 中 设置 一 个 暂停 位 置 。 

1) 断 点 的 设置 

有 多 种 方法 可 以 设置 断 点 : 

(1) 单 击 选 定 代 码 行 左 边 的 空白 。 

(2) 在 光标 所 在 的 行 处 按 F5 键 。 

(3) 使 用 Run | Add Breadpoint | source breakpoint 命令 打开 断 点 编辑 对 话 框 , 在 Line 
Number 处 输入 需要 加 断 点 的 行 号 即 可 。 

断 点 必须 位 于 可 执行 代码 行 上 , 凡 设 置 在 注释 、 空 白 行 、 变 量 说 明 上 的 断 点 都 是 无 效 的 。 
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另外 , 断 点 既 可 以 在 设计 状态 下 设置 也 可 以 在 运行 调试 状态 下 设置 。 

一 个 有 效 (Enable) 的 断 点 默认 的 情况 下 该 代码 行 显示 为 红色 ,一 个 无 效 的 (Disable) 断 点 
则 显示 为 其 他 的 颜色 , 且 在 前 面 的 小 圆 点 中 有 一 个 错 号 (又 号 ) ,正确 的 断 点 小 圆 点 中 是 一 个 
对 号 。 

需要 注意 的 是 ,有 时 即使 是 可 执行 的 代码 行 可 能 由 于 程序 的 优化 也 无 法 在 上 面 设 置 断 点 。 
一 般 可 以 设置 断 点 的 代码 行 在 程序 编译 时 按 Ctrl 十 F9 键 ,会 在 该 代码 行 的 前 面 显示 一 个 蓝 色 
的 小 点 ,表示 是 一 个 有 效 的 代码 行 。 

2) 断 点 的 删除 和 设置 

删除 一 个 断 点 非常 简单 ,只 要 再 次 在 已 经 设置 为 断 点 的 代码 行 单 击 其 左 侧 的 空白 处 或 按 
F5 键 就 可 以 删除 断 点 。 如 果 在 一 个 应 用 程序 的 许多 位 置 都 设置 了 断 点 ,使 用 刚才 的 方法 删除 
比较 费时 ,另外 有 时 只 是 想 将 断 点 设置 为 无 效 , 并 不 想 删除 断 点 , 则 可 以 使 用 断 点 列表 框 来 管 
理 所 有 的 断 点 。 

使 用 View|Debug|BreakPoints 命令 打开 断 点 列表 框 ,列表 框 将 列 出 应 用 程序 中 设置 的 
所 有 断 点 ,无 效 (Disable) 的 断 点 前 面 的 标志 为 灰色 。 在 列表 窗口 中 单 击 右 键 ,将 显示 一 个 断 
点 设置 快捷 菜单 ,使 用 该 快捷 菜单 可 以 实现 对 断 点 的 添加 、 删 除 、 使 有 效 以 及 无 效 等 操作 。 

(1) 利用 断 点 列表 窗口 可 以 快速 找到 断 点 在 源 代码 中 的 位 置 

首先 选 定 断 点 而 后 从 快捷 菜单 中 选择 Edit Source 命令 ,此 时 会 定位 到 该 断 点 位 置 处 的 代 
码 。 可 以 在 断 点 位 置 修改 源 代码 。 

(2) 断 点 功能 的 失效 和 恢复 

使 断 点 失效 可 以 使 断 点 从 当前 程序 运行 中 隐藏 起 来 。 例 如 ,定义 了 一 个 断 点 当前 并 不 需 
要 ,但 可 能 在 以 后 使 用 , 则 可 以 使 用 这 一 功能 。 

在 断 点 列表 窗口 单 击 右 键 ,在 快捷 菜单 中 取消 对 Enable 的 选择 或 选择 BreakPoints | 
Disable All BreakPoints 项 可 以 使 当前 选中 断 点 或 所 有 断 点 失去 功能 。 

快捷 菜单 中 的 Enable BreakPoint 和 Enable All BreakPoint 命令 可 以 使 相应 断 点 恢复 功能 。 

同样 ,快捷 菜单 中 的 Delete BreakPoint 和 Delete All BreakPoint 命令 可 以 删除 当前 选中 
断 点 或 所 有 断 点 。 

3) 修改 断 点 属性 

在 断 点 列表 窗口 选择 断 点 后 单 击 右键 ,在 弹出 的 快捷 菜单 中 选择 Properties 命令 , 则 打开 
断 点 编辑 对 话 框 ,用 于 显示 和 修改 断 点 的 属性 。 也 可 以 使 用 Run | Add Breadpoint | Source 
BreakPoint 命令 打开 该 对 话 框 。 利 用 该 对 话 框 可 以 改变 断 点 的 位 置 ,设置 断 点 条 件 。 断 点 条 
件 包括 两 种 : 布尔 表示 式 和 通过 次 数 。 

Condition 编辑 框 用 于 设置 布尔 表达 式 条 件 。 如 果 表 达 式 值 为 真 (或 非 零 ) 则 程序 运行 在 
断 点 处 中 止 ; 否则 调试 器 将 忽略 该 断 点 。 

Pass Count 编辑 框 用 于 设置 通过 次 数 条 件 , 即 只 有 当 程 序 运行 在 该 断 点 处 通过 设 定 次 数 
时 程序 运行 才 在 该 断 点 处 中 止 。 这 往往 用 于 对 循环 体内 语句 的 调试 。 

有 一 点 应 注意 : 当 Condition 和 Pass Count 同时 设置 时 ,Pass Count 是 指 满足 条 件 的 通 
过 次 数 。 

4. 监视 数据 的 值 

当 对 Delphi 中 的 代码 数据 进行 调试 时 ,只 要 将 鼠标 放置 在 变量 或 表达 式 上 时 , 即 可 以 显示 该 
变量 的 值 。 但 有 时 和 希望 能 同时 显示 几 个 变量 或 表达 式 的 值 则 可 以 使 用 Delphi 内 置 的 调试 器 。 
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1) 监视 表达 式 

选择 View|Debug Windows| Watches 命令 可 以 打开 Watch List 窗 格 ,如 图 2-20 所 示 。 在 
该 窗 格 中 单 击 鼠 标 右键 ,在 弹出 的 快捷 菜单 中 选择 Add Watch 命令 打开 监视 属性 对 话 框 ,可 以 添 
加 新 的 变量 或 表达 式 。 也 可 以 使 用 Run| Add Watch 命令 打开 监视 属性 对 话 框 ,如 图 2-21 所 示 。 


Watch List 回 
Watch Name Value 

Watches 

Event Log| Breakpoint List| Thread Status | Call Stack | Watch List| Local Variables 


2-20 Watch List 窗 格 


2-21 Watch List 窗 格 


在 Expression 右边 的 编辑 框 中 添加 要 监测 的 变量 或 表达 式 , 同 时 设置 其 属性 。 当 该 表达 
式 代表 一 个 数据 元 素 时 ,可 以 在 Repeat count 中 指定 其 重复 次 数 。 如 果 要 监测 的 是 一 个 数组 
的 值 ,可 以 使 用 Repeat count 指定 数组 元 素 的 下 标 。 

最 下 边 的 各 个 单 选 按钮 用 来 设置 监测 表达 式 的 显示 形式 。 例 如 ,如 果 选 择 Hexadecimal 
单 选 按钮 , 则 变量 的 值 将 以 十 六 进 制 的 形式 显示 。 

与 断 点 类 似 , 可 以 利用 快捷 菜单 来 编辑 选择 的 表达 式 ,也 可 以 使 监视 的 表达 式 失效 或 恢复 
为 有 效 。 

2) 计算 /修改 表达 式 

选择 Run|Evaluate/Modify 命令 可 打开 “计算 /修改 ”对 话 框 ,如 图 2-22 所 示 。 

当 单 击 Evaluate 按钮 时 ,Expression 编辑 框 中 表达 式 的 值 显示 在 Result 域 中 。 

Expression 编辑 框 中 可 以 输入 或 选择 任何 合法 的 表达 式 ( 包 括 对 象 的 属性 ) ,但 不 能 包括 ; 

(1) 当前 执行 点 不 能 引用 的 局 部 或 静态 变量 的 表达 式 ; 

(2) 函数 或 过 程 调用 。 

Expression 中 的 表达 式 可 以 带 特定 的 格式 字符 用 于 规定 其 显示 格式 。 其 表示 语法 格式 
为 : 变量 名 ,格式 字符 串 。 例 如 ,“Z,F4” 表 示 显 示 一 个 浮 点 型 数据 的 前 4 位 有 效 数字 。 可 使 用 
的 格式 字符 及 其 功能 如 下 。 
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Evaluate/Modify - Process 图 
的 四 二 QQ 及 
valuste Med Watch Insp Hep 
Expression: 
Result: 


E2003 Undedared identifier: b 


2-22 ”Evaluate/Modify 对 话 框 


H,X: 以 十 六 进 制 格式 显示 整 型 值 。 

D: 以 十 进 制 格式 显示 整 型 值 。 

C: 把 ASCII 码 在 0.. 31 的 特殊 字 等 显示 为 ASCII 码 图 形 。 

Fn: 用 n 个 有 效 数 字 显 示 浮 点 数 。 

nM: 以 十 六 进 制 方式 显示 一 变量 的 内 存 转 储 值 ,n 限定 要 显示 的 字 节 数 。 

P: 以 段 和 偏 移 量 格式 显示 指针 。 两 部 分 皆 为 4 位 十 六 进 制 值 。 

Modify 按钮 可 以 修改 特定 表达 式 的 值 。 一 般 修改 表达 式 的 值 常用 于 验证 错误 解决 方案 
的 正确 性 。 在 Expression 编辑 框 中 输入 欲 修改 的 表达 式 , 单 击 Evaluate 按钮 观察 表达 式 的 当 
前 值 。 而 后 在 New Value 编辑 框 中 输入 或 选中 一 个 新 值 , 单 击 Modify 按钮 确认 并 更 新 数据 
项 。 这 种 修改 只 影响 特定 的 程序 运行 。 需 要 特别 注意 的 是 ,一 般 不 要 修改 指针 和 数组 下 标 , 因 
为 可 能 会 引起 无 法 预计 的 后 果 , 因 而 要 特别 小 心 。 

单 击 Watch 按钮 可 以 打开 监视 列表 窗口 ,并 添加 选 定 的 表达 式 到 列表 窗口 中 。 

单 击 Inspect 按钮 可 以 为 选择 的 数据 元 素 打开 一 个 信息 的 窗口 ,这 对 于 观测 数据 结构 .类 
和 数组 的 值 特别 有 用 。 

3) 函数 调用 

选择 View| Debug Windows|Call Stack 命令 可 以 显示 调 栈 窗口 (Call Stack Window ) 。 
调 栈 窗口 的 顶端 列 出 了 应 用 程序 最 近 的 函数 调用 。 利 用 调 栈 窗口 可 以 退出 当前 跟踪 的 函数 ， 
可 以 利用 快捷 菜单 项 显示 或 编辑 位 于 特定 函数 调用 处 的 源 代码 。 

4) 观测 局 部 变量 

当 调 试 的 程序 位 于 某 一 个 过 程 或 函数 内 部 时 ,选择 View | Debug Windows | Local 
Variables 命令 可 以 打开 局 部 变量 显示 窗口 。 该 窗口 显示 在 该 过 程 或 函数 内 部 使 用 的 所 有 局 
部 变量 及 其 值 。 有 些 局 部 变量 可 能 由 于 程序 的 优化 而 无 法 显示 值 。 但 这 对 于 观测 过 程 或 函数 
中 所 有 的 局 部 变量 还 是 比较 方便 的 。 


小 结 


本 章 主 要 介绍 Object Pascal 的 最 基本 的 语法 ,主要 包括 基本 词法 、 基 本 数据 类 型 ,常量 与 
变量 .运算 符 与 表达 式 、 常 用 函数 与 过 程 .语句 以 及 异常 处 理 和 程序 调试 等 。 需 要 熟练 掌握 的 
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知识 点 包括 : 

(1) 标识 符 和 保留 字 的 基本 应 用 ,特别 注意 标识 符 的 作用 域 。 

(2) 基本 数据 类 型 的 应 用 。 

(3) 常量 与 变量 的 基本 应 用 。 

(4) 各 类 运算 符 的 表示 及 运算 规则 。 

(5) 运算 符 的 优先 级 和 结合 性 。 

(6) 表达 式 的 类 型 及 运算 顺序 。 

(7) 语句 的 分 类 和 各 种 语句 的 书写 格式 。 

(8) 顺序 结构 的 执行 流程 ,特别 是 赋值 语句 。 

(9) 选择 结构 计 语 句 和 case 语句 的 执行 流程 及 其 应 用 。 

(10) 循环 结构 for 语句 .while 语句 和 repeat 语句 的 执行 流程 及 其 应 用 。 

(11) try…except 结构 ,try…finally 结构 ,raise 语句 的 用 法 。 

(12) 程序 的 调试 有 断 点 的 设置 及 其 属性 修改 ,利用 单 步 、 跟 踪 调试 技术 调试 程序 ,监测 变 
量 以 及 表达 式 的 值 。 

本 章 的 目的 在 于 使 读者 了 解 和 掌握 Object Pascal 语言 ,为 后 面 的 学 习 打 好 基础 。 


习 题 


2-1 Object Pascal 的 数据 类 型 包括 哪 两 类 ?最 大 的 区 别 是 什么 ? 

2-2 常量 与 变量 的 定义 有 何 异 同 ? 

2-3” 自 定义 标识 符 时 需要 遵守 哪些 规则 ? 系统 保留 字 与 指令 字 有 何 区 别 ? 

2-4 在 Object Pascal 提供 的 各 种 运算 符 中 ,有 哪 几 种 运算 符 既 可 以 作 单 目 运算 符 ,又 可 
以 作 双 目 运 算 符 ?” 有 哪 几 种 运算 符 的 操作 数 可 以 是 不 同 的 类 型 ? 

2-5 ”单位 发 工资 。 某 职工 应 发 工资 X 元 , 试 求 各 种 票 额 钞票 总 张 数 最 少 的 付款 方案 ,如 
图 2-23 所 示 。 

2-6 在 Object Pascal 中 ,算术 表达 式 与 数学 表达 式 的 写法 有 什么 区 别 ? 

2-7 运算 符 有 哪 几 种 ? 其 中 的 左 移 和 右 移 运算 的 运算 规则 是 怎样 的 ? 

2-8 编写 程序 ,任意 输入 一 个 整数 ,判断 整数 的 奇偶 性 ,运行 效果 如 图 2-24 所 示 。 


[IE 


G7 
请 输入 一 个 整数 : 2 | 
这 个 数 是 一 个 偶数 ! 


Hi 


梁 染 深 染 染 尝 梁 深 深 深 二 


图 2-23 求 工资 钞票 额 最 少 的 方案 图 2-24 判断 整数 的 奇偶 性 
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2-9 ”表达 式 的 书写 有 哪些 要 求 ? 对 于 有 多 种 运算 符 参 与 的 混合 表达 式 , 怎 样 决定 运算 


顺序 ? 
2-10 
志 审 


顺序 结构 .选择 结构 和 循环 结构 的 特点 分 别 是 什么 ? 
键盘 输入 A,B,C 的 值 , 判 断 它 们 能 和 否 构成 三 角形 的 三 个 边 。 如 果 不 能 够 构成 一 个 


三 角形 ,请 弹出 对 话 框 提示 ; 如 果 能 够 构成 一 个 三 角形 , 则 计算 三 角形 的 面积 ,如 图 2-25 


所 示 。 
2-12 
2-13 
2-14 
2-15 


选择 结构 的 两 种 语句 是 否 可 以 相互 转换 ? 

循环 结构 的 三 种 语句 各 自 的 特点 是 什么 ?它们 有 什么 异同 ? 

选择 结构 和 循环 结构 都 可 以 嵌 套 使 用 , 嵌 套 时 要 注意 什么 ? 

设计 程序 , 求 S=1 二 (1 十 2) 十 (1 十 2 十 3) 十 (1 十 2 十 3 十 4) 十 … 十 (1 十 2 十 … 十 100) 


的 值 , 如 图 2-26 所 示 。 


2-16 
2-17 
2-18 
2-19 
2-20 
2-21 
2-22 
2-23 
2-24 


| S=1+(1+2)+(1+2+3)+(1+2+3+4)+…+(1+2+…+100) 


Li | 
结果 S 三 


图 2-25 求 三 角形 的 面积 图 2-26 求 累加 和 


说 明 for、while 和 repeat 这 三 种 循环 语句 的 区 别 。 

简 述 什么 是 异常 。 在 Delphi XE8 中 什么 情况 下 会 出 现 异常 ? 

在 Delphi XE8 中 的 异常 可 以 分 为 几 种 类 型 ? 

在 Delphi XE8 中 提供 了 几 种 处 理 异 常 的 方式 ? 

try…finally 结构 与 try…except 结构 在 用 法 上 的 主要 区 别 是 什么 ? 
什么 是 断 点 ? 断 点 的 作用 是 什么 ?如 何 设置 不 同类 型 的 断 点 ? 

如 何 编译 一 个 编写 完成 的 程序 ? 

如 何在 编写 完成 的 程序 中 添加 和 删除 源 断 点 ? 

Delphi XE8 有 哪些 与 调试 有 关 的 窗口 ? 它们 的 作用 是 什么 ? 


雍 
Co 
媳 


常用 组 件 


Delphi XE8 的 组 件 板 上 有 很 多 组 件 ,总 共 包括 五 百 多 个 组 件 , 如 图 3-1 所 示 。 本 章 将 对 
Delphi XE8 中 常见 的 组 件 做 详细 的 介绍 。 


Tool Palette ls 图 
由 "| 回 | 5| 
= 
“Additional 
+ Win32 
+ System 
HWin 3.1 
YDialogs 
+ Data Controls 
“dbExpress 
+ Datasnap Server 
+ FireDAC 
+ FireDAC UI 
1 FireDAC Links 
+ FireDAC Services 
+ FireDAC ETL 
“LiveBindings 


i 


图 3-1 组 件 板 


3.1 窗 体 


用 户 界 面 是 应 用 系统 中 直接 面 对 用 户 的 窗 体 .包括 主 窗 体 、 子 窗 体 、 弹 出 对 话 框 窗 体 等 , 它 
是 对 空白 窗 体 加 工 后 的 系统 运行 结果 ,在 任何 工程 中 ,都 是 由 窗 体 的 不 断 开发 和 累加 完成 的 
集合 。 


3.1.1 Form 组 件 


一 个 应 用 系统 至 少 有 一 个 窗 体 ,一 个 大 型 软件 工程 甚至 包含 几 个 、 几 十 个 到 成 百 上 千 个 窗 
体 或 程序 模块 ,如 图 3-2 所 示 。 

Windows 操作 系统 中 , 人 机 交互 的 界面 主要 是 通过 一 些 窗口 和 对 话 框 实现 的 。Delphi 
XE8 的 可 视 化 设计 工作 就 是 在 窗 体 中 进行 的 。 通 常 , 窗 体 中 会 有 一 些 组件 , 通 过 这 些 组 件 可 
以 实现 多 种 多 样 的 功能 。 在 Delphi XE8 中 ,把 这 些 运 行 期 间 出 现在 窗口 和 对 话 框 中 的 组 件 称 
为 可 视 组 件 。 在 窗 体 中 ,不仅 可 以 放置 组 件 , 还 可 以 放置 一 些 运行 期 间 不 可 视 的 组 件 , 这 些 不 
可 视 的 组 件 集中 地 实现 了 一 些 特殊 的 功能 。 
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Fle Edit Search View Refactor projed Run Component Tools Castala Window Help 。 @ Defauh Layout 
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bom 1: 1 Insert Modified 


图 3-2 窗 体 


窗 体 是 应 用 程序 的 操作 界面 ,是 放置 组 件 的 基础 。 在 设计 时 , 窗 体 就 像 一 个 桌面 ,可 以 放 
置 各 种 组 件 ; 在 运行 时 , 窗 体 就 像 一 个 窗口 ,是 程序 与 用 户 交流 的 地 方 。 可 以 说 ,没有 窗 体 ,应 
用 程序 的 框架 就 很 难 建立 起 来 。 窗 体 由 标题 栏 、 工 作 区 和 边界 组 成 ,通常 标题 栏 中 还 有 控制 菜 
单 “ 最 大 化 /复原 ”按钮 “最 小 化 ”按钮 “关闭 ”按钮 等 。 用 鼠标 左 键 按 住 标 题 栏 可 以 拖 动 窗 
体 ,用 鼠标 指向 窗 体 的 边界 ,如 果 出 现 双向 的 箭头 , 拖 动 鼠 标 可 以 改变 窗 体 的 大 小 。 

1. Form 的 主要 属性 

窗 体 组 件 (TForm) 是 一 种 特殊 的 组 件 , 它 在 运行 时 表现 为 一 个 窗 体 , 窗 体 是 一 个 容器 构 
件 , 它 可 以 包含 其 他 种 类 的 构件 ,并 协同 完成 应 用 程序 的 整体 功能 。 窗 体 和 其 他 组 件 一 样 ,由 
属性 、 事 件 和 方法 组 成 。 

1) BorderIcons 属性 

BorderIcons 属性 用 来 制定 窗 体 标题 栏 上 的 图 标 ,可 以 设置 为 下 列 取 值 。 

(1) biSystemMenu: 可 以 通过 单 击 标题 栏 左边 的 图 标 或 在 标题 栏 上 单 击 右键 来 显示 控制 
菜单 。 控 制 菜单 有 时 也 称 为 系统 菜单 。 

(2) biMinimize: 在 标题 栏 右边 显示 “最 小 化 ”按钮 。 

(3) biMaximize: 在 标题 栏 右边 显示 “最 大 化 ”按钮 。 

(4) biHelp: 在 标题 栏 右边 显示 “帮助 ”按钮 。 只 有 窗 体 的 BorderStyle 属性 设置 为 bsDialog 
或 者 窗 体 属性 BorderIcons 中 不 包括 biMinimize 和 biMaximizes 时 ,biHelp 设置 才 有 效 。 

2) BorderStyle 属性 

BorderStyle 属性 用 来 设置 窗 体 的 外 观 和 边框 ,可 以 设置 为 下 面 的 取 值 。 

(1) bsDialog: 窗 体 为 标准 的 对 话 框 ,边框 大 小 不 可 以 改变 。 
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(2) bsSingle: 窗 体 具有 单线 边框 ,大 小 不 可 以 改变 。 

(3) bsNone: 窗 体 没 有 边框 ,也 没有 标题 栏 , 边 界 的 大 小 不 可 以 改变 。 

(4) bsSizeable: 边框 大 小 可 变 的 窗 体 。 

(5) bsToolwindow: 风格 与 bsSingle 相同 ,只 是 标题 栏 比较 小 。 另 外 ,对 于 这 种 风格 的 窗 
体 ,属性 borderIcons 中 设置 的 biMinimize 和 biMaximize 并 不 起 作用 。 

(6) bsSizeToolWin: 风格 与 bsSizeable 相同 ,只 是 标题 栏 比较 小 。 对 于 这 种 风格 的 窗 体 ， 
属性 BorderIcons 中 设置 的 biMinimize 和 biMaximize 也 不 起 作用 。 

3) Name 属性 

Name 属性 是 对 象 的 名 称 , 它 用 来 唯一 地 标识 对 象 ,Name 属性 的 取 值 不 能 为 空 ,如果 工程 
中 有 多 个 窗 体 ,名 称 不 能 相同 。 

通常 ,应 该 在 系统 开发 的 设计 阶段 就 将 整个 工程 所 有 窗 体 的 名 称 确定 ,然后 在 编程 阶段 根 
据 设 计 文档 修改 窗 体 Name 属性 。 一 般 情况 下 ,不 要 在 程序 运行 期 间 通过 代码 修改 Name 
属性 。 

4) Caption 属性 

Caption 属性 用 来 指定 窗 体 标题 栏 中 的 说 明文 字 , 可 以 为 空 ,省 略 时 , Caption 属性 与 
Name 属性 相同 。 

5) Font 属性 

Font 属性 用 来 设置 窗 体 中 文字 的 字体 .颜色 和 字号 等 ,其 中 ,Font. style 属性 为 集合 型 。 

6) FormStyle 属性 

FormStyle 属性 用 来 指定 窗 体 的 类 型 。 

从 窗 体 类 型 的 角度 来 看 , Windows 环境 中 的 应 用 程序 可 以 分 为 以 下 三 类 。 

第 一 类 : 多 文档 界面 (MDI) 应 用 程序 。 一 般 这 种 应 用 程序 具有 一 个 父 级 窗口 和 多 个 子 窗 
口 , 可 以 同时 打开 多 个 文档 ,分 别 在 多 个 子 窗口 中 显示 。 例 如 ,常用 的 文字 处 理 软件 Word 等 ， 
可 以 同时 编辑 多 个 文档 。 

第 二 类 : 单 文档 界面 (CSDI) 应 用 程序 。 这 种 应 用 程序 同时 只 能 打开 一 个 文档 。 例 如 ， 
Windows 操作 系统 附件 中 自 带 的 “记事 本 ”, 只 能 同时 编辑 一 个 文本 文件 。 

第 三 类 : 对 话 框 应 用 程序 。 这 种 应 用 程序 的 主 界面 基于 一 个 对 话 框 类 型 的 窗 体 。 例 如 ， 
Windows 系统 中 自 带 的 “扫雷 ”游戏 程序 。 

FormStyle 属性 的 取 值 如 下 。 

(1) fsNormal: 普通 类 型 的 窗 体 , 既 不 为 MDI 应 用 程序 的 父 级 窗口 ,也 不 为 MDI 应 用 程 
序 的 子 窗口 。 

(2) fsMDIChildMDI: 应 用 程序 中 的 子 窗 体 。 

(3) fsMDIFormMDI: 应 用 程序 中 的 父 窗 体 。 

(4) FsStayOnTop: 在 桌面 最 前 端 显 示 窗 体 。 

7) Icon 属性 

Icon 属性 用 来 指定 标题 栏 中 显示 的 图 标 。 

单 击 对 象 编辑 器 Icon 属性 右边 的 省 略 号 按钮 zon |None) [=], 在 弹出 的 PictureEditor 对 
话 框 中 单 击 Load 按钮 ,就 可 以 装 入 一 个 制作 好 的 图 标 。 

8) Position 属性 

Position 属性 用 来 描述 窗 体 的 大 小 和 显示 的 位 置 。 可 以 是 下 列 取 值 。 
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(1) poDesigned: 窗 体 显 示 的 位 置 和 大 小 与 设计 期 间 的 一 致 。 

(2) poDefault: 窗 体 每 次 显示 时 ,与 上 次 比较 , 往 右 下 角 移动 了 一 些 位 置 ; 窗 体 的 高 度 和 
宽度 由 Windows 决定 。 

(3) poDefaulPosOnly: 窗 体 以 设计 期 间 的 大 小 显示 , 窗 体 显示 的 位 置 较 上 次 向 右 下 角 移 
动 了 一 些 。 如 果 窗 体 设计 时 的 大 小 不 可 以 在 屏幕 上 完全 显示 ,就 移动 到 屏幕 的 左上 角 显 示 。 

(4) poDefaultSizeOnly: 窗 体 以 设计 期 间 的 位 置 显示 , 窗 体 的 大 小 由 Windows 决定 。 

(5) poScreenCenter: 窗 体 以 设计 期 间 的 大 小 显示 , 窗 体 显 示 的 位 置 总 在 屏幕 的 中 间 。 考 
虑 多 个 监视 器 时 位 置 的 调整 。 

(6) poDesktopCenter: 窗 体 以 设计 期 间 的 大 小 显示 , 窗 体 显示 的 位 置 总 在 屏幕 的 中 间 。 
不 考虑 多 个 监视 器 时 的 调整 。 

9) WindowsState 属性 

WindowsState 属性 用 来 描述 窗 体 显示 的 状态 ,可 以 是 下 列 取 值 。 

(1) wsNormal: 窗 体 以 普通 状态 显示 ( 既 不 是 最 大 化 状态 ,也 不 是 最 小 化 状态 )。 

(2) wsMinimized: 窗 体 以 最 小 化 状态 显示 。 

(3) WsMaximized: 窗 体 以 最 大 化 状态 显示 。 

2. TForm 的 事件 

窗 体 是 一 个 可 视 化 的 组 件 , 它 几乎 可 以 响应 和 处 理 所 有 的 事件 ,包括 外 部 事件 和 内 部 事 
件 。 窗 体 常 用 的 响应 事件 如 表 3-1 所 示 。 


事件 


表 3-1 窗 体 常用 的 事件 响应 
含义 


OnActive 
OnClose 
OnCloseQuery 


OnCreate 
OnDeactivate 
OnDestroy 
OnHide 
OnPaint 
OnResize 
OnShow 
OnKeyDown 
OnKeyPress 
OnKeyUp 
OnClick 
OnDblClick 
OnDragDrop 
OnDragOver 
OnMouseDown 
OnMouseMove 
OnMouseUp 


当 窗 体 对 象 被 激活 时 产生 此 事件 
当 窗 体 对 象 被 关闭 时 产生 此 事件 
当 窗 体 对 象 被 关闭 时 或 者 调用 系统 菜单 的 “关闭 ”菜单 项 产生 此 事件 ,其 中 包含 
cancel 参数 用 于 决定 是 否 关闭 窗 体 
当 窗 体 对 象 创建 时 产生 此 事件 

当 窗 体 对 象 变 为 非 激活 时 产生 此 事件 
当 窗 体 对 象 被 销毁 前 产生 此 事件 
当 窗 体 对 象 被 隐藏 前 产生 此 事件 
当 窗 体 对 象 客户 刷新 时 产生 此 事件 
当 窗 体 对 象 位 置 移动 时 产生 此 事件 
当 窗 体 对 象 显示 时 产生 此 事件 
键 按 下 时 产生 此 事件 

键 按 下 时 产生 此 事件 

键 放 开 时 产生 此 事件 
鼠标 单 击 事件 

鼠标 双击 事件 

鼠标 拖 放 事件 

鼠标 拖 过 事件 

鼠标 键 按 下 事件 

鼠标 移 过 事件 

鼠标 键 释放 事件 
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3. 窗 体 的 方法 
窗 体 对 象 从 其 父 类 TcustomForm 中 继承 了 许多 方法 ,如 表 3-2 所 示 列 出 了 其 中 一 些 常用 
的 方法 (过 程 或 函数 ) 。 


表 3-2 窗 体 常用 的 方法 


方法 名 称 含 义 
Create 用 来 创建 一 个 窗 体 并 进行 初始 化 ,同时 引发 一 个 OnCreate 事件 。 用 该 方法 创建 的 窗 体 
需要 调用 Show 方法 使 之 可 见 
Close 用 来 关闭 一 个 显示 中 的 窗 体 ,同时 调用 CloseQuery 方法 来 判断 是 否 可 以 关闭 , 若 可 以 ， 


则 引发 一 个 OnClose 事件 并 关闭 窗 体 
CloseQuery 用 来 判断 窗 体 是 否 可 以 被 关闭 ,返回 一 个 逻辑 值 


Release 用 于 将 窗 体 对 象 从 内 存 中 彻底 清除 
Show 用 于 显示 窗 体 ,同时 引发 一 个 OnShow 事件 
ShowModal 用 于 显示 一 个 模式 窗 体 ,同时 引发 一 个 OnShow 事件 
Print 用 于 打印 窗 体 

4. 窗 体 的 创建 


创建 一 个 新 的 应 用 程序 (Application 工程 ), Delphi XE8 将 自动 建立 一 个 新 的 窗 体 , 它 代 
表 应 用 程序 的 主 窗口 。 应 用 程序 也 可 以 拥有 多 个 窗 体 作为 子 窗口 .对 话 框 和 数据 录入 窗口 等 ， 
这 就 需要 创建 和 显示 新 的 窗 体 。 创 建 窗 体 的 方法 分 为 两 种 : 静态 创建 和 动态 创建 。 所 谓 静 态 
创建 窗 体 是 指 再 工程 的 编辑 、 设 计时 创建 新 窗 体 ; 而 动态 创建 窗 体 是 指 在 工程 的 运行 时 通过 
代码 生成 窗 体 。 

1) 静态 创建 新 窗 体 

【 例 3.1】 静态 创建 窗 体 。 

(1) 界面 设计 

通过 集成 开发 环境 中 的 File| New| Application 菜单 ,创建 一 个 应 用 程序 ,此 时 应 用 程序 自 
动 生成 一 个 窗 体 Forml ,再 打开 File| New| Form 菜单 生成 一 个 窗 体 Form2。 在 Forml 中 添 
加 两 个 Button. 一 个 Label 组 件 ,Form2 中 添加 一 个 Label 组 件 , 即 可 完成 界面 设计 ,各 组 件 的 
属性 如 图 3-3 所 示 。 


FE 


Gwar lol 


创建 新 的 窗 体 
新 的 窗 体 


他 时 EXn |] 


3-3 ”静态 窗 体 的 创建 


(2) 程序 设计 
Procedure TForml. Button1Click(Sender: TObject); // 创 建 按钮 事件 
begin 

// 调 用 Show 方法 显示 Form2 窗 体 

form2. show; // 关 键 分 析 


end; 
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Procedure TForm1. Button2Click(Sender: TObject); 
begin 
forml. Close; 
end; 
(3) 程序 分 析 
关键 分 析 : 编译 上 述 工程 时 ,系统 会 弹出 如 图 3-4 所 示 的 提示 信息 。 


Form 'Forml' references form 'form2' declared in 
unit 'Unit2' which is not in your USES list Do you 


wish to add it? 


El 


图 3-4 ”提示 信息 


因为 在 调用 form2. show 显示 form2 窗 体 时 需要 引用 Unit2 单元 ,但 是 Unitl 中 又 没有 
声明 要 使 用 Unit2 单元 ,所 以 弹出 此 提示 信息 问 是 否 在 Unitl 单元 中 添加 Unit2 单元 , 单 击 
Yes 按钮 ,Delphi XE8 将 自动 在 Unitl 单元 中 添加 对 Unit2 单元 的 引用 。 

也 可 以 手动 添加 , 单 击 Cancel 按钮 ,在 Unitl 中 的 实现 部 分 (implementation) 添 加 如 下 
代码 : 

implementation 

uses unit2 

2) 动态 创建 新 窗 体 

用 静态 方法 创建 的 多 窗 体 的 工程 ,在 运行 时 将 把 所 有 的 窗 体 装 入 内 存 。 如 果 工 程 非常 复 
杂 , 系 统 资源 将 变 得 非常 紧张 。 这 种 情况 使 用 下 面 的 方法 : 在 需要 某 个 窗 体 的 时 候 ,临时 创建 
它 , 使 用 后 将 其 立即 释放 。 这 种 方法 称 为 窗 体 的 动态 创建 。 

【 例 3.2】 动态 创建 窗 体 。 

(1) 界面 设计 

通过 集成 开发 环境 中 的 File| New| Application 菜单 ,创建 一 个 应 用 程序 ,此 时 应 用 程序 自 
动 生成 一 个 窗 体 Forml ,再 打开 File| New|Form 菜单 生成 一 个 窗 体 Form2。 在 Forml 中 添 
加 两 个 Button .一 个 Label 组 件 ,Form2 中 添加 一 个 Label 组 件 , 即 可 完成 界面 设计 ,如 图 3-3 
所 示 。 

(2) 属性 设置 

界面 上 各 组 件 的 属性 如 图 3-3 所 示 。 

打开 集成 开发 环境 中 的 Project| Options 菜单 ,打开 Project Options 对 话 框 。 在 Forms 
选项 卡 中 ,所 有 工程 中 的 窗 体 出 现在 Auto-create forms 列表 中 ,表示 这 些 窗 体 在 运行 时 都 是 
在 内 存 中 自动 创建 的 。 选 中 Form2, 将 其 移 至 Available forms 列表 框 中 ,如 图 3-5 所 示 。 

(3) 程序 设计 

procedure TForm1. Button1Click(Sender: TObject); 

= Tform2. Create(nil); // 关 键 分 析 1 


form2. Show; 
end; 


RN 
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procedure TForm1l1. Button2Click( Sender: TObject); 
begin 
forml. Close; 
end; 
Procedure TForm2. FormClose( Sender: TObject; var Action: TCloseAction); 
begin 
form2. Release; // 关 键 分 析 2 
end; 


3-5 ”Project Options for Projectl. exe 对 话 框 


(4) 程序 分 析 
关键 分 析 1: 使 用 Create 方法 来 创建 并 完成 Form2 的 初始 化 。 
关键 分 析 2: 释放 Form2 所 占有 的 内 存 。 


3.1.2 弹出 对 话 框 


对 话 框 是 用 户 与 应 用 程序 交换 信息 的 最 佳 途径 之 一 。 使 用 对 话 框 函数 或 过 程 可 以 调用 
Delphi XE8 的 内 部 对 话 框 ,这 种 方法 具有 操作 简单 及 快速 的 特点 。Delphi XE8 提供 以 下 两 种 
内 部 对 话 框 。 

第 一 种 : 信息 输出 对 话 框 Showmessage 过 程 .ShowMessageFmt 过 程 、MessageDlg 函数 、 
MessageDlgPos 函数 、CreateMessageDialog 函数 。 

第 二 种 : 信息 输入 对 话 框 InputBox 函数 、InputQuery 函数 。 

1. ShowMessage 过 程 

ShowMessage 过 程 显示 一 个 最 简单 的 对 话 框 ,其 语法 格式 为 : 
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ShowMessage(< 信 息 内 容 >); 

说 明 : 

(1) ShowMessage 过 程 显示 的 对 话 框 以 应 用 程序 的 执行 文件 名 作为 标题 ,对 话 框 中 只 含 
有 一 个 OK 按钮 , 单 击 该 按钮 对 话 框 即 关闭 并 返回 

(2) 二 信息 内 容 二 指定 在 对 话 框 中 出 现 的 文本 。 在 二 信息 内 容 一 中 使 用 硬 回 车 (#13) 可 
以 使 文本 换行 。 对 话 框 的 高 度 和 宽度 随 着 二 信息 内 容 之 的 增加 而 增加 。 

2. ShowMessageFmt 过 程 的 语法 格式 为 : 

ShowMessageFmt (< 信息 内 容 >,< 参 数组 >); 

说 明 : ShowMessageFmt 过 程 与 ShowMessage 过 程 的 功能 基本 相同 ,只 是 参数 二 信息 内 
容 二 为 格式 化 了 的 字符 串 ,与 去 参数 组 二 配合 ,形成 显示 在 对 话 框 中 的 信息 。 例 如 ,下 述 代 码 
将 得 到 如 图 3-6 所 示 的 对 话 框 : 


ShowMessageFmt( ' 张 宇 同 学 %$s 考 了 名 d 分 !',[' 外 语 ',100]); 


RE 本 


张 字 同 学 外 语 考 了 100 分 


图 3-6 ”信息 对 话 框 
3. MessageDlg 国 数 
调用 MessageDlgPos 函数 ,可 以 在 屏幕 的 中 心 处 显示 信息 对 话 框 , 其 语法 格式 为 : 
< 变量 > = MessageD1g(< 信 息 内 容 >,< 类 型 >,< 按 钮 组 >,HelPCtx); 
说 明 : 
(1) 所 信息 内 容 之 是 显示 在 对 话 框 中 的 信息 
(2) 所 类 型 二 是 对 话 框 的 类 型 ,其 取 值 如 表 3-3 所 示 。 


表 3-3 ”对 话 框 类 型 的 取 值 


取 值 说 明 
mtWarning 弹出 含有 感叹 号 符号 的 警告 话 框 
mtError 弹出 含有 红色 叉 符 号 的 错误 对 话 框 


mtInformation 弹出 含有 蓝 色 i 符号 的 信息 对 话 框 
mtConfirmation 弹出 含有 绿色 ? 号 的 确认 对 话 框 
mtCustom 弹出 不 含 图 标的 一 般 对 话 框 ,对 话 框 的 标题 是 程序 的 名 称 


(3) 过 按钮 组 二 指定 对 话 框 中 出 现 的 按钮 ,其 中 出 现 的 按钮 与 参数 的 取 值 如 表 3-4 所 示 。 
表 3-4 对 话 框 按钮 类 型 的 取 值 
取 值 说 明 
mbYes 单 击 Yes 按钮 ,函数 返回 mrYes 或 6 
mbNo 单 击 No 按钮 ,函数 返回 mrNo 或 7 
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续 表 

取 值 说 明 
mbOK 单 击 OK 按钮 ,函数 返回 mrOk 或 1 
mbCancel 单 击 Cancel 按钮 ,函数 返回 mrCancel 或 2 
mbHelp Help 按钮 
mbAbort 单 击 Abort 按钮 ,函数 返回 mrAbort 或 3 
mbRetry 单 击 Retry 按钮 ,函数 返回 mrRetry 或 4 
mbIgnore 单 击 Ignore 按钮 ,函数 返回 mrlgnore 或 5 
mbAll 单 击 all 按钮 ,函数 返回 mrall 或 8 
mbNoToAll 单 击 Nottoall 按钮 ,函数 返回 9 
mbYesToAll 单 击 Yestoall 按钮 ,函数 返回 10 


去 按钮 组 之 可 以 组 的 形式 ,如 [mbYes,mbNo] 表 示 对 话 框 中 出 现 两 个 按钮 Yes 和 No; 也 
可 以 常量 的 形式 ,如 mbOKCancel 表示 对 话 框 中 出 现 两 个 按钮 OK 和 Cancel。 按 钮 常量 的 含 
义 如 表 3-5 所 示 。 


表 3-5 按钮 常量 的 取 值 


取 值 说 明 
mbYesNoCancel 三 个 按钮 : Yes、NO、Cancel 
mbOKCancel 两 个 按钮 : OK .Cancel 
mbAortRetrylgnore 三 个 按钮 : Abort、Retry、Ignore 


(4) HelpCtx 指定 当 用 户 单 击 Help 按钮 或 按 Fl 键 时 ,显示 的 帮助 主题 。 

(5) MessageDlg 函数 将 根据 用 户 所 单 击 的 按钮 ,返回 相应 的 值 (Word) 类 型 。 

4. MessageDlgPos 函数 

调用 MessageDlgPos 函数 ,可 以 在 屏幕 的 指定 位 置 显示 信息 对 话 框 ,其 语法 格式 为 : 


< 变量 > = MessageDlgPos(< 信 息 内 容 >, < 类 型 >, < 按钮 组 >, HelpCtx, X,Y); 


说 明 ; MessageDlgPos 函数 只 比 MessageDlg 函数 多 一 项 功能 , 即 它 可 以 指定 对 话 框 的 显 
示 位 置 坐标 : X,Y。 

5.CreatMessageDialog 函数 

与 上 述 函 数 与 过 程 不 同 ,CreatMessageDialog 函数 生成 一 个 信息 框 窗 体 ,可 以 在 程序 中 多 
次 使 用 方法 调用 。 其 语法 格式 为 : 

< 变量 > = MessageDiaPos(< 信 息 内 容 >, < 类 型 >, < 按钮 组 >); 

说 明 : 函数 的 参数 与 MessageDlg 函数 相似 ,只 是 返回 一 个 TForm 类 型 的 对 话 框 ,而 且 并 
没有 把 它 显 示 出 来 。 在 需要 显示 该 对 话 框 的 时 候 . 可 以 使 用 窗 体 ShowModal 的 方法 把 它 
弹出 。 

6. InputBox 函数 

InputBox 函数 显示 一 个 能 接收 用 户 输入 的 对 话 框 ,并 返回 用 户 输入 的 信息 。 其 语法 
格 为 : 


< 变量 > = InputBox (< 对 话 框 标题 >,< 信 息 内 容 >, < 默认 内 容 >); 
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说 明 : 

(1) 二 对 话 框 标题 二 指定 对 话 框 的 标题 。 

(2) 二 信息 内 容 指 定 在 对 话 框 中 出 现 的 文本 。 在 二 信息 内 容 二 中 使 用 硬 回 车 符 (#13) 
可 以 使 文本 换行 。 对 话 框 的 高 度 和 宽度 随 着 一 信息 内 容 二 的 增加 而 增加 。 

(3) 二 默认 内 容 二 指定 对 话 框 的 输入 框 中 显示 的 文本 ,可 以 修改 。 如 果 用 户 单 击 “ 确 定 ” 
按钮 ,输入 框 中 的 文本 将 返回 到 一 变量 二 中 ,车 用 户 单 击 “ 取 消 ” 按 钮 ,将 一 默认 内 容 二 返回 到 
去 变量 > 中 。 

7. InputQuery 函数 

如 果 希 望 对 单 击 Cancel 按钮 (退出 事件 ) 另 做 处 理 , 可 以 使 用 InputQuery 函数 。 该 函数 
与 InputBox 函数 相似 ,只 是 返回 值 是 一 个 布尔 值 。 其 语法 格式 为 : 


< 变量 > = InputQuery (< 对 话 框 标题 >,< 信 息 内 容 >,< 字 符 串 变量 >); 


说 明 : InputQuery 函数 与 InputBox 函数 的 参数 相似 ,默认 内 容 存 放 在 二 字符 串 变量 二 
中 。 可 以 修改 。 如 果 用 户 单 击 OK 按钮 ,输入 框 中 的 文本 将 赋值 到 二 字符 串 变 量 二 中 ,并 且 函 
数 返 回 True; 若 用 户 单 击 Cancel 按钮 ,二 字符 串 变 量 二 中 的 值 保持 不 变 , 并 返回 False。 


3.2 输入 显示 类 组 件 


3.2.1 Edit 组 件 


编辑 框 (Edit) 是 一 种 通用 组 件 , 既 可 以 输入 文本 ,又 可 以 显示 文本 ,是 应 用 程序 中 最 常用 
的 组 件 之 一 。 编 辑 框 组 件 位 于 Standard 组 件 板 中 ,如 图 3-7 


图 -| 四 | Dtedit X 所 示 。 
二 Edit 的 主要 属性 如 下 。 
TEdit 
Additional Nome TEdit 1.AutoSelect 属性 
i AutoSelect 属性 设置 编辑 框 得 到 焦点 时 ,文本 是 否 自动 被 
Supported platforms: 选 中 要 
32-bit Windows 
64-bit Windows 2. AutoSize 属性 
ee ee AnutoSize 属性 决定 编辑 框 是 否 自动 随 字 体 的 变化 而 改变 
大 水 。 
3. Enable 属性 
Enable 属性 用 来 设置 编辑 框 是 否 能 用 。 


4. BorderSytle 属性 

BorderSytle 属性 用 来 设置 编辑 框 的 边框 类 型 , 取 bsSigle 为 单线 , 取 bsNone 为 无 框 。 
5. MaxLength 属性 

MaxLength 属性 设置 所 能 接受 的 最 大 字符 数 。 

6. PasswordChar 属性 

该 属性 设置 非 #0 字符 时 ,将 代替 用 户 输 入 的 字符 被 显示 。 

7. ReadOnly 属性 

决定 编辑 框 中 的 文本 是 否 可 以 编辑 。 
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8._ Selstart 属性 

被 选中 文本 的 开始 位 置 ,或 光标 在 文本 中 的 位 置 。 

9. SelText 属性 

被 选中 的 文本 。 

10. SelLength 属性 

被 选中 文本 的 长 度 。 

11. Text 属性 

编辑 框 中 的 文本 内 容 。 

12. CharCase 属性 

控制 编辑 框 中 文本 的 大 小 写 , 取 值 ecLowerCase, Text 中 的 文本 转换 为 小 写 ; 取 值 
ecNormal 不 改变 ; 取 值 ecUpperCase,Text 中 的 文本 转换 为 大 写 。 


3.2.2 Label 组 件 


标签 (Label) 是 Delphi XE8 中 最 常用 的 输出 文本 信息 的 工具 。 标 签 组 件 位 于 Standard 组 
件 板 中 ,如 图 3-8 所 示 。 


Tool Palette EE 
1. Label 的 主要 属性 7| | Ptabel x 
1) Caption 属性 二 

有 写 TLlabel 
属性 Caption 用 来 显示 标签 的 文本 。 SAdditional Name; TLabel 
2) ShowAccelChar 属性 -名 TLabeledE ue Se 
属性 ShowAccelChar 决定 是 否 将 & 作为 热 键 字 符 的 er 
标记 。 64-bit Windows 


3) AutoSize 属性 

属性 AutoSize 决定 标签 是 否 自动 随 文本 的 变化 而 改变 
大 小 。 

4) Alignment 属性 

属性 Alignment 决定 对 齐 方式 : 左 对 齐 、 居 中 对 齐 、 右 对 齐 。 

5) Layout 属性 

属性 Layout 控制 文本 显示 在 标签 的 顶部 .中 部 .底部 。 

6) WordWrap 属性 

属性 WordWrap 控制 是 否 折 行 显示 。 

7) Transparent 属性 

属性 Transparent 决定 背景 是 否 透 明 。 

8) FocusControl 属性 


3-8 标签 


属性 FocusControl 用 来 设置 按 下 热 键 时 ， 
获得 焦点 的 组 件 名 。 

2. Label 的 使 用 

【 例 3.3】 利用 标签 设计 一 个 投影 效果 。 

1) 界面 设计 

创建 一 个 新 的 工程 ,在 窗 体 中 添加 两 个 按 
钮 Buttonl 和 Button2 组 件 ,再 添加 两 个 标签 


图 3-9 Label 示例 
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Labell 和 Label2 组 件 , 如 图 3-9 所 示 。 
2) 属性 设置 
其 组 件 和 窗 体 的 属性 设置 如 表 3-6 所 示 。 
表 3-6 窗 体 和 组 件 属性 设置 


对 象 属性 属性 值 说 明 
Buttonl Caption 左 光源 按钮 标题 
Button2 Caption 右 光 源 按钮 标题 

Font. name 黑体 字体 
Caption 你 好 ,欢迎 使 用 ! 按钮 标题 
Font. Size 32 字体 大 小 
Labell 
Font. Style. fsBold true 加 粗 
Font. color cllime 绿色 
TransParent True 透明 
Font. name 黑体 字体 
a Caption 你 好 ,欢迎 使 用 ! 按钮 标题 
人 Font. Size 32 字体 大 小 
Font. Style. fsBold true 加 粗 
3) 程序 设计 
procedure TForml1. ButtonlClick(Sender: TObject); 
begin 
Label2. Left: = labell.Left+5; 
end; 
procedure TForml. Button2Click(Sender: TObject); 
begin 
Label2. Left: = labell.Left—5; 
end; 


3.2.3 Memo 组 件 
备注 框 (Memo) 是 Delphi XE8 中 最 常用 的 输出 多 行文 本 信息 的 工具 。 备 注 框 组 件 位 于 


Standard 组 件 板 中 ,如 图 3-10 所 示 。 
Edit 组 件 只 能 操作 单行 文本 ,如 果 文 本 长 度 超出 可 用 空 x 
间 , 则 只 能 显示 部 分 文本 。 要 处 理 多 行文 本 就 要 用 到 备注 框 。 Sonda 


TMemo 
Memo 组 件 。 Name: TMemo 
1. Memo 的 主要 属性 ede 
备注 框 在 Delphi XE8 中 用 Tmemo 类 处 理 ,Tmemo 类 是 parte Ehren 


Tedit 类 的 衍生 类 ,因此 ,Tedit 类 所 具有 的 属性 、 事 件 和 方法 在 Se 
Tmemo 类 中 都 有 。 另 外 ,为 了 处 理 多 行文 本 ,Tmemo 类 还 增 图 3-10 备注 框 
加 了 一 些 新 的 属性 。 


1) CaretPos 属性 

CaretPos 属性 用 来 得 到 光标 在 编辑 区 中 的 位 置 ,如 Memol. CaretPos. y 表示 光标 所 在 行 数 。 
2) Lines 属性 

Lines 属性 是 按 行 处 理 文本 。Lines 属性 实际 上 是 一 个 Tstring 类 型 的 对 象 ,用 来 存放 
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Memo 对 象 的 文本 。Tstrings 类 型 有 一 个 默认 的 属性 Strings, 定 义 为 : 
Property Strings[ Index: integer]: string; 


其 中 ,Index 表示 字符 串 组 的 索引 ,从 0 开始。 因此 ,Memol. Lines[L0] 表 示 Memo 组 件 中 第 一 
行 的 字符 串 。 如 下 面 的 代码 可 以 将 第 5 行 的 文本 赋值 给 变量 S: 


S: = Memol. lines[4]; 


单 击 属 性 窗口 Lines 属性 值 右 端的 半 按 钮 ,可 以 打开 String List Editor 对 话 框 。 在 其 中 
可 以 直接 输入 备注 中 各 行 Lines 的 内 容 , 如 图 3-11 所 示 。 


Dines 


图 3-11 String List Editor 对 话 框 


在 编程 时 可 以 调用 Memo 的 一 些 方法 来 处 理 Lines 中 的 数据 。 


Memol. Lines. Add( s); // 在 Memo 最 后 增加 一 行 字符 串 s, 并 返回 改行 的 行 值 
Memol. Lines. Delete(x); // 删 除 Memo 中 的 x+1 行 字符 串 

Memol.Lines. Insert(x, s); // 在 第 x+1 行 处 插入 一 个 新 行 

Memo1. Lines. Move(x, y); // 将 第 x+ 1 行 移 至 第 Y+ 1 行 处 

Memol. Lines. LoadFile(path); // 将 path 指定 路 径 的 文件 加 载 到 Memo 中 


3) Modified 属性 

Modified 属性 用 于 确定 文本 是 否 被 改动 过 。 

4) ScrollBars 属性 

ScrollBars 属性 决定 备注 框 是 否 具有 滚动 条 ,ScrollBars 可 以 有 下 列 取 值 。 

(1) ssNone: 无 滚动 条 。 

(2) ssHorizontal: 只 有 水 平 滚动 条 。 

(3) ssVertical: 只 有 垂直 滚动 条 。 

(4) ssBoth: 同时 具有 垂直 和 水 平 滚动 条 。 

5) WordWrap 属性 

WordWrap 属性 设置 文本 是 否 能 够 换行 ,如 果 没 有 水 平方 向 的 滚动 条 ,WordWrap 属性 值 
为 True 时 ,备注 框 中 的 文本 会 自动 按 字 换行 , 即 当 一 行文 本 已 超过 所 能 显示 的 长 度 时 ,备注 
框 自动 将 文本 折 回 到 下 一 行 显示 。 自 动 按 字 换行 可 省 去 用 户 在 行 尾 插入 换行 符 的 麻烦 。 

6) WantReturns 属性 

WantReturns 属性 用 来 设置 备注 框 是 否 能 插入 回 车 键 。 
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7) et ee 网 可 = [cc 

WantTabs 属性 用 来 设置 备注 框 是 否 入 Tab 键 。 和 一 

2. Memo 的 使 用 Em 二 主人 
| 件 ， 一 个 编辑 框 sditl 组 件 

【 例 3.4】 利用 编辑 框 ,把 编辑 框 中 的 文本 输入 到 Memo 中 。 ， 一 个 备注 框 emol 组 件 。 

1) 界面 设计 

创建 一 个 新 的 工程 ,在 窗 体 中 添加 一 个 按钮 Button 组 件 一 


个 编辑 框 Edit 组 件 和 一 个 备注 框 Memo 组 件 ,各 组 件 的 属性 设 


置 如 图 3-12 所 示 。 3-12 “Memo 示例 ”界面 
2) 程序 设计 


Pprocedure TForm1. Button1Click(Sender: TObject); 


begin 


Memol. Lines. Add(Editl1. Text); 
editl. Text: = ?7 
editl. SetFocus; 


end; 


procedure TForm]. FormActivate( Sender: TObject); 


begin 


edit1. SetFocus; 


end; 


3.2.4 MaskEdit 组 件 


MaskEdit 组 件 是 格式 化 的 编辑 框 , 它 限制 用 户 在 所 定义 的 位 置 输入 要 求 输入 的 符号 。 掩 
码 编辑 框 (MaskEdit) 组 件 位 于 Additional 附加 组 件 板 中 ,如 图 3-13 所 示 。 


1. MaskEdit 常用 属性 


图 -| 器 | Dtmaskedd XX MaskEdit 组 件 在 Delphi XE8 中 用 TMaskEdit 类 处 理 ， 
= | TMaskEdit 类 也 是 TEdit 类 的 子 类 ,因此 ,TEdit 类 所 具有 的 
mg 属性 、 事 件 和 方法 在 TMaskEdit 类 中 都 有 。 男 外 ， 
Unit VchMask TMaskEdit 类 还 增加 了 一 些 新 的 属性 。 
Package: dclstd220.bpl 
ee emms 1) EditMask 属性 
64-bit Windows EditMask 属性 用 来 控制 用 户 输入 数据 格式 的 掩 码 字 符 


串 , 掩 码 字符 串 EditMask 属性 分 为 三 个 部 分 ,用 分 号 分 隔 。 


图 3-13 TMaskEdit 组 件 第 一 部 分 是 掩 码 字符 串 的 主要 部 分 , 它 确定 了 数据 的 格式 ,其 


中 所 用 到 的 特殊 字符 及 基 意 义 参见 表 3-7; 第 二 部 分 决定 是 


否 将 掩 码 中 的 字符 串 作 为 数据 的 一 部 分 ,0 表示 不 作为 数据 的 一 部 分 ,1 表示 作为 数据 的 一 部 
分 , 它 将 影响 属性 ; 第 三 部 分 指出 在 掩 码 中 用 来 代表 未 输入 数据 的 字符 。 


表 3-7 EditMask 中 的 特殊 字符 


字符 意 义 
! 如 果 “!” 出 现在 掩 码 中 , 则 输入 字符 串 的 首 空格 不 会 存 成 数据 ,如 果 “!1” 没 有 出 现在 掩 码 中 , 则 
输入 字符 串 的 末 空 格 不 会 存 成 数据 
Es 如 果 二 出 现在 掩 码 中 , 则 它 后 面 的 所 有 字符 都 会 变 为 大 写 ,除非 遇 到 一 
泛 如 果 达 出 现在 掩 码 中 , 则 它 后 面 的 所 有 字符 都 会 变 为 小 写 , 除 非 遇 到 二 
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续 表 

字符 意 义 
如 果 雪 > 出 现在 掩 码 中 , 则 它 后 面 的 所 有 字符 的 大 小 写 状态 都 将 不 会 改变 
\ 后 面 的 字符 作为 原 字符 显示 ,使 用 \ 可 以 将 任何 字符 原样 显示 
工 字符 表示 该 字符 位 置 处 只 能 输入 一 个 字母 ,在 英文 中 为 : A~Z、a~z 
I 字 符 表 示 该 字符 位 置 处 只 能 输入 一 个 字母 ,在 英文 中 为 : A 一 Z\a 一 z, 但 不 一 定 输入 
A 字符 表示 该 字符 位 置 处 只 能 输入 一 个 字母 或 数字 字符 ,在 英文 中 为 : A 一 Z\a~z 及 0 一 9 
a 字符 表示 该 字符 位 置 处 只 能 输入 一 个 字母 ,但 一 定 输入 
C 字 符 表示 该 字符 位 置 处 可 以 输入 任意 一 个 字符 
c 字 符 表示 该 字符 位 置 处 可 以 输入 任意 一 个 字符 ,但 一 定 输入 
0 字符 表示 该 字符 位 置 处 只 能 输入 一 个 数字 字符 : 0 一 9 
9 字符 表示 该 字符 位 置 处 只 能 输入 一 个 数字 字符 : 0 一 9, 但 不 一 定 输入 
# 字 符 表示 该 字符 位 置 处 只 能 输入 一 个 数字 字符 或 正 负 号 ,但 不 一 定 输入 
“: ”字符 用 来 分 隔 时 间 中 的 时 、 分 、 秒 

/ “/” 字 符 用 来 分 隔日 期 中 的 年 、 月 、 晶 

; “; "字符 用 来 分 隔 掩 码 字符 串 的 三 个 部 分 

= “一 ”字符 将 自动 在 text 中 插入 一 个 空格 。 当 用 户 输入 时 ,光标 会 自动 跳 过 该 字符 


人 
V 


"并 onosp-cc 


说 明 : 

(1) 由 于 汉字 占 两 个 字符 ,所 以 用 于 控制 输入 中 文 的 掩 码 字符 也 必须 有 两 个 ,如 LL 或 
cc 等 。 

(2) 表 中 没有 列 出 的 一 般 字符 都 会 被 显示 出 来 ,输入 时 这 些 字 符 会 自动 跳 过 。 

(3) EditText 与 Text 属性 都 可 以 用 来 读 取 用 户 输入 的 数据 。 当 掩 码 字 符 串 中 第 二 部 分 
为 1 时 ,EditText 与 Text 的 值 是 相同 的 ; 当 掩 码 字 符 串 中 第 二 部 分 为 0 时 ,Text 的 值 不 包含 
掩 码 字 符 串 自动 显示 的 字符 ,而 只 包含 用 户 输入 的 字符 。 

2) EditText 属性 

EditText 属性 用 来 返回 用 户 输入 的 数据 。 

2. MaskEdit 的 使 用 

【 例 3.5】 个 人 档案 编辑 器 。 

1) 界面 设计 

创建 一 个 新 的 工程 ,在 窗 体 中 添加 两 个 Button 组 件 、 


忆 个 人 g 二 有 昊 es 
两 个 Edit 组 件 、 一 个 Memo 组 件 和 两 个 MaskEdit 组 件 ， 本 
me a 
2) 属性 设置 工作 单位 :中国 移动 通信 有 有 限 公司 
各 个 组 件 的 属性 如 图 3-14 所 示 ,其 中 ,MaskEditl 组 本 
; 张 宇 


件 的 EditMask 属性 通过 单 击 属性 值 右 端 的 按钮 打开 | 联系 电 话 iiii 训 
Input Mask Editor 对 话 框 来 设置 ,如 图 3-15 所 示 。 出 生年 月 ，1 瑟 是 01 是 
用 同样 的 方法 可 以 设置 MaskEdit2 组 件 的 EditMask ”| 玫 工作 单位 ， 中 国 移动 省 信 有 限 公司 


属性 ,输入 掩 码 字符 串 :“! 0000 年 09 月 09 日 ;1;_”。 
3) 程序 设计 图 3-14 个 人 档案 编辑 器 


Procedure TForm1. Button1Click(Sender: TObject); 
begin 


Delphi 程序 设计 教程 (第 3 版 ) 


memol. Lines. hdd( ' 姓 名 : '+editl. Text); 
memol. Lines. Rdd( ' 联 系 电话 : '+ maskedit1.Text): 
memol. Lines. Add( ' 联 系 单位 : ' + maskedit2. Text); 
memol. Lines. Add( ' 工 作 单 位 : ' + edit2. Text); 
end; 


procedure TForm1. Button2Click( Sender: TObject); 
begin 
editl. Text: = ""; 
maskedit1. Text: 
maskedit2. Text: 
edit2. Text: ="" 
end; 


Input Mask: 
!0000 年 09 月 09 日 ;1;」] (415)555-1212 


Character for Blanks: |555-55-5555 
团 Save Uteral Characters 


Test Input: 
一 年 .月 .日 


Ee 


3-15 ”Input Mask Editor 对 话 框 


3.3 按钮 类 组 件 


3.3.1 Button 组 件 


Button 按钮 往往 作为 一 个 窗 体 中 某 些 行 为 的 执行 工具 ,Button 按钮 位 于 Delphi XE8 组 
件 板 Standard 选项 卡 中 ,如 图 3-16 所 示 。 

1， Button 的 主要 属性 

基本 按钮 (Button) 是 程序 中 最 常用 的 组 件 之 一 ,下 面 介绍 它 的 主要 属性 。 

1) Caption 属性 

Caption 属性 用 来 指定 按钮 所 显示 的 文字 。 

2) Cancel 属性 

Cancel 属性 用 来 决定 该 按钮 是 否 为 “取消 ?按钮 ,默认 值 为 
False。 当 Cancel 属性 设 为 True 时 , 单 击 Button 与 按 Esc 键 


辐 -| 四 | 记 tbuton x 
等 价 。 Estandard 
3) Default 属性 加 TButon | 


SAdditional [Name: TButon 
Default 属性 用 来 决定 该 按钮 是 否 为 默认 按钮 ,默认 值 为 ” 7 | 
False。 当 Default 属性 设 为 True 时 , 单 击 Button 与 按 Enter 国 TButtonG cooper 


ET | Supported platforms: 
STeeChart Lit 32-bit Windows 
键 等 价 。 


ETButtonC 64-bit Windows 
4) ModalResult 属性 


ModalResult 属性 用 来 决定 模式 窗 体 如 何 被 关闭 。 图 3-16 ”Button 按钮 
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ModalResult 属 性 的 取 值 有 : mrNone、mrOK、mrCancel、 mrAbort、 mrRetry、 mrlgnore、 
mrYes、mrNo、mrAll、mrNoToAll、mrYesToAll。 当 Button 被 置 于 一 个 模式 窗 体 (Modal 
Form) 时 ,ModalResult 属性 才 有 意义 。 此 时 , 若 属 性 值 不 是 0(mrNone) ,Button 被 单 击 后 ,所 
在 的 模式 窗 体会 自动 关闭 ,并 且 ModalResult 属性 值 会 作为 ShowModal 函数 的 结果 返回 , 因 
此 无 须 再 为 其 OnClick 事件 编写 代码 。 

2. Button 的 事件 

Button 组 件 的 绝 大 部 分 事件 是 响应 鼠标 动作 的 。Button 组 件 常用 的 事件 如 表 3-8 所 示 。 


表 3-8 Button 按钮 常用 的 事件 响应 


综 - 体 含义 
OnClick 鼠标 单 击 事件 
OnMouseDown 鼠标 键 按 下 事件 
OnMouseMove 鼠标 移 过 事件 
OnMouseUp 鼠标 键 释放 事件 


在 下 述 两 种 情况 下 ,OnClick 事件 将 被 激发 。 
(1) 用 鼠标 单 击 按钮 。 
(2) 当 按钮 获得 焦点 时 , 按 Enter 键 或 空格 键 。 


3.3.2 BitBtn 组 件 


位 图 按钮 (BitBtn) 组 件 的 工作 方式 与 Button 组 件 相 似 , 但 
可 以 显示 一 个 彩色 的 位 图 (Bitmap)。 使 用 位 图 可 以 比 看 到 一 团 -| 加 | tbitbtn 
些 专业 化 的 术语 更 容易 让 人 理解 其 功能 和 作用 。BitBtn 按钮 。 eeenal 


x 


本 TBitBtn 
位 于 Delphi XE8 组 件 板 Additional 选项 卡 中 ,如 图 3-17 所 示 。 Fe 
1，BitBtn 的 主要 属性 ye a 
由 于 TbitBtn 类 是 Tbutton 的 子 类 , 它 具 有 Button 的 所 有 ES 
属性 ,下 面 介 绍 一 些 有 别 于 Button 的 主要 属性 。 se 
1) Glyph 属性 3-17 ”BitBtn 按钮 
Glyph 属性 为 BitBtn 指定 一 个 . bmp 文件 ,显示 在 按钮 的 
表面 。 
2) Kind 属性 


Kind 属性 决定 BitBtn 按钮 的 种 类 。Kind 属性 的 取 值 有 : bkCustom、bkOK、bkCancel、 
bkHelp、bkYes、bkNo、bkClose、bkAbort、bkRetry、bklgnore、baAll。 上 默认 值 为 bkCustom, 表 
示 其 种 类 为 自 定义 类 型 ,位 图 由 Glyph 属性 指定 。Kind 属性 的 其 他 取 值 ,使 BitBtn 按钮 对 应 
一 个 特殊 的 位 图 ,并 将 其 ModalResult 属性 自动 设 为 相应 的 值 。 如 bkOK、bkCancel、bkYes 
和 bkNo 分 别 对 应 于 mrOK、mrCancel .mrYes 和 mrNo 等 。 

3) Layonut 属性 

Layout 属性 用 来 控制 BitBtn 按钮 中 位 图 与 文本 的 相对 位 置 。Layout 属性 的 取 值 有 : 
blGlyphLeft、blGlyphRight、blGlyphTop、blGlyphBottom。 分 别 设置 位 图 出 现在 文本 的 左 侧 、 
右 侧 、 上 方 、 下 方 。 默 认 值 为 blGlyphLeft。 
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4) Margin 属性 

Margin 属性 用 来 控制 BitBtn 按钮 中 位 图 与 边界 之 间 的 像素 个 数 。Margin 属性 的 默认 值 
为 一 1, 表 示 位 图 位 于 按钮 的 正中 。 当 Layout 属性 的 值 为 blGlyphLeft 时 ,Margin 属性 的 值 表 
示 按 钮 左边 界 与 位 图 的 距离 ; 当 Layout 属性 的 值 为 blGlyphRight 时 ,Margin 属性 的 值 表示 
按钮 右边 界 与 位 图 的 距离 ; 以 此 类 推 。 

5) Spacing 属性 

Spacing 属性 用 来 控制 BitBtn 按钮 中 位 图 与 文本 之 间 的 (距离 ) 像 素 个 数 。Spacing 属性 
的 值 为 一 1 时 ,文本 、 位 图 与 按钮 边界 成 等 距离 。 当 Spacing 属性 的 值 为 非 负 整数 时 ,表示 文本 
与 位 图 之 间 的 距离 。Spacing 属性 的 默认 值 为 4。 

2. BitBtn 的 事件 

BitBtn 组 件 的 绝 大 部 分 事件 和 Button 组 件 一 样 是 响应 鼠标 动作 的 。BitBtn 组 件 常用 的 
事件 如 表 3-9 所 示 。 


表 3-9 BitBtn 按钮 常用 的 事件 响应 


事 件 含 党 
OnClick 鼠标 单 击 事件 
OnMouseDown 鼠标 键 按 下 事件 
OnMouseMove 鼠标 移 过 事件 
OnMouseUp 鼠标 键 释放 事件 
在 下 述 两 种 情况 下 ,OnClick 事件 将 被 激发 。 二 下 
Cl) 用 鼠标 单 击 按钮。 mT 
(2) 当 按钮 获得 焦点 时 , 按 Enter 键 或 空格 键 。 区 7 
【 例 3.6】 含有 各 种 类 型 位 图 按钮 的 窗 体 。 [Xm | (Deew | [Dl | 
1. 界面 设计 Evo | [Xcel)] (FHep | 
创建 一 个 新 的 工程 ,在 窗 体 中 添加 11 个 位 图 按钮 
BitBtn1 一 BitBtnll 组 件 , 如 图 3-18 所 示 。 
2. 属性 设置 图 3-18 位 图 按钮 示例 
BitBtnl 的 属性 设置 如 表 3-10 所 示 。 其 他 按钮 的 属 
性 设置 与 之 类 似 。 
表 3-10 窗 体 及 组 件 属性 设置 
对 象 属性 属性 值 说 明 
Caption 是 (&Y) 位 图 按钮 的 标题 
a Kind bkYes 位 图 按钮 的 种 类 
Hint Kind=bkYes 作为 工具 提示 出 现 的 文本 
Showhint True 是 否 出 现 工具 提示 


说 明 : BitBtn11 按钮 的 Kind 属性 值 为 bkClose 时 ,无 须 为 BitBtn11 按钮 编写 事件 代码 ， 
按钮 自动 具备 关闭 窗 体 的 功能 。 
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3.3.3 SpeedButton 组 件 


快速 按钮 (SpeedButton) 是 一 种 可 以 成 组 工作 的 按钮 ,具有 与 位 图 按钮 一 样 将 位 图 显示 在 
按钮 表面 的 功能 ; 还 具有 与 单 选 按 钮 一 样 允 许 其 中 一 个 按钮 被 选中 ( 按 下 ) 的 功能 ; 当 它 单独 


使 用 的 时 候 可 以 像 复 选 框 一 样 具 有 开关 的 功能 。 快 速 按钮 位 IT i 
于 Additonal 组 件 板 中 ,如 图 3-19 所 示 。 图 -| 四 | PtspeedbutonX 


快速 按钮 的 大 部 分 属性 与 Button 和 BitBtn 相同 ,也 有 一 [ER 
些 独 具 的 特殊 属性 。 


Name: TSpeedButton 


1，AllowAllUp 属性 a 

AllowAllUp 属性 控制 是 否 允许 单 击 处 于 按 下 状态 的 按 Supported plore 
钮 ,使 之 恢复 到 松 开 状 态 。 默 认 值 为 False。 so 

2. Down 属性 图 3-19 快速 按钮 

Down 属性 设置 按钮 是 否 处 于 按 下 状态 。 默 认 值 为 False。 

3. Flat 属性 


当 属 性 Flat 取 值 为 True 时 ,按钮 具有 Office 2010 工具 栏 
的 风格 。 默 认 值 为 False。 
4. GroupIdex 属性 


该 属性 默认 值 为 0, 表示 不 与 其 他 SpeedButton 成 组 。 若 取 值 大 于 0, 则 相同 GroupIndex 


值 的 SpeedButton 将 成 组 协同 工作 , 像 单 选 按钮 组 一 样 。 要 使 SpeedButton 像 复 选 框 那样 工 
作 , 只 需 将 GroupIndex 属性 设 为 大 于 0, 且 不 与 任何 其 他 SpeedButton 的 GroupIndex 属性 值 
相同 ,再 将 AllowAllUp 属性 设 为 True 即 可 。 

【 例 3.7】 使 用 SpeedButton 控制 文本 的 字体 与 
字体 风格 。 

1) 界面 设计 

创建 一 个 新 的 工程 ,在 窗 体 中 添 


局 SpeedButton 示 例 


匡 图 攻 可 区 加 有 回 四 加 


你 好 ! 欢迎 使 用 
件 上 添加 7 个 SpeedButton 组 件 , 如 图 3-20 所 示 。 


加 一 个 Label 组 件 、 一 个 Panel 组 件 ,在 Panel 组 


2) 属性 设置 
OR 各 组 件 的 属性 设置 如 表 3-11 示 。 
表 3-11 窗 体 及 组 件 属性 设置 
对 象 属性 属性 值 说 明 
Caption 宋体 按钮 标题 
SpeedButton1l Down Ta 按 下 状态 
GroupIndex 1 组 1 
SpeedButton2 Rom 隶书 按钮 标题 
GroupIndex 1 组 1 
SpeedButton3 ee 黑体 按钮 标题 
GroupIndex 1 组 1 
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续 表 
对 象 属性 属性 值 说 明 
Sa Caption 楷体 按钮 标题 
GroupIndex 1 组 1 
Caption B 按钮 标题 
AllowAllUp True 允许 按键 松 开 
SpeedButton5 
Font. Style. fsBold True 粗 体 
GroupIndex 2 组 2 
Caption I 按钮 标题 
AllowAllUp True 允许 按键 松 开 
SpeedButton6 - 
Font. Style. fslItalic True 斜体 
GroupIndex 3 组 3 
Caption U 按钮 标题 
SpeedButton7 AllowAllUp True 允许 按键 松 开 
Font. Style. fsUnderline True 下 划 线 
GroupIndex 4 组 4 
Labell Caption 你 好 ! 欢迎 使 用 标题 
3) 程序 设计 
Procedure TForm1. SpeedButton1Click(Sender: TObject); 
begin 
Labell. Font. Name: = ' 宋 体 ' ; 
end; 
procedure TForm]. SpeedButton2Click(Sender: TObject); 
begin 
Labell. Font. Name: = ' 隶 书 ' ; 
end; 
procedure TForm]. SpeedButton3Click(Sender: TObject); 
begin 
Labell. Font. Name: = ' 黑 体 ' ; 
end; 
procedure TForm]. SpeedButton4Click(Sender: TObject); 
begin 
Labell. Font. Name: = ' 楷 体 _GB2312' ; 
end; 
Procedure TForml. SpeedButton5Click(Sender: TObject); 


begin 
if SpeedButton5. Down then 


labell. Font. Style: = labell.Font.Style+ [fsBold] 


else 


labell. Font. Style: = labell.Font.Style— [fsBold]; 


end; 


Pprocedure TForm1. SpeedButton6Click( Sender: 


TObject); 


// 关 键 分 析 
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begin 
if SpeedButton6. Down then 
labell1. Font. Style: = label1.Font.Style+ [fsItalic] 
else 
labell. Font. Style: = labell.Font.Style— [fsItalic]; 
end; 


Procedure TForm1. SpeedButton7Click( Sender: TObject); 
begin 
if SpeedButton7. Down then 
labell. Font. Style: = label1.Font.Style+ [fsunderline] 
else 
labell. Font. Style: = labell.Font.Style— [fsunderline]; 
end; 
4) 程序 分 析 
关键 分 析 : Labell 对 象 的 字体 风格 Labell. Font. Style 属性 为 集合 类 型 ,代码 中 的 十 、 一 
运算 属于 集合 的 “并 ”与 “ 差 ” 运 算 。 


3.4 复 选 框 . 单 选 按钮 和 单 选 按钮 组 


3.4.1 CheckBox 组 件 


复 选 框 (CheckBox) 是 一 个 旁边 带 有 文本 说 明 的 小 方 框 。CheckBox 位 于 Delphi XE8 组 
件 板 Standard 选项 卡 中 ,如 图 3-21 所 示 。 
复 选 框 CheckBox 具有 未 选中 状态 厂 和 选中 状态 区 。 在 ”图 -| 四 | Ptcedbol X 
运行 时 ,使 用 鼠标 单 击 复 选 框 可 以 改变 它 的 状态 。 复 选 框 还 有 局 
一 种 不 确定 状态 ,表示 既 非 选中 ,又 非 未 选中 。 


Name: TCheckBox 


A Unit: Vcl,StdCtrls 
1. CheckBox 的 主要 属性 Package: dclstd220.bpl 
1) Checked 属性 Supported platforms: 


32-bit Windows 
64-bit Windows 


属性 Checked 用 于 表明 CheckBox 是 否 被 选中 。 

2) State 属性 

属性 State 进一步 确定 CheckBox 的 状态 。 有 三 种 取 值 : 
cbChecked、cbUnchecked 和 cbGrayed ,分别 表 示 选 中 、 未 选中 和 不 确定 。 

3) AllowGrayed 属性 

属性 AllowGrayed 为 True 时 , 复 选 框 有 三 种 选择 ; 为 False 时 , 复 选 框 只 有 选中 和 未 选 
中 两 种 状态 。 

2. CheckBox 的 使 用 

【 例 3.8】 使 用 CheckBox 组 件 完成 简单 的 选课 系统 。 

1) 界面 设计 

创建 一 个 新 的 工程 ,在 窗 体 中 添加 两 个 GroupBox 组 件 , 在 一 个 GroupBox 组 件 上 添加 一 
个 Memo 组 件 , 在 另 一 个 GroupBox 组 件 上 添加 4 个 CheckBox 组 件 .添加 一 个 Panel 组 件 , 在 
Panel 组 件 上 添加 三 个 Label 组 件 和 三 个 Edit 组 件 ,再 添加 两 个 Button 组 件 ,各 组 件 的 属性 
设置 如 图 3-22 所 示 。 


图 3-21 复 选 框 
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Gm) 


选课 信息 

学 号 : 98416331 

姓名 : 张 宇 

班级 : 电子 983 

您 选 的 课程 ;: Delphi 程 序 设计 、YC++ 程 序 
设计 、C 语 言 程序 设计 、YS Ne 蚀 序 设 * 


请 选择 选修 课程 


学 号 , 98416331 ”| 回 Delphi 程 序 设计 
姓名 , 引 宝 | EN 


| 回 C 和 语言 程序 设计 


级 , 电子 983 
| 回 vs Ne 临 序 设计 


3-22 ”选课 系统 
2) 程序 设计 


procedure TForm1. ButtonlClick( Sender: TObject); 
var 
str: string; 
begin 
memol. Lines. Add( ' 学 号 : '+ editl. Text); 
memol. Lines. Add( ' 姓 名 : '+ edit2. Text); 
memol. Lines. Add( ' 班 级 : ' + edit3. Text); 
We 扩 
if checkbox1. Checked then 
str: = str+ 'Delphi XE8 程序 设计 '; 
if checkbox2. Checked then 
str: = str+ 'VC++ 程 序 设 计 '; 
if checkbox3. Checked then 
str: = str + 'C 语 言 程序 设计 '; 
if checkbox4. Checked then 
str: = str+ 'VS. Net 程序 设计 '; 
memol. Lines. Add( ' 您 选 的 课程 : '+ copy(str,0, length(str) -2) + '.'); // 关 键 分 析 
end; 


procedure TForml. Button2Click(Sender: TObject); 
begin 
editl. Text: 
edit2. Text: 
edit3. Text; 一 
checkbox1. Checked: = false; 
checkbox2. Checked: = false; 
Checkbox3. Checked: = false; 
checkbox4. Checked: = false; 
end; 


3) 程序 分 析 


关键 分 析 : 调用 字符 串 截取 函数 Copy 将 字符 串 Str 末尾 的 顿 号 *、" 去 掉 , 并 在 末尾 添加 
一 个 句号 “。” 


3.4.2 RadioButton 组 件 
单 选 按钮 (RadioButton) 又 称 选项 按钮 ,一 般 总 是 作为 一 个 组 ( 单 选 按 钮 组 ) 的 组 成 部 分 工 
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作 的 。 单 选 按 钮 组 中 只 能 单 击 一 个 选项 , 即 单 选 按钮 组 只 允许 用 户 从 菜单 中 选择 一 个 选项 。 
RadioButton 位 于 Delphi XE8 组 件 板 Standard 选项 卡 中 ,如 图 3-23 所 示 。 

1. RadioButton 的 主要 属性 

Checked 属性 : 用 于 表明 CheckBox 是 否 被 选中 。RadioButton 有 两 种 状态 , 如 果 当 
Checked 属性 为 True 时 ,表示 选中 状态 ,如 果 当 Checked 属性 为 False 时 ,表示 未 选中 状态 。 

2. RadioButton 的 使 用 

【 例 3.9】 通过 RadioButton 组 件 来 控制 Labell 的 字体 。 

1) 界面 设计 

创建 一 个 新 的 工程 ,在 窗 体 中 添加 一 个 Label 组 件 、4 个 RadioButton 组 件 , 各 个 组 件 的 属 
性 设置 如 图 3-24 所 示 。 


Tool Palette sx 
图 | 四 | Ptradiobuton X 
日 


宋体 日 隶书 日 黑体 日 楷体 


Name: TRadioButton 
Unit: Vcl.StdCtrls 
Package: dclstd220.bpl 
Supported platforms: 
32-bit Windows 
64-bit Windows 


你 好 ! 欢迎 使 用 


图 3-23 单 选 按钮 图 3-24 RadioButton 示例 


2) 程序 设计 


Procedure TForm]. RadioButton1Click(Sender: TObject); 
begin 

Labell. Font. Name: = ' 宋 体 '; 
end; 


Procedure TForml. RadioButton2Click(Sender: TObject); 
begin 

Label1. Font. Name: = ' 隶 书 ' ; 
end; 


Procedure TForm]. RadioButton3Click( Sender: TObject); 
begin 

Labell. Font. Name: = ' 黑 体 ' 
end; 


Procedure TForm1l. RadioButton4Click(Sender: TObject); 
begin 

Labell. Font. Name: = ' 楷 体 _6B2312' ; 
end; 


3.4.3 RadioGroup 组 件 


单 选 按钮 组 (RadioGroup) 组 件 巧 妙 地 将 一 个 GroupBox 与 一 组 RadioButton 组 合 在 一 
起 ,可 以 使 用 统一 的 索引 号 (ItemIndex) ,为 编程 提供 了 方便 。RadioGroup 位 于 Delphi XE8 
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组 件 板 Standard 选项 卡 中 ,如 图 3-25 所 示 。 

1. RadioGroup 的 主要 属性 

1) Columns 属性 

属性 Columns 用 于 设置 单 选 按钮 组 中 按钮 的 列 数 。 范 围 1 一 16 ,默认 值 为 1 。 

2) Items 属性 

属性 Items 用 于 设置 各 种 单 选 按钮 的 标题 。 

3) ItemIndex 属性 

单 选 按钮 组 中 被 选中 按钮 (从 0 开始 ) 的 序号 。 默 认 值 为 一 1, 表 示 组 中 按钮 均 未 被 选中 。 

2. RadioGroup 的 使 用 

【 例 3.10】 通过 RadioButton 组 件 来 控制 Labell 的 字体 。 

1) 界面 设计 

创建 一 个 新 的 工程 ,在 窗 体 中 添加 一 个 Label 组 件 、 一 个 RadioGroup 组 件 ,如 图 3-26 
所 示 。 


Tool Palette 里 其 
呈 *| 加 | Ptradiogroup| X a RadioGroup 示 别 “cul Eble 
日 Standard 一 而 

引 TRadioGroup 请 选择 字体 


Name: TRadioGroup 
Unit: Vel.ExtCtrls 
Package: dclstd220.bpl 
Supported platforms: 
| 32-bit Windows 
64-bit Windows 


3-25 ” 单 选 按钮 组 


2) 属性 设置 


宋体 隶书 黑体 口 档 体 


您 好 ， 欢 迎 使 用 ! 


3-26 ”RadioGroup 示例 


各 组 件 的 属性 设置 如 表 3-12 所 示 。 
表 3-12 窗 体 及 组 件 属性 设置 


对 象 属性 属性 值 说 明 
ItemJIndex 0 默认 字体 “宋体 ”按钮 被 选中 
RadioGroupl Columns 4 RadioGroupl 按钮 按 4 列 显示 
Items 见 下 说 明 设置 各 单 选 按钮 的 标题 
a Caption 您 好 ,欢迎 使 用 ! 标题 
Font. Name 宋体 默认 字体 为 宋体 


说 明 : RadioGroupl. Items 的 设置 。 
单 击 RadioGroupl 组 件 Items 属性 的 右 端 按钮 ,打开 String List Editor 对 话 框 ,在 其 中 依 
次 输入 4 个 单 选 按钮 的 标题 ,每 行 以 回 车 键 结 束 , 如 图 3-27 所 示 。 
3) 程序 设计 
Procedure TForm1l1. RadioGrouplClick( Sender: TObject); 
begin 
case radiogroup1. ItemIndex of 


0: labell. Font. Name: = ' 宋 体 '; // 关 键 分 析 
1: Labell. Font. Name: = ' 隶 书 '; 
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2: labell. Font. Name: = ' 黑 体 '; 
3: labell. Font. Name: = ' 楷 体 _GB2312'; 
end; 
end; 
图 3-27 字符 串 列表 编辑 器 
4) 程序 分 析 


关键 分 析 : 当 radiogroupl. ItemIndex 为 0 时 ,表示 第 一 个 单 选 按钮 “宋体 ”被 选中 ,其 余 


各 值 以 此 类 推 。 
3.5 列表 框 、 组 合 框 


3.5.1 ListBox 组 件 


当 列 表 框 不 能 同时 显示 所 有 选择 项 时 ,将 自动 加 上 一 个 垂直 滚动 条 ,使 用 户 可 以 上 下 滚动 


列表 框 ,以 查阅 所 有 的 选项 。 列 表 框 位 于 组 件 板 Standard 选项 
卡 中 ,如 图 3-28 所 示 。 

ListBox 的 主要 属性 如 下 。 

1. Items 属性 

Items 属性 是 以 行 作为 单位 ,列表 框 中 选项 的 集合 。 

2. ItemsIndex 属性 

ItemsIndex 属性 为 选项 的 索引 值 。 

3. Stored 属性 

Stored 属性 决定 选项 是 否 排序 。 

4. Columns 属性 

Columns 属性 决定 列表 框 的 列 数 。 

5. MultiSelect 属性 

MultiSelect 属性 决定 是 否 可 以 选择 多 项 。 

6. SelCount 属性 

SelCount 属性 表示 被 选中 的 项 的 数目 ,只 读 。 


Tool palette 4 
图 ~| 四 | DTistbo X 

5S Standard 

TListBox 


Name: TListBox 
Unit: Vcl.StdCtrls 
package: dclstd220.bpl 
Supported platforms: 
32-bit Windows 
64-bit Windows 


3-28 列表 框 
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7. Selected 属性 

Selected 属性 用 来 设置 或 返回 是 否 被 选中 。 

8， IntegralHeight 属性 

IntegralHeight 属性 可 以 有 以 下 取 值 。 

(1) True: 自动 调整 框 的 高 度 使 每 行 的 高 度 (IntemHeight) 可 以 完整 地 被 显示 。 

(2) False: 不 自动 调整 框 的 高 度 , 非 完整 高 度 行 被 显示 在 框 的 底部 。 

9. ItemHeight 属性 

ItemHeight 属性 用 来 控制 列表 框 中 行 的 高 度 ,Style 属性 为 lbStandard 时 不 能 改变 。 

10. Style 属性 

Style 属性 可 以 有 以 下 取 值 。 

(1) lbStandard: 固定 Font. Size 属性 与 ItemHeight 属性 之 比 。 

(2) lbOwnerDrawFixed: 可 以 调整 ItemHeight, 并 将 自动 调整 框 的 高 度 以 适应 行 高 。 

(3) LbOwnerDrawVariable: 可 以 调整 ItemHeight 属性 , 需 手 动 调整 框 的 高 度 以 适应 
行 高 。 

Style 属性 的 后 两 种 取 值 将 受到 IntegralHeight 属性 的 影响 ,如 果 ItegralHeight 属性 值 
为 False, 将 不 会 自动 调整 框 的 高 度 。 


3.5.2 ComboBox 组 件 


组 合 框 ComboBox 兼 有 EditBox 和 ListBox 两 者 的 功能 ,用 户 可 以 通过 输入 文本 或 选择 
列表 中 的 项 目 来 进行 选择 。 组 合 框 位 于 组 件 板 Standard 选项 


Tool Palette PE 

卡 中 ,如 图 3-29 所 示 。 图 -| 四 | DTcombobod X 

1. 组 合 框 的 主要 属性 et 一 -一 

1) Items 属性 SS TComboBex 

Items 属性 是 以 行 作为 单位 ,列表 框 中 选项 的 集合 。 oe 

2) ItemsIndex 属性 a Thon upported Platforme: 

ItemsIndex 属性 为 选项 的 索引 值 。 64-bit Windows 

3) Stored 属性 


-29 组 合 
Stored 属性 决定 选项 是 否 排序 。 各 


4) DropDownCount 属性 

DropDownCount 属性 控制 组 合 框 下 拉 列 表 所 能 显示 选项 的 最 大 个 数 。 

5) SelText 属性 

SelText 属性 用 来 存储 显示 于 编辑 区 中 被 选中 项 的 内 容 。 

6) Style 属性 

Style 属性 决定 组 合 框 的 风格 。 

2. 组 合 框 的 使 用 

【 例 3.11】 DIY 计算 机 的 配件 选择 。 

1) 界面 设计 

创建 一 个 新 的 应 用 程序 ,在 窗 体 上 添加 5 个 标签 .4 个 组 合 框 、 两 个 按钮 及 一 个 GroupBox 
组 件 ,如 图 3-30 所 示 。 
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机 型 ”CPU 主 频 


IBM -lle00 ~ 
你 的 配置 
你 选 的 机 器 配置 : 


机 型 : IBM 
CPU: pIII600 
内 存 : 256M 
硬盘 : 15G 


图 3-30 ”组合 框 组 件 应 用 示例 


2) 属性 设置 
设置 窗 体 及 窗 体 中 组 件 的 属性 ,具体 如 表 3-13 所 示 。 


表 3-13 窗 体 中 组 件 属性 设置 


对 象 属性 属性 值 说 明 
Forml Caption 组 合 框 的 应 用 窗口 的 标题 
Labell Caption 机 型 标签 的 标题 
Label2 Caption CPU 主 频 
Label3 Caption 内 存 
Label4 Caption 硬盘 
Label5 Caption ( 空 ) 

Buttonl caption 确定 
Button2 caption 取消 
GroupBoxl Caption 你 的 配置 
ComboBoxl items ( 空 ) 
ComboBox2 items ( 空 ) 
ComboBox3 items ( 空 ) 
ComboBox4 items ( 空 ) 
3) 程序 设计 
Pprocedure TForml. FormCreatel( Sender: TObject); 
begin 
combobox1. Items. Add( 'IBM'); 
combobox1. Items. Add( 'AST'); 
combobox1. Items. Rdd( 'Compaq'); 
combobox1. Items. Add( ' 长 城 '); 
combobox1. Items. Add( ' 联 想 '); 
combobox1. Items. Add( ' 清 华 同 方 '); 
combobox2. Items. Add( '586/133'); 
combobox2. Items. Rdd('586/2007) 7 
combobox2. Items. Add( 'P I /2337); 
combobox2. Items. Rdd('PIV/4007); 
combobox2. Items. Add( 'P /450°); 
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combobox2. Items. hdd('P 焉 /6007); 
combobox3. Items. Add( '16MB'); 
combobox3. Items. Add( '32MB'); 
combobox3. Items. Add( '64MB'); 
combobox3. Items. Add( '128MB'); 
combobox3. Items. Add( '256MB'); 
combobox4. Items. Add( '2. 5GB'); 
combobox4. Items. Add( '3. 2GB'); 
combobox4. Items. Add( '4. 3GB'); 
combobox4. Items. Add( '9GB'); 
combobox4. Items. Add( '15GB'); 
end; 


Procedure TForm1. Button1Click( Sender: TObject); 
var 
i: integer;p: string; 
begin 
p: = ' 你 选 的 机 器 配置 :'+ #13; 
i: = combobox1,. ItemIndex; 
p: =p+ ' 机 型 : '+ combobox1l. Items[i] + 井 137 
i: = combobox2. ItemIndex; 
p: =p+ 'CPU: '+ combobox2. Items[i]+ #13; 
二 
Pp 
i 
p 


: = combobox3. ItemIndex; 
: =p+' 内 存 : '+ combobox3. Items[i] + 井 137 
: = combobox4. ItemIndex' 
: =p+ ' 硬 盘 : '+ combobox4. Items[i]; 
label5. caption: =p; 
end; 
procedure TForml. Button2Click(Sender: TObject); 
begin 
label5. Caption: = ""; 
combobox1. ItemIndex: = —1; 
combobox2. ItemIndex: = —1; 
combobox3. ItemIndex: = 一 1; 
combobox4. ItemIndex: = 一 1; 
end; 


3.6 滚动 条 


在 很 多 情况 下 ,滚动 条 是 自动 加 入 的 ,例如 前 面 讲 的 列表 框 , 当 项 目 显示 不 下 时 列表 框 将 
自动 加 上 滚动 条 , 当 用 户 操作 滚动 条 时 ,列表 自动 滚动 。 这 一 


六 切 都 不 需要 编程 。 如 果 想 自 己 操 纵 窗口 的 滚动 ,就 要 用 到 

一 一 一 TScrollBar 组件 。 当 用 户 在 滚动 条 上 操作 时 ,将 触发 OnScroll 
em 事件 ,这 样 就 可 以 操纵 滚动 条 。TScrollBar 组 件 直接 继承 于 
内 TwinControl 中 , 它 位 于 Standard 选项 卡 中 ,如 图 3-31 所 示 
Supporied platforms: 1. ScrollBar 主要 属性 ,方法 与 事件 


64-bit Windows 1) LargeChange 属性 
当 用 户 单 击 滚动 条 (不 是 滚动 条 两 端的 箭头 ) 时 ,滚动 条 滚 


图 3-31 滚动 条 
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动 的 距离 是 由 LargeChange 属性 设置 的 ,默认 是 1。 这 是 一 个 相对 数 。 假 设 LargeChange 属 
性 设 为 10, 如 果 Max 属性 减 去 Min 属性 为 80, 则 用 户 只 要 单 击 8 次 就 能 从 滚动 条 的 一 端 到 另 
一 端 。 

2) Max、Min 属性 

Max、Min 这 两 个 属性 用 于 设置 滚动 条 可 滚动 的 范围 , 与 LargeChange 属性 和 
SmallChange 属性 配合 来 使 用 ,可 以 设置 用 户 操 作 滚动 条 时 需要 滚 多 少 次 才能 从 一 端 到 另 
一 端 。 

3) PageSize 属性 

当 用 户 按 Page Up 或 Page Down 键 时 ,滚动 条 滚动 的 距离 是 由 PageSize 属性 设置 的 , 默 
认 是 1。 

4) Position 属性 

Position 属性 用 于 设置 或 返回 滚动 条 中 小 方块 的 位 置 。 可 以 在 设计 期 设置 Position 属性 
指定 小 方块 的 初始 位 置 ,也 可 以 在 运行 期 修改 Position 属性 使 滚动 条 滚动 。 

5) SmallChange 属性 

SmallChange 属性 与 LargeChange 属性 相似 ,不 同 的 是 , 它 是 用 户 单 击 滚动 条 两 端的 箭头 
时 滚动 条 的 距离 ,默认 值 是 1 。 

6) SetPaxams 方法 

该 过 程 相当 于 分 别 设置 Position、Max 和 Min 属性 。 

7) OnScroll 事件 

当 用 户 操作 滚动 条 时 将 发 生 这 个 事件 。 其 中 ,第 三 个 参数 返回 滚动 条 小 方块 的 位 置 , 第 二 


个 参数 返回 滚动 条 的 状态 。 ET 


2. 深 动 条 的 使 用 = 
【 例 3.12】 利用 递归 的 方法 计算 N1。 2 3261622459. 
1) 窗 体 设计 
创建 一 个 新 的 应 用 程序 .在 窗 体 上 添加 两 个 标签 、 一 个 滚动 || 计算 前 15 位 

条 、 两 个 按钮 及 一 个 编辑 框 组 件 ,如 图 3-32 所 示 = : 
2) 属性 设计 


加 图 3-32 ”滚动 条 
设置 窗 体 及 窗 体 中 组 件 的 属性 ,具体 如 表 3-14 所 示 。 


表 3-14 窗 体 中 组 件 属性 设置 


对 象 属性 属性 值 说 明 
Forml Caption 滚动 条 的 使 用 窗口 的 标题 
Labell Caption e 一 
Label2 Caption 计算 前 1 项 
Editl Text ( 空 ) 

Buttonl Caption 计算 
Button2 Caption 关闭 
Min 1 最 小 值 
Scrollbarl 这 二 06 最 大 什 
3) 程序 设计 


function fac(n: integer): real; 
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begin 
if n=0 then 
fac: =1 
else 


fac: =n*fac(n—1); 
end; 
//" 计 算 "按钮 触发 的 事件 


procedure TForm1. ButtonlClick( Sender: TObject); 


var 
e: real; 
n,i: integer; 
begin 
e: =0; 
n: = scrollbarl. Position; 
for i: =0 ton-1do 
e: =e+1/fac(i); 


editl. Text: = floattostr(e); 


end; 


// 应 用 滚动 条 ,来 获得 当前 需 计 算 的 关系 式 的 项 数 
procedure TForm1. Scrol1BarlChange(Sender: TObject); 


begin 

label2. Caption: = format( 
end; 
//" 关 闭 "按钮 触发 的 事件 


"计算 前 %d 项 ', [scrollbarl. position]); 


procedure TForm1l. Button2Click( Sender: TObject); 


begin 
close; 
end; 


3.7 计 时 器 


计时 器 (Timer) 组 件 可 以 在 应 用 中 以 重复 的 时 间 间 隔 产 生 一 个 事件 。 这 对 不 需要 用 户 交 


互 的 代码 的 执行 非常 有 用 。 


Timer 组 件 位 于 System 组 件 板 中 ,如 图 3-33 所 示 , 属 于 非 可 视 化 组 件 , 在 设计 时 显示 为 
一 个 小 时 钟 图 标 , 而 在 运行 时 则 不 可 见 了 ,通常 用 来 做 一 些 后 台 处 理 。 
1. Timer 组 件 的 主要 属性 与 事件 


Tool Palette x 
7| 四 | Ptimed x 

日 System 
[STimer | 
IntraWeb St 


一 Name: TTimer 
TIWTimer unit vcLEdctrls 
Package: dclstd220.bpl| 
Supported platforms: 
32-bit Windows 


64-bit Windows 


图 3-33 计时 器 


1) Enabled 属性 

Enabled 属性 为 True 时 ,定时 器 开始 工作 ,为 False 时 定 
时 器 暂停 工作 。 

2) Interval 属性 

该 属性 用 来 设置 定时 器 触发 的 周期 (以 ms 计 ) 取 值 范围 为 
0 一 64 767。 

3) OnTimer 事件 

Timer 组 件 只 提供 一 个 事件 , 即 OnTimer。 该 事件 以 
Interval 属性 设置 的 频率 被 触发 。 
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2. Timer 组 件 的 使 用 
【 例 3. 13】 利用 Timer 组 件 模拟 数字 时 钟 程序 。 es 
sr 请 小 愉 工 
1) 窗 体 设计 回 12 小 时 制 日 24 市 
创建 一 个 新 的 应 用 程序 ,在 窗 体 上 添加 一 个 Label 组 件 、 一 
个 Timer 组 件 一 个 GroupBox 组 件 ,在 GroupBox 组件 上 添加 中 下 守 10:16:28 
两 个 RadioButton 组 件 ,如 图 3-34 所 示 。 图 3-34 计时 器 示例 。 上 旺 二 = 
2) 属性 设置 3-34 ”计时 器 示例 
设置 窗 体 及 窗 体 中 组 件 的 属性 ,具体 如 表 3-15 所 示 。 


表 3-15 窗 体 中 组 件 属性 设置 


忆 术 时 种。 nluE 


对 象 属性 属性 值 说 明 
Forml Caption 模拟 数字 时 钟 窗口 的 标题 
a Caption ( 空 ) 未 设置 

Color clAqua 底 色 为 绿色 
GroupBoxl Caption 请 选择 显示 格式 分 组 框 标题 
RadioButtonl Caption 12 小 时 制 单 选 按钮 标题 
RadioButton2 Caption 24 小 时 制 单 选 按钮 标题 
a Enabled True 可 以 使 用 

Interval 1000 1000ms 触发 一 次 

3) 程序 设计 

procedure TForml. TimerlTimer(Sender: TObject); // 关 键 分 析 
begin 


if radiobutton1. Checked then 
labell. Caption: = formatdatetime( 'ampmhh: nn: ss',time) 
else 
labell. Caption: = formatdatetime( 'hh: nn: ss',time); 
end; 
Procedure TForm]. RadioButton1Click(Sender: TObject); 
begin 
timerltimer( sender); 
end; 
Procedure TForm]. RadioButton2Click(Sender: TObject); 
begin 
timerltimer( sender); 
end; 


4) 程序 分 析 
关键 分 析 : 本 例 中 OnTimer 事件 根据 Timerl. Interval 的 值 1000 ,每 1000ms 触发 一 次 。 


3.8 ”对话 框 组 件 


在 Delphi XE8 组 件 栏 中 的 Dialogs 页 中 提供 了 许多 对 话 框 组 件 ,如 图 3-35 所 示 ,为 用 户 
提供 了 一 系列 标准 的 Windows 对 话 框 组 件 ,可 以 使 用 它 进行 设置 字体 、 设 置 颜色 .设置 打印 机 
和 打开 或 者 保存 文件 等 操作 。 
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3.8.1 OpenDialog 组 件 


OpenDialog 组 件 用 于 打开 一 个 已 经 存在 的 文件 ,用 户 选择 某 一 文件 ,其 所 在 的 驱动 器 \ 文 
件 夹 .文件 名 以 及 扩展 名 将 被 赋予 OpenDialog 的 FileName 属性 。OpenDialog 组 件 位 于 
Dialogs 组 件 板 ,如 图 3-35 所 示 。 

OpenDialog 组 件 的 主要 属性 如 下 。 

1，DefaultExt 属性 

DefaultExt 属性 用 于 设置 系统 自动 附加 的 扩展 文件 名 , 即 在 用 户 没 有 设置 文件 类 型 时 系 
统 会 自动 附加 该 文件 类 型 。 

2. Filter 属性 

Filter 属性 用 于 设置 可 打开 的 文件 类 型 。Filter 属性 的 设置 可 单 击 右 端 半 按 钮 ,打开 如 
图 3-36 所 示 的 Filter Editor 对 话 框 进行 设置 。 


Filter Editor ez) 
Tr 
下 A 2 
: eT 加 国 
文档 文件 ("doo doc 
国 TopenDialog | 位 图 文件 (<bmp) =bmp 
夯 TsaveDialog | 所 有 文件 (". 习 
国 TOpenpictureDialog 
园 TsavepictureDialog 
固 TopenTextfileDialog 
曾 TsaveTextfileDialog 区 
Tontpaiog Ce eed Ged 
冉 TColorDialog 
3-35 ”Dialogs 组 件 板 3-36 ”Filter Editor 对 话 框 


3. FilterIndex 属性 

FilterIndex 属性 设置 默认 的 Filter 值 ,为 1 时 则 默认 的 文件 类 型 为 Filter 属性 中 列举 的 
第 一 个 文件 类 型 。 

4，InitialDir 属性 

InitialDir 属性 设置 对 话 框 打开 的 初始 化 路 径 。 

5. Options 属性 

Options 属性 用 于 设置 对 话 框 的 作用 及 表现 形式 。 包 括 是 否 可 选择 多 个 文件 .是 否 允 许 
长 文件 名 .是否 可 以 调节 对 话 框 的 大 小 等 。 


3.8.2 SaveDialog 组 件 


SaveDialog 组 件 用 于 提供 一 个 另存 为 对 话 框 , 用 户 输入 某 一 文件 ,其 所 在 的 驱动 器 、 文 件 
来. 文件 名 以 及 文件 扩展 名 将 被 赋予 SaveDialog 的 FileName 属性 。 其 属性 及 使 用 同 
OpenDialog 组 件 类 似 。SaveDialog 组 件 位 于 Dialogs 组 件 板 ,如 图 3-35 所 示 。 


3.8.3 FontDialog 组 件 


FontDialog 组 件 用 于 提供 一 个 字体 对 话 框 ,用 户 可 以 选择 需要 的 字体 名 称 、 样 式 、 大 小 、 效 
果 及 字体 颜色 等 ,这 些 选择 将 被 赋予 FontDialog 的 Font 属性 。FontDialog 组 件 位 于 Dialogs 
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组 件 板 , 如 图 3-35 所 示 。 
3.8.4 ”ColorDialog 组 件 


ColorDialog 组 件 用 于 提供 一 个 颜色 对 话 框 ,用 户 可 以 选择 需要 的 颜色 等 属性 ,这 些 选择 
将 被 赋予 ColorDialog 的 Color 属性 。ColorDialog 组 件 位 于 Dialogs 组 件 板 ,如 图 3-35 所 示 。 


3.8.5 公共 对 话 框 的 使 用 


【 例 3.14】 使 用 公共 对 话 框 ,在 标签 组 件 中 显示 打开 文件 或 保存 文件 的 路 径 名 和 文件 
名 ,然后 设置 标签 的 字体 以 及 背景 颜色 。 

1) 窗 体 设计 

创建 一 个 新 的 应 用 程序 ,在 窗 体 上 添加 一 个 Label 组 
件 、 一 个 OpenDialog 组 件 、 一 个 SaveDialog 组 件 , 一 个 
FontDialog 组 件 和 一 个 ColorDialog 组 件 ,再 添加 4 个 
Button 组 件 ，OpenDialog 组 件 和 SaveDialog 组 件 的 :Labell : 2 
Filter 属性 如 图 3-36 所 示 , 其 余 各 个 组 件 的 属性 设置 如 
图 3-37 所 示 。 

2) 程序 设计 

Procedure TForml. ButtonlClick( Sender: TObject); 

> opendialog1. Execute then // 关 键 分 析 


labell. Caption: = opendialogl.FileName; 
end; 


3-37 ”公共 对 话 框 示例 


Procedure TForm]. Button2Click( Sender: TObject); 
begin 
if savedialogl. Execute then 
labell. Caption: = savedialogl.FileName; 
end; 


procedure TForml. Button3Click(Sender: TObject); 
begin 
if fontdialogl. Execute then 
labell. font: = fontdialog1.Font; 
end; 


Procedure TForml. Button4Click( Sender: TObject); 
begin 
if colordialog]. Execute then 
labell.Color: = colordialog]l.Color; 

end; 

3) 程序 分 析 

程序 运行 后 运行 界面 如 图 3-37 所 示 。 

关键 分 析 : Execute 为 打开 对 话 框 的 方法 ,Opendialogl 组 件 通 过 调用 Execute 方法 实现 
打开 对 话 框 。 如 果 打 开 成 功 返 回 一 个 True, 和 否则 返回 一 个 False; 其 余 各 对 话 框 的 Execute 方 
法 的 使 用 与 之 相同 。 
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3.9 Win 3.1 组 件 


在 Delphi XE8 中 ,与 文件 有 关 的 组 件 有 选择 驱动 器 、 查 看 目录 以 及 列举 文件 组 件 等 ,下 面 
将 介绍 在 Win 3. 1 组 件 板 中 的 有 关 组 件 , 如 图 3-38 所 示 。 
3.9.1 FileListBox 组 件 


FileListBox 组 件 主要 用 于 显示 指定 目录 的 文件 名 滚动 列 


表 , 该 组 件 位 于 如 图 3-38 所 示 Win 3. 1 组 件 板 中 。 图 -| 回 | Pear 
FileListBox 组 件 的 主要 属性 如 下 。 ee | 
1. Directory 属性 县 TrabbedNotebook 是 
Directory 属性 用 于 设置 当前 文件 目录 ,显示 的 文件 列 及 表 日 oii 

将 自动 更 新 显示 文件 目录 的 文件 。 国 TFileList8ox 
2. Drive 属性 图 Tpiredorytisteox 


TDriveComboBox 


Drive 属性 用 于 设置 当前 驱动 器 盘 的 号 ,当前 属性 值 改 变 TFiterComboBox 
时 ,Directory 属性 值 自动 改变 为 新 的 驱动 器 下 的 当前 目录 。 
3. ExtenderdSelect 属性 
ExtenderdSelect 属性 车 为 True 则 可 按 住 Ctrl 键 然后 用 鼠 
标 选 择 多 个 文件 。 若 为 False 则 不 可 以 。 
4. FileEdit 属性 
FileEdit 属性 用 于 将 文件 列表 链接 至 一 个 编辑 组 件 ,显示 列表 中 当前 被 选中 的 文件 。 
5， FileName 属性 
FileName 属性 存放 了 列表 中 当前 被 选中 的 文件 的 文件 名 及 路 径 名 。 
6. FileType 属性 
FileType 属性 决定 了 文件 列表 中 显示 的 文件 的 属性 类 型 ,如 只 读 文件 ,隐藏 文件 、 系 统 文 
件 及 是 否 显示 目录 等 选择 项 。 
7. Mask 属性 
Mask 属性 用 于 设置 文件 列表 中 显示 的 文件 类 型 。 
8. ShowGlyphs 属性 
ShowGlyphs 属性 用 于 设置 文件 是 否 在 文件 旁边 显示 文件 图 标 。 
9. MultiSelect 属性 
MultiSelect 属性 用 于 设置 用 户 是 否 可 以 一 次 选中 多 个 文件 。 


3-38 Win 3.1 组 件 板 


3.9.2 DirectoryListBox 组 件 


DirectoryListBox 组 件 用 于 显示 指定 驱动 器 下 的 目录 列表 ,该 组 件 位 于 如 图 3-38 所 示 
Win 3.1 组 件 板 中 。 

DirectoryListBox 组 件 的 主要 属性 如 下 。 

1. Directory 属性 

Directory 属性 用 于 设置 当前 的 文件 目录 。 
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2. DirLabel 属性 

DirLabel 属性 用 于 将 目录 列表 链接 至 一 个 Lable 组 件 , 显 示 列 表 中 当前 被 选中 目录 。 

3. Drive 属性 

Drive 属性 用 于 设置 当前 的 驱动 器 盘 号 , 当 该 属性 值 改 变 时 ,Drive 属性 值 将 自动 改变 为 
新 的 驱动 器 下 的 当前 目录 。 

4. FileList 属性 

FileList 属性 用 于 将 目录 列表 链接 至 文件 列表 , 当 目 录 列 表 中 的 目录 改变 时 ,文件 列表 会 
自动 进行 更 新 。 
3.9.3 DriveComboBox 组 件 


DriveComboBox 组 件 用 于 显示 一 个 可 选 驱动 器 下 拉 列 表 , 该 组 件 位 于 如 图 3-38 所 示 Win 
3.1 组 件 板 中 。 

DriveComboBox 组 件 主要 的 属性 如 下 。 

1. Dirlist 属性 

Dirlist 属性 用 于 将 本 组 件 链接 至 目录 列表 ,如 驱动 器 改变 , 则 目录 列表 会 自动 更 新 。 

2. Drive 属性 

Drive 属性 用 于 存放 当前 的 驱动 器 盘 号 。 

3， TextCase 属性 

TextCase 属性 用 于 决定 驱动 器 盘 号 使 用 大 写字 母 还 是 小 写字 母 。 
3.9.4 FilterComboBox 组 件 

FilterComboBox 组 件 用 于 显示 一 个 可 选 过 滤器 下 拉 列 表 , 供 用 户 选择 ,该 组 件 位 于 如 
图 3-38 所 示 Win 3. 1 组 件 板 中 。FilterComboBox 组 件 的 主要 属性 如 下 。 


1，FileList 属性 
FileList 属性 用 于 将 本 组 件 链接 至 文件 列表 ,如 当前 的 文件 类 型 改变 ,文件 列表 会 自动 进 


行 更 新 。 
2. Filer 属性 
Filer 属性 用 于 设置 各 种 过 滤 文件 的 类 型 。 
3. Mask 属性 
Mask 属性 用 于 存放 所 选 的 过 滤 类 型 的 对 应 。 

3.9.5 Win 3.1 组 件 的 应 用 [© >axeno SM eo lm | 
【 例 3. 15】 与 文件 相关 组 件 的 应 用 示例 。 lm 
1) 窗 体 设 计 Sn a 


AbcEbankSign. dl 
ABCEBankSignCtLocx 一 


创建 一 个 新 的 应 用 程序 ,在 窗 体 上 添加 两 个 Label 
组 件 、 一 个 Edit 组 件 、 一 个 FileListBox 组 件 , 一 个 
DirectoryListBox 组 件 、 一 个 DriveComboBox 组 件 和 您 选择 的 文件 为 : 
一 个 FilterComboBox 组 件 ,如 图 3-39 所 示 。 2 

2) 属性 设置 

设置 窗 体 及 窗 体 中 组 件 的 属性 ,具体 如 表 3-16 所 示 。 


Alfies[ 


图 3-39 文件 相关 组 件 示 例 
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表 3-16 窗 体 及 组 件 属性 设置 表 


对 象 属性 属性 值 说 明 

Forml Caption 文件 相关 组 件 示 例 | 窗口 的 标题 

Woe FileEdit Editl 在 Editl 中 显示 所 选 文件 
ee Multimselect | True 可 以 多 先 

_， FileList FileListBoxl 使 DirectoryListBoxl 和 FileListBoxl 相关 联 
DirectoryListBoxl = 

DirLabel Label2 Label2 中 显示 所 选 目录 
DriveComboBoxl DirList DirectoryListBoxl | 使 DirectoryListBox 和 DriveComboBoxl 相关 联 
FilterComboBox | FileList FileListBoxl 使 FilterComboBoxl 和 FileListBoxl 相关 联 
Lablel Caption 您 选择 的 文件 为 ， | 标签 标题 
3.10 菜 单 


一 个 Windows 应 用 程序 ,往往 需要 制作 标准 的 菜单 界面 ,包括 主 菜单 MainMenu、 弹 出 式 
菜单 PopMenu 两 种 , 它 既 能 体现 一 个 系统 的 专业 化 水 平 , 同 时 也 为 用 户 使 用 系统 和 操作 提供 
了 方便 。 因 此 在 应 用 程序 中 制作 菜单 是 一 个 基本 的 任务 。 


3.10.1 MainMenu 组 件 


主 菜单 也 称 为 菜单 栏 ,其 中 包括 一 个 或 多 个 选择 项 称 为 菜单 项 。 当 单 击 一 个 菜单 项 时 , 包 
含 子 菜单 项 的 列表 即 被 打开 。 主 菜单 位 于 组 件 板 Standard 选项 卡 中 ,如 图 3-40 所 示 。 

1. 菜单 编辑 器 

打开 一 个 新 的 窗 体 ,在 其 中 添加 一 个 MainMenu 组 件 , 即 可 产生 主 菜 单项 ,菜单 项 的 设置 
可 以 通过 双击 MainMenu 组 件 或 右键 单 击 MainMenu 组 件 ,在 弹出 的 快捷 菜单 中 选取 
MenuDesigner 项 ,再 或 者 选择 MainMenu 组 件 的 Items 属性 , 单 击 右 端的 半 按 钮 ,可 打开 菜单 
项 编辑 器 ,并 产生 一 个 空 菜单 项 ,如 图 3-41 所 示 。 

ror 


图 -| 四 | Ptmainmend X 


Name: TMainMenu 
Unit: Vcl.Menus 


Package: dclstd220.bpl 

Supported platforms: 
32-bit Windows 
64-bit Windows 


图 3-40” 主 莱 单 图 3-41 菜单 项 编辑 器 


在 对 象 编辑 器 中 ,Caption 属性 输入 “&S 设置 ,表示 可 按 Ctrl 十 S 或 Alt 十 S 键 来 选择 此 
菜单 项 ,其 中 “&” 符 号 后 的 第 一 个 字符 为 加 速 字符 。 若 输入 “-” 则 表示 建立 菜单 分 割 线 将 菜单 
项 分 组 ,如 图 3-41 所 示 文 字 内 容 菜单 项 下 即 是 。 

用 户 可 能 会 在 已 建 好 的 菜单 项 中 插入 或 删除 一 个 选项 ,这 时 就 可 用 鼠标 选 定 位 置 , 按 
Insert 键 则 插入 一 个 新 的 空白 菜单 项 , 若 按 Delete 键 则 删除 一 个 菜单 项 。 

Windows 系统 操作 界面 的 菜单 大 都 是 多 层 的 .在 Delphi XE8 中 建立 子 菜单 时 ,可 选择 要 
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产生 子 菜单 的 菜单 项 ,然后 按 Ctrl 十 一 键 , 便 产生 下 一 级 子 菜单 项 ,如 图 3-41 所 示 , 以 此 类 推 
可 建立 多 重子 菜单 。 

2. Menultem 的 主要 属性 

1) Name 属性 

Name 属性 用 于 设置 菜单 组 件 的 名 称 。 

2) Caption 属性 

Caption 属性 显示 菜单 组 件 的 标题 。 

3) Checked 属性 

Checked 属性 设置 为 True 时 ,相应 地 在 菜单 项 边 上 加 上 选择 标志 “VV”。 属 性 设置 为 
False 时 , 则 无 显示 ,默认 值 为 False。 

4) Enabled 属性 

Enabled 属性 默认 值 为 True, 表 示 可 以 响应 用 户 事件 , 若 设置 为 False, 则 无 法 响应 用 户 事 
件 , 并 且 相 应 的 菜单 项 会 变 灰 。 

5) Visible 属性 

Visible 属性 确定 菜单 项 是 否 显示 ,True 则 显示 ,False 则 隐藏 。 

6) ShortCnut 属性 

ShortCnut 属性 设置 该 菜单 项 的 热 键 。 

3. MainMenu 组 件 的 使 用 

【 例 3.16】 使 用 菜单 实现 控制 标签 的 显示 。 

1) 窗 体 设计 

创建 一 个 新 的 应 用 程序 ,在 窗 体 上 添加 一 个 Label 组 件 .一 个 MainMenu 组 件 , 各 个 组 件 
的 属性 设置 如 图 3-42 所 示 。 


3-42 ”MainMenu 示例 


2) 程序 设计 
Procedure TForm1.N1Click(Sender: TObject); 
begin 
label1. Caption: = inputbox( ' 文 字 输 入 ', ' 请 输入 文字 内 容 :',"'); 
end; 


Pprocedure TForm]. N5Click(Sender: TObject); 
begin 

labell. Font. Name: = ' 宋 体 '; 
end; 


Pprocedure TForm]. N6Click( Sender: TObject); 
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begin 
label1.Font. Name: = ' 隶 书 ' 
end; 


procedure TForm]. N71Click(Sender: TObject); 
begin 

labell. Font. Name: = ' 黑 体 '; 
end; 


procedure TForml. N8Click(Sender: TObject); 
begin 

labell. Font. Name: = ' 楷 体 _6B2312'; 
end; 


Procedure TForm1.N9Click(Sender: TObject); 
begin 
if N9. Checked then 
begin 
N9. Checked: = false; 
labell. Font. Style: = labell.Font.Style— [fsbold]; 


end 
else 
begin 
N9. Checked: = true; 
labell. Font. Style: = labell.Font.Style+ [fsbold]; 
end 
end; 


procedure TForml. N10Click(Sender: TObject); 
begin 
if N10.Checked then 
begin 
N9. Checked: = false; 
labell. Font. Style: = labell.Font.Style— [fsitalic]; 


begin 
N10. Checked: = true; 
labell. Font. Style: = labell.Font.Style+ [fsitalic]; 
end 
end; 


Pprocedure TForm1.N11Click(Sender: TObject); 
begin 
if N11.Checked then 
begin 
N11. Checked: = false; 
labell. Font. Style: = label1.Font.Style- [fsunderline]; 
end 
else 
begin 
N11.Checked: = true; 
labell. Font. Style: = labell.Font.Style+ [fsunderline]; 
end 
end; 
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3.10.2 PopupMenu 组 件 
Tool Palette 于 其 
应 用 系统 中 ,对 弹出 式 菜单 的 支持 是 一 种 流行 的 方式 ,就 ”名 "| 回 | 名 pepupmem 共 


Standard 


是 通常 使 用 的 右键 菜单 , 当 用 户 在 不 同 的 地 方 单 击 鼠标 右键 ， [ER 

就 弹出 不 同 的 菜单 项 。 主 菜单 位 于 组 件 板 Standard 选项 卡 中 ， RTM 

如 图 3-43 所 示 。 | 
弹出 式 菜单 的 设计 方法 基本 和 主 菜单 设计 方法 相同 ,如 果 ee 

需要 在 某 个 组 件 上 鼠标 右键 单 击 打开 一 个 弹出 式 菜单 ,那么 只 Es 


需要 将 此 组 件 的 PopupMenu 属性 设置 成 需要 打开 的 弹出 式 菜 图 3-43 ”弹出 式 菜单 
单 的 名 字 即 可 。 


小 结 


本 章 中 介绍 了 Delphi XE8 中 的 主要 组 件 的 属性 和 基本 使 用 方法 ,通过 一 些 简明 的 示例 对 
它们 进行 了 更 直观 的 介绍 。 通 过 本 章 的 介绍 ,读者 对 Delphi XE8 组 件 有 了 一 个 初步 了 解 , 基 
本 掌握 了 用 一 些 常用 组 件 来 设置 窗 体 并 完成 需要 的 功能 。 

Delphi XE8 中 还 有 一 些 组 件 本 章 中 没有 介绍 ,读者 可 以 自己 查看 组 件 面板 中 的 组 件 , 参 
照 帮助 或 对 象 查看 器 以 及 有 关 资 料 学 习 。 


习 题 


3-1 简 述 组 件 的 缩放 、 移 动 .复制 与 删除 的 操作 步骤。 

3-2 ”列举 出 可 用 于 字符 输入 的 各 类 编辑 框 的 名 称 以 及 它们 各 自 不 同 的 特点 。 
3-3 列举 出 各 类 按钮 组 件 的 名 称 以 及 它们 各 自 不 同 的 特点 和 用 途 。 

3-4 列举 出 各 类 列表 组 件 的 名 称 以 及 它们 各 自 不 同 的 特点 和 用 途 。 

3-5 列举 出 各 类 布局 组 件 的 名 称 以 及 它们 各 自 不 同 的 特点 和 用 途 。 


i 3-6。 单 选 按钮 与 复 选 按钮 的 使 用 。 编 写 如 图 3-44 所 示 界 
a 面 ,选择 颜色 可 改变 * 示 例文 本 "的 颜色 并 且 可 以 改变 字体 风格 。 
人 二 3-7 设计 一 个 窗 体 ,利用 ComboBox 编辑 框 ,对 客户 名 音 


D 红 @ 昔 | 四 加 进行 管理 ,要 求 在 编辑 框 中 输入 新 的 值 ,一 旦 要 加 入 ,应 与 下 拉 
四 汪 四 外 | 四 仿 外 列表 中 原 有 值 不 重复 。 
3-8 ”设计 一 个 窗 体 ,编写 文本 处 理 程序 ,要 求 有 “复制 ”、 
图 3-44 单 选 按钮 与 复 选 框 “剪贴 >"“ 字 体 ”“ 字 型 "等 按钮 。 
的 使 用 3-9 ”建立 一 个 股票 收益 运算 器 ,如 图 3-45 所 示 。 要 求 : 默 
认 类 型 为 “基金 ,在 “ 买 人 股 数 ?"“ 买 人 价 ” 和 * 卖 出 价 " 中 输入 相 
应 内 容 后 , 单 击 “计算 ”按钮 ,可 在 “结果 ”区 中 显示 资金 余额 状况 。 
说 明 : 基金 交易 费 5 元 。 资 金 余额 状况 公式 : 余额 王 买 人 股 数 X 买 人 价 一 (( 买 人 股 数 义 
买 人 价 十 5) 一 ( 买 人 股 数 X 卖 出 价 一 5))。 
3-10 继续 3-9 题 , 当 在 “类 型 ? 框 中 选择 不 同 的 交易 类 型 时 ,系统 可 进行 分 类 计算 : 当 买 
入 大 于 卖 出 成 交 后 亏损 ,在 “结果 ? 框 中 以 不 同 的 文字 背景 ( 盘 利 红色 亏损 绿色 ) 明 确 标 出 ,如 


图 3-45 ”证券 收益 运算 器 一 图 3-46 ”证券 收益 运算 器 二 


(1) 股票 交易 费用 为 股价 的 0.35% ,基金 交易 费 为 5 元 。 股 票 印花 税 为 股价 的 0.4%。 

(2) 过 户 费 为 1 元 。 附 加 费用 为 6 元 .“ 股 票 ” 的 资金 余额 计算 公式 : 余额 = 买 人 股 数 X 
买 和 人 价 十 买 人 股 数 X 买 人 价 X0.35% 十 过 户 费 十 买 入 印花税 十 附加 费 一 ( 买 入 股 数 X 卖 出 
价 一 买 人 股 数 义卖 出 价 X0. 35% 一 过 户 费 一 卖 出 印花 税 一 附加 费 ) 。 

(3) 基金 的 资金 余额 计算 公式 : 余额 一 ( 买 人 股 数 X 买 人 价 十 5) 一 ( 买 人 股 数 X 卖 出 价 一 5) 。 

3-11 菜单 的 快捷 键 和 热 键 的 区 别 是 什么 ?如 何 设置 快捷 键 和 热 键 ? 

3-12 如何 控制 快捷 菜单 的 弹出 位 置 ? 

3-13 如何 创建 动态 菜单 ? 


3-14 MaskEdit 组 件 设 置 掩 码 格式 的 属性 是 哪个 ?如何 设置 类 似 XH111111 一 X 的 
格式 ? 
说 明 : 其 中 XH 为 固定 字母 ,不 用 输入 ,111111 为 任意 输入 的 6 位 数字 ,一 为 固定 分 隔 符 ， 


X 为 任意 一 个 字母 。 


过 程 和 函数 是 结构 化 程序 设计 中 的 重要 概念 。 一 个 比较 大 的 程序 可 以 被 划分 成 若干 个 模 
块 ,每 个 模块 完成 一 个 或 几 个 功能 ,每 个 功能 可 以 用 一 个 程序 段 来 实现 ,这 个 程序 段 被 称 为 “ 子 
程序 ”。 在 Delphi XE8 中 ,过 程 (Procedure) 指 没有 返回 值 的 “ 子 程序 ”, 而 函数 (Function) 是 有 
返回 值 的 “ 子 程序 ”。 

本 童 主要 介绍 过 程 的 分 类 、 定 义 和 应 用 ; 函数 的 分 类 、 定 义 和 应 用 ; 参数 的 种 类 和 传递 方 
式 ; 变量 的 作用 区 域 。 


4.1 过 程 


运行 结束 后 没有 返回 值 的 子 程序 称 为 过 程 。 在 Delphi XE8 中 有 三 种 类 型 的 过 程 : 标准 
过 程 、 事 件 过 程 和 自 定义 过 程 。 其 中 ,标准 过 程 和 自 定义 过 程 又 可 以 称 为 通用 过 程 , 即 这 两 种 
过 程 可 以 独立 于 事件 ,被 任何 过 程 或 函数 调用 。 


4.1.1 标准 过 程 


标准 过 程 是 系统 内 部 已 经 定义 好 的 过 程 ,不 需要 编写 代码 ,也 不 能 改变 过 程 的 名 称 和 参 
数 。 在 第 2 章 中 已 经 介绍 了 一 些 系统 的 标准 过 程 。 例 如 ,ShowMessage( 志 消息 字符 串 之 ) 用 
来 产生 一 个 消息 对 话 框 , 再 如 ,Val(S,V,Code) 用 来 将 字符 串 S 转换 为 数值 V。 还 有 其 他 一 些 
日 期 时 间 转 换 过 程 ,如 DecodeDate(Date,Year,Month,Day) 可 以 将 一 个 TdateTime 类 型 的 日 
期 值 转换 为 年 ,月 ,日 的 形式 。 

标准 过 程 的 调用 非常 简单 ,在 需要 调用 的 位 置 直接 书写 该 过 程 即 可 ,在 例 4. 1 中 “加 法 ” 按 
钮 事件 中 直接 调用 了 标准 过 程 ShowMessage。 


4.1.2 事件 过 程 


当 对 象 接收 到 某 个 动作 时 ,例如 鼠标 单 击 (OnClick), Windows 会 通知 Delphi XE8 产生 
了 一 个 事件 (鼠标 单 击 事件 ) ,而 Delphi XE8 会 自动 执行 该 对 象 与 该 事件 有 关 的 一 段 程序 ,这 
段 程序 就 是 该 对 象 的 一 个 事件 过 程 。 所 以 事件 过 程 依附 于 具体 的 对 象 , 并 且 仅 在 发 生 该 动作 
时 执行 一 次 。 

1. 事件 过 程 的 创建 

一 个 对 象 可 以 对 多 种 动作 产生 响应 ,例如 ,在 窗 体 上 有 一 个 命令 按钮 对 象 , 它 除 了 可 以 响 
应 鼠标 单 击 事件 (OnClick), 还 可 以 响应 MouseDown, MouseUp,KeyPress, KeyUp 等 事件 。 
用 户 仅 创 建 需 要 的 事件 过 程 ,放弃 不 需要 的 事件 过 程 。 对 于 用 户 没有 创建 的 事件 过 程 , 当 发 生 
该 事件 时 ,Delphi XE8 将 忽略 该 事件 。 
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在 Delphi XE8 中 可 以 非常 方便 地 创建 对 象 的 事件 过 程 。 方 法 是 : 在 窗 体 上 (或 在 对 象 监 
视 器 中 ) 选 中 该 对 象 ,然后 在 对 象 监视 器 的 事件 (Event) 选 项 卡 中 选择 相应 的 事件 名 ,用 鼠标 双 
击 其 右 侧 的 下 拉 列 表 框 ,Delphi XE8 将 自动 产生 一 个 默认 的 事件 过 程 框架 ,执行 该 事件 的 代 
码 需要 添加 在 框架 内 。 

Delphi XE8 产生 的 默认 事件 过 程 的 名 称 遵循 下 面 的 命名 原则 : 控件 名 称 加 上 事件 类 型 名 
(无 On) ,例如 ,Buttonl 控件 的 OnClick 事件 的 默认 事件 过 程 名 是 ButtonlClick 。 

2. 事件 过 程 调用 

已 经 创建 完成 的 事件 过 程 可 以 被 其 他 事件 过 程 调 用 ,例如 ,在 例 4. 1 中 “乘法 ”按钮 事件 过 
程 中 调用 了 “加 法 ”按钮 的 事件 过 程 ,显示 乘法 的 计算 结果 。 


【 例 4. 1〗 事件 过 程 和 标准 过 程 使 用 示例 。 计 算 加 
GQ HE 
法 和 乘法 的 简单 例子 。 - - 
1) 界面 设计 请 输入 第 一 个 整数 


请 输入 第 二 个 整数 : 
[加 法 


使 用 Button、Edit、Label 组 件 即 可 完成 界面 设计 
用 户 界 面 如 图 4-1 所 示 。 


] 医生] 世间 


2) 属性 设置 
各 组 件 的 属性 设置 如 表 4-1 所 示 。 te aiid, 
表 4-1 各 组 件 属性 
对 象 属性 属性 值 说 明 
Caption 事件 过 程 应 用 实例 窗 体 的 标题 
Bo BorderStyle bsDialog 对 话 框 风格 
en Font. Name 宋体 字体 名 
Font. Size 小 五 字体 大 小 
Labell Caption 请 输入 第 一 个 整数 : 标签 的 标题 
Label2 Caption 请 输入 第 二 个 整数 标签 的 标题 
Editl Text 空 文本 内 容 为 空 
Edit2 Text 空 文本 内 容 为 空 
Caption 加 法 按钮 标题 
Tag 1 控件 附加 整数 什 
和 Caption 乘法 按钮 标题 
人 Tag 2 控件 附加 整数 值 
Button3 Caption 关闭 按钮 标题 
3) 程序 设计 
Procedure TForm1l. Button1Click( Sender: TObject); //" 加 法 "按钮 
Var 
Sum: Int64; 
StrMsg: String; // 关 键 分 析 1 
begin 
if (Sender Rs TButton) .Tag = 1 Then // 关 键 分 析 2 
begin 
Sum: = StrToInt(Editl.Text) + StrToInt (Edit2. Text); 
StrMsg: = ' 两 者 的 和 是 : '+ IntToStr(Sum); 
ShowMessage(StrMsg) ; // 关 键 分 析 3 


End 
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else 
证 (Sender Rs TButton) .Tag = 2 Then // 单 击 "乘法 "按钮 
begin 
Sum: = StrToInt(Edit1.Text) * StrToTnt(Edit2.Text); 
StrMsg: = ' 两 者 的 积 是 : '+ IntToStr(Sum); 


ShowMessage(StrMsg) ; // 调 用 标准 过 程 显示 乘积 
end; 
end; 
Procedure TForm1. Button2Click(Sender: TObject); //" 乘 法 "按钮 
begin 
Form1. Button1Click(Sender) // 调 用 "加 法 "按钮 事件 过 程 
end; 
procedure TForml. Button3Click( Sender: TObject); //" 关 闭 "按钮 
begin 
close; // 关 闭 窗 体 
end; 
4) 程序 分 析 
该 程序 是 一 个 事件 过 程 和 标准 过 程 调 用 的 示例 程序 。 通 过 按钮 事件 之 间 的 调用 关系 掌握 
事件 过 程 的 创建 和 使 用 


(1)“ 加 法 ?按钮 单 击 事件 

该 事件 计算 在 Editl 和 Edit2 编辑 框 中 的 整数 值 的 相 加 和 相 乘 的 结果 ,并 使 用 标准 过 程 显 
示 出 来 。 注 意 一 定 要 在 编辑 框 中 输入 整数 值 后 再 单 击 “ 相 加 ”按钮 ,否则 会 显示 错误 信息 。 关 
于 如 何 防止 错误 和 进行 程序 调试 ,在 后 面 的 章节 中 论述 。 在 本 事件 过 程 中 有 以 下 三 个 知识 点 。 

关键 分 析 1: 声明 了 两 个 变量 ,一 个 用 来 记录 相 加 或 相 乘 的 结果 ,另外 一 个 用 来 记录 显示 
的 结果 信息 。 因 此 需要 一 个 为 Int64 类 型 ,一 个 是 String 类 型 。 

关键 分 析 2: 该 过 程 中 使 用 了 按钮 控件 的 Tag 属性 ,该 属性 是 一 个 附加 在 控件 上 的 整数 
值 ,可 用 来 区 别 控件 的 不 同 对 象 。 本 例 在 属性 设置 中 将 Buttonl 的 Tag 属性 设置 为 1, 将 
Button2 的 Tag 属性 设置 为 2, 因 此 可 以 在 程序 中 使 用 这 两 个 值 来 区 别 是 哪个 按钮 发 生 了 单 击 
事件 。 

Sender As TButton 的 作用 是 将 Sender 转换 为 TButton 类 ,在 Delphi XE8 中 TComponent 类 
是 具有 Tag 属性 的 一 个 对 象 类 ,而 TButton 类 就 派生 于 TComponent 类 。 

关键 分 析 3: StrToInt 函数 将 一 个 字符 串 转 换 为 整 型 数值 ,而 IntToStr 是 将 一 个 整 型 数 
值 转换 为 字符 串 。 这 两 个 函数 是 系统 内 部 函数 ,可 直接 使 用 。 

(2)“ 乘 法 ?按钮 单 击 事件 

该 按钮 事件 中 调用 了 “加 法 ”按钮 事件 的 事件 过 程 ,并 将 Sender 作为 参数 传递 。Sender 也 
可 以 改写 为 下 面 的 形式 Forml. Button2 。 

(3)“ 关 闭 ” 按 钮 单 击 事件 

在 Delphi XE8 只 要 调用 一 个 标准 过 程 Close 即 可 关闭 窗 体 。 由 于 本 应 用 程序 中 Forml 
是 程序 的 主 窗口 ,所 以 关闭 窗口 ,应 用 程序 也 随即 结束 。 


4.1.3 自 定义 过 程 


在 Delphi XE8 中 自 定义 过 程 的 语法 格式 和 调用 方法 与 事件 过 程 类 似 。 一 般 自 定义 过 程 
定义 在 单元 的 implementation 部 分 中 的 {$R *. dfm} 后 面 。 
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1. 自 定 义 过 程 声 明 
自 定义 过 程 的 一 般 声明 格式 如 下 : 
Procedure < 过 程 名 >[( < 形 参 表 > ) ]; 
[< 局 部 声明 >] 
begin 
[ < 过 程 语句 序列 > ] 
end; 
过 程 的 声明 必须 以 Delphi XE8 中 的 保留 字 procedure 开始 ,包括 过 程 名 , 形 参 表 , 局 部 声 
明 部 分 和 以 begin 开始 end 结束 的 过 程 语句 序列 。 第 一 行 必须 以 “; ”分 号 结束 ,是 过 程 首部 。 
其 余部 分 为 过 程 的 实现 部 分 ,必须 包括 一 个 begin…end 结构 。end 后 面 也 必须 以 “; ”分 号 结 
束 , 表 示 过 程 结 束 。 
二 过 程 名 二 可 以 使 用 任何 符合 Delphi XE8 语法 的 标识 符 , 一 个 过 程 只 允许 有 唯一 一 个 过 
程 名 。 
去 形 参 表 二 过程 参数 的 一 般 书 写 形式 为 : 


([Var | const] < 参数 名 >: < 类 型 >) 


Var 和 Const 为 系统 的 保留 字 ,Var 表示 参数 传递 方式 为 地 址 传递 , 即 形 参 值 的 改变 将 反 
映 到 实 参 中 。Const 表示 在 过 程 内 部 不 能 改变 形 参 的 值 。 不 带 这 两 个 参数 的 形 参 传递 方式 为 
值 传递 ,过 程 内 部 对 形 参 值 的 改变 将 不 会 反映 到 实 参 中 。 

一 个 过 程 可 以 没有 任何 形式 参数 ,也 可 以 有 若干 个 参数 。 因 此 ,过 程 的 定义 可 以 有 类 似 下 
面 的 两 种 形式 。 


procedure ProcNoPara; 
Procedure GetSum(V1,V2: Integer;var Sum: Int64); 


第 一 个 过 程 的 过 程 名 为 ProcNoPara, 没 有 任何 参数 ,直接 在 过 程 名 后 书写 分 号 。 

第 二 个 过 程 的 过 程 名 为 GetSum, 有 三 个 形式 参数 V1,V2,Sum。 其 中 ,V1,V2 两 个 参数 
都 是 Integer 类 型 ,因此 两 个 参数 之 间 使 用 " ,逗号 分 隔 。 第 三 个 参数 Sum 为 Int64 类 型 ,和 
前 两 个 参数 类 型 不 同 ,因此 需要 使 用 “; ”号 与 前 两 个 参数 隔 开 。 该 过 程 使 用 参数 Sum 带 回 
V1,V2 两 个 数 之 和 。 

去 局 部 声明 二 部 分 用 来 声明 仅 能 在 该 过 程 中 使 用 的 变量 常量 或 是 另外 一 个 过 程 和 函数 。 
该 部 分 是 可 选 的 , 即 一 个 过 程 可 以 没有 任何 局 部 声明 。 

去 过 程 语 句 序列 > 部 分 由 实现 执行 该 过 程 功能 的 具体 语句 组 成 。 请 句 序列 必须 书写 在 
begin…end 结构 之 内 。 可 以 使 用 在 第 2 章 中 介绍 的 所 有 程序 结构 。 

2. 自 定义 过 程 的 创建 和 使 用 

一 般 可 以 创建 两 种 自 定 义 过 程 ,一 种 是 仅 能 本 单元 中 使 用 ,对 其 他 的 单元 文件 该 过 程 不 可 
见 ; 另外 一 种 就 是 还 可 以 在 其 他 单元 中 使 用 的 公共 过 程 。 两 者 的 创建 位 置 一 样 ,都 可 以 将 过 
程 定义 在 单元 的 implementation 部 分 中 {$ R x*. dfm)}) 的 后 面 。 所 不 同 的 是 ,要 创建 能 在 其 他 
单元 中 使 用 的 过 程 ,必须 将 过 程 首 部 声明 在 单元 的 公共 接口 部 分 (Interface) 中 。 对 于 将 过 程 
首部 声明 在 Interface 中 的 自 定义 过 程 ,其 调用 和 创建 的 位 置 之 间 没有 特殊 的 要 求 。 但 是 如 果 
是 仅 在 本 单元 内 部 使 用 的 自 定义 过 程 , 则 必须 先 创建 才能 被 使 用 ,也 就 是 说 ,不 能 在 前 面 调用 
一 个 在 后 面 才 创建 的 过 程 。 
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【 例 4.2】 使 用 自 定 义 过 程 实现 两 个 整数 阶乘 求 和 运算 。 


1) 界面 设计 


使 用 Button、Edit、Label 组 件 即 可 完成 界面 设计 ,用 户 界 面 如 图 4-2 所 示 。 


EE 


请 输入 第 一 个 整数 : 4 
‖ 请 输入 第 二 个 整数 : 6 


4 与 6 的 阶乘 和 为 : 744 


图 4-2 自 定义 过 程 的 运行 界面 


2) 属性 设置 
各 组 件 的 属性 设置 如 表 4-2 所 示 。 
表 4-2 各 组 件 属性 
对 象 属性 属性 值 说 明 
ed Caption 自 定义 过 程 举 例 窗 体 的 标题 
en BorderStyle bsDialog 对 话 框 风格 
Labell Caption 请 输入 第 一 个 整数 : 标签 的 标题 
Label2 Caption 请 输入 第 二 个 整数 : 标签 的 标题 
Caption 空 
Ee Font. color 蓝 色 字体 颜色 
Editl Text 空 文本 内 容 为 空 
Edit2 Text 空 文本 内 容 为 空 
Buttonl Caption 计算 按钮 标题 
Button2 Caption 返回 按钮 标题 
3) 程序 设计 
procedure CalFact(Num: Integer;Var Value: Int64) ; // 关 键 分 析 1 
var 
i: integer; // 定 义 循环 用 变量 
begin 
Value: =1; 
for i: =1 to Num do 
Value: =Valuex i; // 循 环 计算 得 到 数 m 的 阶乘 
end; 
Procedure GetSum(V1,V2: Integer;Var Sum: Int64); // 关 键 分 析 2 
var 
SumV1, SumV2: Int64; // 定 义 临时 变量 
begin 
CalFact(V1, SumV1); // 调 用 计算 阶乘 的 自 定义 过 程 
CalFact(V2, SumV2); 
Sum: = SumV1 + SumV2; // 使 用 Sum 得 到 阶乘 之 和 


end; 
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Procedure TForm1. Button1Click( Sender: TObject) //" 计 算 "按钮 
Var 
Sum: Int64; // 得 到 阶乘 的 和 的 变量 
Ed1, Ed2: Integer; // 接 收 Editl 和 Edit2 中 的 数值 的 变量 
begin 
if (editl.Text = '') or (edit2.Text = ") then // 判 断 是 否 输入 值 
begin 
application. MessageBox( ' 请 输入 整数 ', ' 提 示 ', MB_O0K) ; // 提 示 对 话 框 
exit; // 退 出 该 过 程 
end; 
Edl: = StrtoInt(editl. text); // 将 Editl 中 的 字符 串 转换 为 整 型 赋值 给 Edl 
Ed2: = StrtoInt(edit2. text); // 将 Edit2 中 的 字符 串 转 换 为 整 型 赋值 给 Ed2 
GetSum(Ed1, Ed2, Sum) ; // 调 用 自 定义 过 程 
label3. Caption: =trim(Editl. text) + ' 与 '+ trim(Edit2. text) + ' 的 阶乘 和 为 : '+ IntToStr(Sum); 
end; 


procedure TForm1. Button2Click( Sender: TObject); 
begin 
close; 

end; 

4) 程序 分 析 

关键 分 析 1: 定义 了 一 个 计算 阶乘 的 自 定义 过 程 ,该 过 程 使 用 形式 参数 Value 返回 整数 
Num 的 阶乘 值 。 阶 乘 的 计算 是 通过 一 个 循环 语句 完成 的 。 

关键 分 析 2: 该 过 程 中 两 次 调用 了 计算 阶乘 的 子 过 程 。 自 定义 子 过 程 的 调用 非常 简单 ,在 
需要 调用 的 位 置 直接 书写 过 程 名 ,并 将 实 参 填写 在 对 应 的 形 参 位 置 处 即 可 。 由 于 CalFact 过 
程 仅 在 本 单元 内 部 可 见 ,所 以 调用 GetSum 过 程 定义 在 了 CalFact 过 程 之 后 。 自 定义 过 程 可 
以 调用 前 面 已 经 定义 过 的 自 定义 过 程 。 该 过 程 通过 Sum 返回 阶乘 和 。 

计算 按钮 单 击 事件 : 该 过 程 计算 两 个 编辑 框 中 的 整数 的 阶乘 之 和 。 有 以 下 三 个 知识 点 。 

知识 点 1: 通过 判断 编辑 框 中 是 否 有 输入 值 来 进行 错误 处 理 。Or 条 件 表示 只 要 有 一 个 编 
辑 框 中 没有 输入 数值 就 提示 必须 输入 。Application. MessageBox() 产 生 一 个 消息 对 话 框 ,第 
一 个 参数 为 提示 信息 ,第 二 个 参数 是 信息 对 话 框 的 标题 ,可 以 没有 标题 ,默认 为 空 , 第 三 个 参数 
是 显示 的 按钮 ,可 以 显示 多 个 按钮 ,本 例 中 仅 显 示 一 个 “确认 ”按钮 。 

知识 点 2: 当 在 任何 一 个 编辑 框 中 没有 输入 任何 值 时 ,程序 需要 直接 跳出 过 程 的 执行 , 实 
现 该 目的 的 一 个 方法 就 是 使 用 Exit 过 程 。 如 果 一 个 过 程 是 系统 的 主 过 程 , 则 使 用 Exit 将 导 
致 整个 应 用 程序 的 结束 。 

知识 点 3: 调用 GetSum 过 程 得 到 输入 数 的 阶乘 之 和 。 由 Sum 返回 计算 得 到 的 阶乘 之 
和 ,然后 通过 IntToStr 转换 为 字符 串 显 示 在 Label3 的 标题 中 。Trim 函数 的 作用 是 去 掉 编辑 
框 中 的 前 导 和 后 绥 空 格 。 


4.2 函 数 


与 过 程 不 同 , 函 数 是 有 返回 值 的 子 程序 。 一 般 通过 函数 名 或 一 个 系统 预定 义 的 隐 含 变量 
Result 返回 函数 的 值 。 在 Delphi XE8 中 有 两 种 函数 : 内 部 函数 和 自 定义 函数 。 
4.2.1 标准 函数 

标准 函数 是 系统 内 部 已 经 定义 好 的 函数 。 不 能 改变 标准 函数 的 参数 以 及 返回 值 类 型 。 在 


第 4 章 过 程 与 西数 上 3 


4.1 节 中 已 经 接触 了 许多 系统 内 部 标准 函数 ,如 IntToStr 以 及 Trim 等 。 这 些 函 数 都 定义 在 
系统 的 某 个 单元 库 文件 中 ,例如 ,StrTolInt 函数 定义 在 系统 的 SysUtils 单元 文件 中 ,其 定义 形 
式 如 下 : 


function StrToInt(const S: string): Integer; 


表明 该 函数 接收 一 个 常量 参数 ,并 返回 一 个 整 型 值 。 
4.2.2 自 定义 函数 


1. 函数 的 定义 
自 定义 函数 具有 和 标准 函数 类 似 的 结构 ,一般 的 语法 格式 为 : 
Function < 函数 名 > [(< 形 参 表 >)]: 返回 类 型 ， 
[局 部 声明 ] 
Begin 
[< 语句 序列 >] 
End ; 
自 定义 函数 含有 一 个 以 Function 开始 的 函数 首部 ,包括 函数 名 ,函数 的 形 参 表 和 函数 的 
回 值 类 型 以 及 返回 值 类 型 前 面 的 *: ”冒号 和 后 面 的 “; ”分 号 。 一 个 函数 可 以 没有 形 参 表 , 但 
必须 有 函数 返回 值 类 型 。 同 样 ,也 可 以 没有 局 部 声明 ,但 必须 有 一 个 实现 函数 功能 的 函数 体 ,以 
Begin 开始 ,以 End 结束 。 与 过 程 类 似 ,在 End 后 也 必须 有 一 个 “; "分 号 表示 函数 体 的 结束 。 
将 函数 名 书写 在 赋值 语句 的 左 侧 时 可 以 在 函数 执行 结束 后 将 函数 执行 结果 带 回 到 调用 程 
序 ,Delphi XE8 中 的 隐 含 变量 Result 也 能 完成 同样 的 功能 。 例 4. 3 显示 了 这 两 种 调用 的 方法 。 
2. 自 定义 函数 的 创建 和 使 用 
函数 和 创建 位 置 和 过 程 一样 ,一 般 在 单元 的 implementation 部 分 中 1$R * .dfmy} 的 后 面 
定义 。 对 于 仅 在 本 过 程 内 部 使 用 的 函数 ,必须 遵循 先 创建 再 使 用 的 原则 。 如 果 想 让 一 个 函数 
对 其 他 的 单元 也 是 可 见 的 , 则 必须 将 函数 首部 定义 在 单元 的 接口 部 分 , 则 函数 功能 的 实现 和 调 
用 之 间 的 位 置 就 不 必 遵 循 先 创建 再 使 用 的 规则 。 
可 以 像 调用 Delphi XE8 中 的 标准 函数 一 样 来 调用 自 定义 函数 ,同样 也 需要 使 用 一 个 与 函 
数 的 返回 值 类 型 相同 的 变量 来 接收 函数 的 返回 值 。 
【 例 4.3】 使 用 自 定义 函数 重新 实现 例 4. 2 两 个 整数 阶乘 求 和 运算 。 
本 例 中 的 界面 和 对 象 属性 设置 同 例 4. 2 基本 相同 。 仅 需要 将 Forml 的 Caption 属性 改变 
为 “ 自 定义 函数 示例 ” 即 可 。 因 此 省 略 前 面 两 个 步 又 。 
1) 程序 设计 
function CalFact(Num: Integer): Int64; // 关 键 分 析 1 
Var 
i,Value: integer; 
begin 
Value: =1; 
for i: =1 to Num do 
Value: = Value* i; 


Result: = Value; // 由 隐 含 变量 Result 带 回 计 算 值 
end; 


function GetSum(V1, V2: Integer): Int64; // 关 键 分 析 2 
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var 
SumV1, SumV2: Int64; // 临 时 变量 
begin 
SumV1: =CalFact(V1); // 调 用 自 定义 函数 
SumV2: = CalFact(V2); 
GetSum: = SumV1 + SumV2; // 由 函数 名 返回 阶乘 之 和 
end; 


procedure TForml. Button1Click(Sender: TObject); //" 计 算 " 按 钮 


Var 
Sum: Int64; 
Ed1, Ed2: Integer; 
begin 
if (editl.Text = '') or (edit2. Text = '') Then 
begin 
application. MessageBox( ' 请 输入 整数 ', ' 提 示 ', MB_OK); 
exit; 
end; 
Edl: = StrtoInt(edit1. text); // 将 Edit1 中 的 字符 串 转换 为 整 型 赋值 给 Ed1 
Ed2: = StrtoInt(edit2. text); // 将 Edit2 中 的 字符 串 转换 为 整 型 赋值 给 Ed2 
Sum: = GetSum(Ed1, Ed2); // 调 用 自 定义 函数 
label3. Caption: = trim(Editl. text) + ' 与 '+ trim(Edit2. text) + ' 的 阶乘 和 为 : '+ IntToStr(Sum); 
end; 
2) 程序 分 析 


关键 分 析 1: 该 函数 同 前 面 的 过 程 实现 相同 的 功能 。 在 本 函数 中 仅 需 要 传递 一 个 参数 
Num 指定 要 计算 的 阶乘 的 数字 。 计 算 的 结果 由 一 个 在 Delphi XE8 系统 中 自 定义 的 隐 含 变量 
Result 返回 ,这 是 返回 函数 计算 结果 的 一 个 方法 。 

关键 分 析 2: 在 该 函数 中 调用 了 前 面 定义 的 自 定 义 函 数 Fact, 说 明 在 自 定义 函数 中 可 以 
调用 前 面 已 经 声明 过 的 自 定义 函数 。 该 函数 由 函数 名 GetSum 返回 计算 的 结果 。 这 是 返回 函 
数值 的 另外 一 个 方法 。 

“计算 ”按钮 单 击 事件 : 该 事件 同 例 4. 2 中 的 事件 过 程 实现 同样 的 功能 。 通 过 变量 Sum 
得 到 由 GetSum 函数 计算 得 到 的 结果 并 以 字符 串 的 形式 显示 出 来 。 


4.3 内 部 过 程 和 函数 


内 部 函数 和 过 程 是 指定 义 在 一 个 过 程 和 函数 内 部 ,只 能 由 该 过 程 和 函数 使 用 的 函数 和 过 
程 ,内 部 程序 又 称 为 程序 嵌 套 。 

1. 嵌 套 层次 

在 Delphi XE8 中 ,程序 具有 一 定 的 层次 结构 。 人 允许 | Unito 层 
子 程序 内 部 再 重新 定义 新 的 子 程序 , 即 子 程序 的 嵌 套 定 Al 1 层 
义 。 为 了 准确 地 表达 嵌 套 层次 ,通常 将 嵌 套 从 外 向 内 进行 A22 层 
编号 ,并 把 相应 子 程序 的 层 号 称 为 子 程序 的 嵌 套 深度 。 一 A33 层 
般 单元 文件 为 0 层 , 其 中 的 子 程序 从 外 向 内 依次 为 1 层 、2 
层 、3 层 ……*。 有 许 套 关系 的 子 程序 , 若 层 号 相差 为 1, 称 
为 相 邻 层 , 并 称 层 号 小 的 为 外 层 子 程序 , 层 号 大 的 为 内 层 
子 程序 ; 若 层 号 相差 大 于 1, 则 称 为 隔 层 。 如 图 4-3 所 示 图 4-3 ” 蔡 套 层次 关系 图 
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Al 为 外 层 子 程序 ,A2 为 内 层 子 程序 ,Al 和 A3 为 隔 层 。 
子 程序 的 嵌 套 要 求 外 层 子 程序 能 够 完全 包含 内 层 子 程序 ,不 允许 局 部 包含 , 即 不 允许 
奖 受 5 
下 面 就 是 一 个 子 过 程 嵌 套 的 例子 。 
Pprocedure DoSomething(S: string); 
Y: Integer; 
procedure NestedProc(S: string); // 定 义 内 部 过 程 
begin 
end 
begin 
Nestedproc(S); 
a 
NestedProc 是 一 个 内 部 过 程 ,该 过 程 对 外 部 不 可 见 ,只 能 在 过 程 DoSomething 中 使 用 。 
在 Delphi 的 系统 标准 过 程 和 王 数 中 ,有 许多 使 用 了 内 部 过 程 ,例如 ,定义 在 SysUtils 单元 中 的 
DateTimeToString 过 程 以 及 ScanDate 函数 等 。 
2. 子 程 序 的 调用 规则 
在 Delphi XE8 中 , 子 程序 的 调用 必须 遵循 如 下 规则 。 
(1) 子 程序 可 以 调用 其 相 邻 内 层 的 子 程序 ,不 能 隔 层 调 用 。 如 图 4-4 所 示 , Al 可 以 调用 
AlB 和 A1C, 但 不 能 调用 A3 。 


Unit 0 层 
Al 1 层 
AlB 2 层 
A3 3 层 
AlC 2 层 
A2 1 层 
A2B 2 层 
A2C 2 层 


图 4-4 子 程序 的 调用 规则 


(2) 内 层 子 程序 可 以 调用 外 层 的 子 程序 而 且 允 许 隔 层 调用 。 如 A2B 可 以 调用 A2,A3 调 
用 Al。 

(3) 同一 层 的 子 程序 ,允许 后 定义 的 子 程序 调用 先 定 义 的 子 程序 ,如 A2C 可 以 调用 A2B， 
但 是 A2B 不 可 以 调用 A2C。 

(4) 如 果 需 要 调用 同 层 中 后 定义 的 子 程序 ,必须 用 保留 字 forward( 超 前 引用 ) 对 后 面 的 子 
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程序 提前 说 明 。 
下 面 是 一 个 超前 引用 的 例子 。 


function CalFact(Num: Integer) : Int64; 
forward // 超 前 引用 


function GetSum(V1, V2: Integer) : Int64; 
Var 
SumV1, SumV2 : Int64; 
begin 
SumV1: =CalFact(V1); 
SumV2: = CalFact(V2); 
GetSum: = SumV1 + SumV2; 
end; 


function CalFact(Num: Integer): Int64; 


Var 

i,Value: integer; 
begin 

Value: =1; 


for i: =1 to Num do 
Value: = Value* i; 
Result: = Value; 
end; 


说 明 : 超前 引用 的 子 程序 首部 必须 是 完整 的 ,而 在 后 面 的 定义 中 ,首部 可 以 不 带 形 参 。 


function CalFact(Num: Integer): Int64; 
Var 
i, Value: integer; 


begin 


4.4 ”参数 的 传递 


传递 参数 是 实现 被 调用 的 子 程序 和 调用 者 之 间 传 递 信息 的 一 种 方法 。 被 调用 的 子 程序 可 
以 是 过 程 , 也 可 以 是 一 个 函数 。 这 些 子 程序 根据 调用 者 传递 来 的 参数 完成 相应 的 功能 ,例如 计 
算 、 显 示 等 。 不 同 的 参数 传递 方式 意味 着 子 程序 将 产生 不 同 的 行为 。 正 确 的 设计 和 传递 参数 
是 Delphi XE8 程序 设计 中 一 个 十 分 关键 的 问题 。 


4.4.1 形式 参数 与 实际 参数 


形式 参数 是 指出 现在 过 程 或 者 函数 首部 “ 形 参 表 ”中 的 变量 名 ,表示 用 于 接收 数据 的 变量 。 
实际 参数 是 指 在 调用 过 程 或 是 函数 时 ,传递 给 过 程 或 函数 的 常量 .变量 或 表达 式 。 在 4.1.3 节 
中 介绍 了 形式 参数 的 定义 形式 和 书写 规范 ,该 书写 规范 也 同样 适用 于 函数 参数 的 定义 。 在 过 
程 或 是 函数 的 定义 中 ,使 用 形式 参数 来 确定 该 过 程 或 函数 所 需要 的 参数 的 个 数 、 类 型 以 及 参数 
之 间 的 次 序 。 在 调用 该 过 程 或 是 函数 时 ,实际 参数 将 替换 形式 参数 , 形 参 和 实 参 之 间 的 对 应 关 
系 为 : 第 一 个 形 参 接收 第 一 个 实 参 的 值 .第 二 个 形 参 接收 第 二 个 实 参 的 值 ,以 此 类 推 。 以 例 4.3 
中 函数 GetSum(V1,V2: Integer) 为 例 ,在 该 函数 中 有 两 个 形 参 V1,V2。 在 “计算 按钮 单 击 事 
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件 ” 中 ,使 用 下 面 的 形式 调用 该 函数 Sum: 二 GetSum(Ed1,Ed2)。Edl 是 第 一 个 实 参 ,因此 第 
一 个 形 参 V1 将 接收 该 实 参 的 值 ,得 到 编辑 框 Editl 中 的 整数 值 。 同 样 , 形 参 V2 接收 实 参 
Ed2 的 值 。 在 使 用 中 , 实 参 和 形 参 的 变量 名 不 一 定 相同 ,但 是 调用 的 顺序 必须 一 致 ,在 各 个 实 
参 之 间 使 用 “, ”号 分 隔 , 过 程 和 函数 的 内 部 将 根据 实 参 的 值 进 行 相应 的 计算 ,完成 功能 。 


4.4.2 参数 的 传递 方式 


在 Delphi XE8 中 ,有 两 种 参数 的 传递 方式 :“ 按 值 传递 和”* 按 地 址 传递 ”。 在 过 程 或 者 两 
数 的 首部 “去 形 参 表 之 "中 的 参数 前 面 使 用 系统 的 保留 字 Var 或 者 Out 的 形 参 变量 表示 为 “ 按 
地 址 传递 ”, 使 用 Const 或 没有 任何 保留 字 的 形式 参数 ,将 使 用 * 按 值 传递 ”的 方式 。 

声明 为 “ 按 值 传递 ”的 参数 仅 负责 得 到 实际 参数 的 值 ,不 保留 内 部 对 该 参数 的 改变 ,而 声明 
为 “ 按 地 址 传递 ”的 参数 将 保留 函数 或 过 程 内 部 对 实际 参数 值 的 改变 ,并 在 调用 结束 后 返回 
该 值 。 

“ 按 地 址 传递 ”的 参数 实 参 和 形 参 的 类 型 必须 一 致 ,而 * 按 值 传递 ”的 实 参 和 形 参 之 间 仅 需 
要 赋值 相 容 即 可 。 例 如 ,在 例 4. 3 计算 按钮 单 击 事件 "中 ,可 以 使 用 下 面 的 形式 调用 GetSum 
(V1,V2: Integer) 隐 数 ; Sum: = 二 GetSum(StrTolnt(Editl. Text), StrTolnt(Edit2. Text) ) 。 
函数 将 首先 调用 系统 内 部 函数 StrToInt 将 Editl. Text 中 的 字符 串 转换 为 整数 然后 赋值 给 
V1, 完 成 “ 按 值 传递 ”。 

【 例 4.4】 参数 传递 方式 演示 。 


1) 界面 设计 
使 用 Button、Edit、Label 组 件 即 可 完成 界面 设计 ,用 户 界 面 如 图 4-5 所 示 。 
G sasus VD) SS 
第 一 个 参数 : E5 
第 二 个 参数 。 56 
计算 参数 和 : 00 关闭 
图 4-5 参数 传递 方式 运行 界面 图 
2) 属性 设置 


各 组 件 的 属性 设置 如 表 4-3 所 示 。 
表 4-3 各 组 件 属性 


对 象 属性 属性 值 说 明 
ea Caption 参数 传递 方式 窗 体 的 标题 
BorderStyle BsDialog 对 话 框 风格 
Labell Caption 第 一 个 参数 : 标签 的 标题 
Label2 Caption 第 二 个 参数 : 标签 的 标题 
Label3 Caption 计算 参数 和 : 标签 的 标题 
Text 空 文本 内 容 为 空 
Editl 
Enabled False 不 可 编辑 
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续 表 
对 象 属性 属性 值 说 明 
本 Text 空 文本 内 容 为 空 
Enabled False 不 可 编辑 
en Text 空 文本 内 容 为 空 
Enabled False 不 可 编辑 
Buttonl Caption 值 传递 按钮 标题 
Button2 Caption 地 址 传递 按钮 标题 
Button3 Caption 关闭 按钮 标题 
3) 程序 设计 
procedure SwapByValue(V1,V2: Real;Const V3: Real;Var Sum: Real); // 关 键 分 析 1 
Var Tmp: real; 
begin 
Sum: =V1+V2+V3; // 计 算 和 
Tmp: =V1; // 交 换 V1 和 V2 的 值 
Vl: =V2; 
V2: = Tmp; 
end; 
procedure SwapByAddr( Var V1, V2: Real;Const V3: Real;Out Sum: Real); // 关 键 分 析 2 
Var Tmp: real; 
begin 
Sum: =V1+V2+V3; // 计 算 和 
Tmp: =V1; // 交 换 V1 和 V2 的 值 
Vl: =V2; 
V2: = Tmp; 
end; 
Procedure TForm]. FormCreate( Sender: TObject); // 窗 体 创建 事件 
begin 
Edit1. Text: = '6.6'; // 给 定 第 一 个 参数 的 值 
Edit2. Text : ; // 给 定 第 二 个 参数 的 值 
Edit3.Text: = '0.0°'; 
end; 
procedure TForml. Button1Click(Sender: TObject); //" 值 传递 "按钮 
Var Edl,Ed2,Sum: Real; 
Begin 
Sum: =100; 


Edl: =StrToFloat(Edit1. Text); 
Ed2: = StrToFloat(Edit2.Text); 
SwapByValue( Ed1, Ed2, 9.9, Sum); // 按 值 传递 调用 计算 过 程 
Edit1.Text: =FloatToStr(Ed1); // 显 示 改 变 后 的 值 
Edit2.Text: = 了 loatToStr(Ed2); 
Edit3. Text: = FloatToStr(Sum); 

end; 


procedure TForm1. Button2Click( Sender: TObject); //" 地 址 传递 "按钮 
Var 

Ed1, Ed2, Sum: Real; 

CstV: integer; 
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begin 
Edl: = StrToFloat(Editl. Text); 
Ed2: = StrToFloat(Edit2. Text); 


CstV: =9.9; 
SwapByAddr (Ed1, Ed2, CstV, Sum); // 按 地 址 传递 调用 计算 过 程 
Edit1. Text: =FloatToStr(Edl); // 显 示 改 变 后 的 值 
Edit2. Text: = FloatToStr(Ed2); 
Edit3. Text: =FloatToStr(Sum); // 显 示 计 算 结 果 
end; 
4) 程序 分 析 


关键 分 析 1: 该 过 程 中 有 4 个 参数 ,V1,V2 前 面 没有 任何 保留 字 修 饰 ,这 两 个 参数 按 * 值 
传递 ”方式 传递 参数 ,所 以 也 称 为 “ 值 参数 "。V3 前 面 有 保留 字 Const 修饰 ,表示 V3 是 一 个 常 
量 参数 , 即 不 能 在 过 程 内 部 改变 该 参数 的 值 , 也 就 是 说 不 允许 在 过 程 内 部 再 次 对 该 参数 赋值 ， 
该 参数 也 是 值 传递 。Sum 前 面 有 保留 字 Var 修饰 ,表明 该 参数 按 * 地 址 传递 ”方式 传递 参数 ， 
该 参数 在 过 程 内 部 改变 的 值 可 以 保留 ,所 以 又 可 以 称 为 “变量 参数 ”。 在 该 过 程 内 部 交换 了 V1 
和 V2 的 值 ,看 交换 的 值 是 否 会 影响 实际 参数 。 

关键 分 析 2: 该 过 程 和 前 面 所 不 同 的 是 ,将 V1,V2 也 声明 为 变量 参数 ”, 同 时 将 Sum 前 
面 的 修饰 保留 字 替 换 为 Out。 由 Out 修饰 的 变量 称 为 “外 部 参数 ” ,一 般 在 编写 COM,CORBA 
这 类 分 布 式 对 象 模型 的 程序 中 , 才 经 常 使 用 外 部 参数 。 该 过 程 内 部 同样 交换 了 V1,V2 的 值 ， 
看 如 何 影响 实 参 的 值 。 

窗 体 创建 事件 : 由 于 在 对 象 属性 设置 中 将 Editl ,Edit2 和 Edit3 的 Enable 属性 设置 为 
False( 该 属性 在 默认 的 情况 下 为 True) 。 所 以 在 运行 的 界面 中 不 能 改变 编辑 框 中 的 值 。 因 此 
在 窗 体 创建 事件 中 给 三 个 编辑 框 赋 初 值 。 

“ 值 传递 ”按钮 单 击 事件 : 该 事件 过 程 调用 自 定义 过 程 SwapByValue。 有 两 个 知识 点 : 

知识 点 1: 使 用 常数 9.9 直接 给 V3 赋值 。 这 在 “ 按 值 传 递 " 方 式 中 是 允许 的 。 而 且 还 可 
以 将 Edl ,Ed2 的 位 置 直接 替换 为 StrToFloat(Editl. Text) 和 StrToFloat(Edit2. Text) 也 可 以 
实现 值 的 传递 。 

知识 点 2: 在 SwapByValue 中 交换 了 V1 和 V2 的 值 。 但 是 实 参 并 没有 改变 。 编 辑 框 
Editl 和 Edit2 中 仍然 显示 在 原来 的 值 。 但 是 编辑 框 Edit3 中 的 值 改变 为 25. 3, 表 明 由 Var 修 
饰 的 实 参 Sum 的 确 带 回 了 改变 后 的 值 。 

“地 址 传递 ”按钮 单 击 事件 : 该 事件 调用 自 定义 过 程 SwapByAddr。 有 以 下 三 个 知识 点 。 

知识 点 1: 使 用 变量 CstV 来 给 常量 参数 V3 传递 值 。 即 使 是 使 用 变量 来 给 常数 参数 传递 
数值 。 常 量 参数 的 值 在 内 部 也 不 能 改变 。 另 外 注意 CstV 是 整数 类 型 ,而 自 定义 过 程 
SwapByAddr 中 V3 是 Real 类 型 ,Delphi XE8 中 整 型 给 实 型 赋值 是 赋值 兼容 的 ,因此 系统 不 
会 报错 。 但 是 反 过 来 则 不 行 。 这 可 以 从 Delphi XE8 中 数据 类 型 所 占用 的 存储 空间 来 理解 ， 
Real 类 型 占 8 个 字 节 ,而 一 个 Integer 类 型 占 4 个 字 节 ,无 法 完成 数值 的 转换 。 

知识 点 2: 形 参 变量 V1 和 V2 在 过 程 SwapByAddr 中 被 交换 后 ,的 确 改 变 了 实 参 变量 
Edl 和 Ed2 的 值 。Editl 中 显示 的 是 Ed2 的 值 ,而 Edit2 中 显示 的 是 Edl 的 值 , 表 明 交 换 
成 功 。 

知识 点 3: 由 Out 修饰 的 变量 Sum 也 带 回 了 改变 后 的 值 。 

程序 运行 结果 如 图 4-6 所 示 。 
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图 4-6 参数 传递 方式 运行 结果 


4.4.3 使 用 默认 参数 


在 声明 函数 或 过 程 中 ,可 以 给 形 参 指定 一 个 默认 的 值 ,在 调用 时 ,如 果 没有 给 形 参 指定 实 
参 , 则 系统 自动 使 用 默认 的 值 , 如 果 赋 值 , 则 使 用 实际 参数 的 值 。 默 认 参 数 声明 的 方法 是 在 形 
参 的 类 型 后 面 使 用 "一 "等 号 ,并 给 出 具体 的 常量 值 。 例 如 : 

Procedure DrawLine( StartPos, EndPos: Integer; LineWidth : Integer=1) 

begin 

// 语 句 序列 
end; 
则 下 面 的 两 种 调用 形式 是 等 价 的 : 


DrawLine (50,60, 1); 

DrawLine (50,60) ; 

但 是 需要 注意 的 是 ,如 果 后 面 的 参数 没有 使 用 默认 参数 ,不 允许 仅 对 前 面 的 参数 使 用 默认 
参数 。 例 如 ,不 能 将 前 面 的 例子 声明 为 下 面 的 形式 。 


procedure DrawLine(LineWidth : Integer = 1; StartPos，EndPos: Integer); 


4.4.4 赋值 兼容 与 调用 约定 


在 前 面 的 例子 中 , 提 到 了 参数 传递 中 的 赋值 兼容 。 在 Object Pascal 中 ,赋值 兼容 是 指 变 
量 可 以 进行 赋值 或 进行 参数 传递 。 例 如 ,赋值 操作 T1: 王 T2, 要 求 T2 和 Tl 满 足下 面 的 
条 件 。 

(1) Tl 和 T2 类 型 相同 ,并 且 都 不 是 文件 类 型 或 包含 文件 类 型 的 自 定义 类 型 。 

(2) Tl 和 T2 是 兼容 的 有 序 类 型 ,类 型 T2 的 值 在 类 型 T1 的 取 值 范围 内 。 

(3) Tl 和 T2 都 是 实 型 ,类 型 T2 的 值 在 类 型 T1 的 取 值 范围 内 ,或 者 T2 是 整数 型 。 

(4) Tl 和 T2 都 是 字符 串 类 型 ,或 者 T2 是 字符 类 型 或 紧凑 的 字符 串 类 型 。 

(5) Tl 是 Variant 类 型 ,T2 是 Integer,real,string 或 boolean 类 型 。 

当 两 个 类 型 要 进行 赋值 操作 而 又 不 满足 赋值 兼容 时 ,将 产生 编译 错误 。 

Object Pascal 提供 了 5 种 过 程 和 函数 的 调用 方式 ,分 别 为 Register, Pascal, Cdecl， 
Stdcall,SafeCall。 默 认 的 调用 方式 是 Register 方式 。 如 果 一 个 过 程 或 函数 没有 指定 过 程 或 函 
数 的 调用 方式 ,就 采用 Register 调用 方式 。Register 和 Pascal 调用 方式 传递 参数 是 从 左 到 右 ， 
即 最 左边 的 参数 先 产 生 并 首先 传递 ,最 右边 的 参数 最 后 产生 并 最 后 传递 。 而 Cdecl，Stdcall 和 
Safecall 调用 方式 传递 参数 则 是 从 右 到 左 。Register 调用 方式 自动 清除 调用 所 使 用 的 堆栈 和 
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寄存 器 ,负责 处 理 调 用 错误 ,同时 也 是 速度 最 快 的 调用 方式 。 
下 例 指 定 过 程 的 调用 方式 为 Pascal。 


procedure SwapByValue(V1, V2: Real;Const V3: Real;Var Sum: Real);pascal; 


4.5 变量 的 作用 域 


变量 的 作用 域 是 指 变量 可 以 被 识别 的 范围 。 一 个 Delphi XE8 应 用 程序 可 以 有 许多 单元 
组 成 ,每 个 单元 中 又 可 以 由 许多 过 程 和 函数 组 成 。 每 个 过 程 或 函数 中 可 以 定义 仅 能 在 本 过 程 
或 函数 中 使 用 的 常量 和 变量 ,对 其 他 的 过 程 和 函数 不 可 见 。 每 个 单元 中 也 可 以 定义 仅 在 本 单 
元 中 使 用 的 常量 和 变量 ,对 本 单元 中 所 有 的 过 程 和 函数 都 可 见 ,而 对 于 其 他 的 单元 不 可 见 。 除 
此 之 外 ,在 Delphi XE8 中 还 可 以 定义 在 不 同 的 单元 之 间 共 享 的 变量 。 


4.5.1 公有 变量 和 私有 变量 
一 般 Delphi XE8 的 单元 具有 下 面 的 结构 : 


unit 单元 名 // 单 元 首部 
interface // 单 元 接口 部 分 
implementation // 单 元 实现 部 分 
end // 单 元 结束 


在 单元 的 接口 部 分 (interface) 声 明 的 变量 属于 公有 变量 ,不 仅 可 以 被 本 单元 中 的 所 有 过 
程 和 函数 使 用 ,同时 还 可 以 被 其 他 单元 中 的 过 程 和 函数 使 用 。 在 单元 的 实现 部 分 
Cimplementation) 后 声明 的 变量 属于 私有 变量 ,不 能 被 其 他 单元 使 用 。 

说 明 : 由 于 Delphi XE8 中 的 窗 体 都 会 有 一 个 对 应 的 单元 ,所 以 一 个 带 有 窗 体 的 单元 中 包 

一 个 声明 在 单元 接口 部 分 (interface) 中 窗 体 类 的 定义 ,同时 会 声明 一 个 窗 体 变量 ,该 变量 是 
kt 个 对 象 , 它 拥有 声明 在 private 后 的 私有 数据 成 员 和 声明 在 public 后 的 公有 数据 成 

。 窗 体 类 的 公有 数据 成 员 也 可 以 被 其 他 单元 引用 ,但 这 些 变量 属于 窗 体 ,其 可 见 与 否 受 窗 体 
一 个 包含 窗 体 的 单元 将 在 implementation 后 包含 编译 命令 1$R x*. dfm)。 

公有 变量 虽然 对 其 他 单元 是 可 见 的 ,但 是 如 果 其 他 单元 需要 引用 某 一 个 单元 的 公共 变量 ， 
必须 在 接口 部 分 或 是 在 implementation 后 面 使 用 uses 命令 进行 引用 。 例 如 ,单元 2Cunit2) 如 
果 需 要 引用 单元 1(Cunitl) 中 的 共有 变量 ,可 以 在 implementation 后 面 书写 Uses unitl 。 


4.5.2 全 局 变量 和 局 部 变量 


局 部 变量 是 指 在 过 程 或 函数 的 内 部 声明 的 变量 , 例 4.4 中 在 过 程 SwapByValue 中 定义 的 
变量 Tmp 以 及 在 事件 过 程 中 定义 的 变量 Ed1,Ed2,Sum 都 是 局 部 变量 ,这 些 变 量 的 作用 范围 
仅 限 在 过 程 内 部 ,对 外 部 是 不 可 见 的 。 而 定义 在 单元 的 实现 部 分 的 变量 ,对 整个 单元 内 部 的 过 
程 和 函数 都 是 有 效 的 ,因此 是 全 局 变量 。 公 有 变量 也 是 全 局 变量 。 当 全 局 变量 和 局 部 变量 的 
名 称 相同 时 ,在 过 程 和 函数 的 内 部 ,使 用 的 是 局 部 变量 的 值 。 


4.5.3 变量 的 存储 方式 
从 空间 上 来 讲 , 全 局 变量 的 作用 范围 是 整个 程序 ,局 部 变量 仅 在 本 程序 段 内 部 有 效 。 从 变 


Delphi 程序 设计 教程 (第 3 版 ) 


量 的 存储 时 间 上 来 看 ,全 局 变量 是 静态 存储 ,局 部 变量 是 动态 存储 。 所 谓 的 静态 存储 是 变量 在 
程序 运行 期 间 一 直 占 有 固定 的 存储 空间 ,直到 整个 程序 结束 变量 所 占用 的 空间 才 释 放 。 而 动 
态 存储 则 是 程序 在 运行 期 间 根据 需要 动态 地 分 配 存储 空间 , 子 程序 一 旦 结束 ,变量 所 占有 的 存 
储 空间 立即 释放 。 

一 般 内 存 中 供 程 序 使 用 的 区 域 可 以 分 为 三 个 部 分 : 程序 区 ,静态 存储 区 和 动态 存储 区 。 
在 动态 存储 区 中 存放 的 数据 有 : 函数 或 过 程 的 形式 参数 ,函数 和 过 程 内 部 声明 的 局 部 变量 以 
及 函数 和 过 程 调用 时 的 现场 保护 和 返回 地 址 等 。 因 此 即 
使 是 同一 个 函数 或 过 程 ,每 次 调用 时 ,其 占用 的 动态 存储 
区 域 也 可 能 是 不 同 的 ,这 取决 于 系统 内 存 的 状态 。 

【 例 4. 5】 局 部 变量 和 全 局 变量 使 用 示例 。 


1) 界面 设计 i j 
使 用 Button、Edit、Label 组 件 即 可 完成 界面 设计 ,用 二 
图 4 E 量 示 
户 界面 如 图 4-7 所 示 。 ~ 
2) 属性 设置 
各 组 件 的 属性 设置 如 表 4-4 所 示 。 
表 4-4 各 组 件 属性 
对 象 属性 属性 值 说 明 
二 Caption 全 局 变量 和 局 部 变量 示例 窗 体 的 标题 
四 BorderStyle BsDialog 对 话 框 风格 
Labell Caption 全 局 变量 : 标签 的 标题 
Label2 Caption 局 部 变量 : 标签 的 标题 
Editl Text 空 文本 内 容 为 空 
Edit2 Text 空 文本 内 容 为 空 
Buttonl Caption 局 部 值 按钮 标题 
Button2 Caption 全 局 值 按钮 标题 
3) 程序 设计 
implementation // 关 键 分 析 
var 
GV: integer; // 定 义 全 局 变量 
{$R *.dfm} 
procedure TForml. FormShow( Sender: TObject); // 窗 体 显 示 事件 
begin 
GV: =10; // 全 局 变量 赋 初 值 
Editl. Text: = IntToStr(GV); 
Edit2. Text: = InttoStr(GV); 
end; 
procedure TForm1. Button1Click(Sender: TObject); //" 局 部 值 "按钮 
var 
LV: integer; 
begin 
Lv: =10; 
Lv: =Lv+1; // 局 部 变量 值 加 1 


Edit2. Text: = InttoStr(LV); 
end; 
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Procedure TForm1. Button2Click(Sender: TObject); //" 全 局 值 "按钮 
本 =GV+1; // 全 局 变量 值 加 1 
Editl.Text: = IntToStr(GV); 

end; 

4) 程序 分 析 

关键 分 析 : 在 单元 的 实现 部 分 声明 了 全 局 变量 GV ,来 验证 该 值 一 直 保存 直到 程序 终止 。 

“局 部 值 ” 按 钮 单 击 事件 : 给 局 部 变量 LV 赋值 ,并 使 局 部 变量 值 加 1, 显 示 在 编辑 框 中 。 

“全 局 值 ” 按 钮 单 击 事件 : 全 局 变量 加 1, 并 显示 在 编辑 框 Editl 中 。 

该 程序 的 显示 结果 为 ,如 果 一 直 不 断 地 单 击 “ 全 局 值 ” 按 钮 ,编辑 框 中 的 值 一 直 增 加 ,而 一 
直 不 断 地 单 击 “ 局 部 值 ” 按 钮 ,结果 一 直 为 11。 


小 结 

结构 化 程序 设计 中 经 常 涉及 过 程 与 函数 的 处 理 。 过 程 与 函数 最 重要 的 区 别 在 于 系统 执行 

指令 后 是 否 有 返回 值 。4. 1 节 讲 述 了 过 程 的 分 类 、 定 义 及 应 用 ,其 中 ,Delphi XE8 支持 三 种 类 

型 的 过 程 : 标准 过 程 、 事 件 过 程 及 自 定义 过 程 。4.2、4. 3 节 介绍 了 函数 的 定义 、 分 类 以 及 内 部 

函数 的 使 用 方法 。4. 4 节 重 点 介绍 了 参数 的 分 类 及 传递 方式 。 最 后 ,描述 了 程序 设计 中 变量 
的 使 用 ,其 中 包括 变量 的 分 类 ,变量 的 作用 域 等 知识 。 


习 题 


4-1 分 别 叙述 Delphi XE8 所 支持 的 三 类 过 程 。 

4-2 ”函数 与 过 程 的 区 别 是 什么 ? 

4-3 ”函数 定义 的 一 般 语法 格式 是 什么 ? 

4-4 什么 是 内 部 函数 ? 

4-5 描述 形 参与 实 参 的 区 别 与 联系 。 

4-6 区 别 按 值 参数 传递 和 按 地 址 参数 传递 。 

4-7 局 部 变量 与 全 局 变量 的 区 别 是 什么 ? 

4-8 过 程 定 义 的 一 般 语 法 格式 是 什么 ? 

4-9 编写 一 简易 计算 器 ,能 进行 加 减 乘除 积 混合 运算 ， 
如 图 4-8 所 示 。 


cE 
a 
癌 
加 


图 4-8 简易 计算 器 
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第 2 章 介 绍 了 Object Pascal 语言 的 5 种 标准 数据 类 型 : 整 型 . 实 型 .字符 型 .字符 串 型 及 
布尔 型 等 ,这 些 数据 类 型 无 须 声明 即 可 在 程序 中 直接 使 用 。 在 实际 应 用 中 ,这 些 数据 类 型 还 不 
能 完整 地 表达 在 现实 世界 中 的 所 有 人 情况。 为 了 弥补 这 种 不 足 , 必 须 建立 新 的 数据 类 型 来 表示 
现实 问题 中 的 变量 。Object Pascal 语言 还 允许 使 用 自 定义 的 数据 类 型 及 其 他 一 些 数据 类 型 ， 
本 章 将 给 予 一 一 介绍 。 


5.1 枚 举 类 型 


在 进行 程序 设计 时 ,可 能 会 碰 到 某 类 数据 ,这 些 数据 的 个 数 总 是 有 限 的 ,而 且 可 以 一 一 列 
举 , 例 如 ,教师 的 职称 可 以 分 为 教授 、 副 教授 .讲师 、 助 教 等 ,在 表示 这 一 类 数据 时 ,可 以 用 数值 
或 字符 串 来 表示 , 即 用 数值 表示 时 ,用 1 表示 教授 ,2 表示 副教授 ,以 此 类 推 。 用 字符 串 表 示 
时 ,可 用 “professor” 表 示 教 授 , 以 此 类 推 。 但 这 两 种 表示 方法 都 存在 缺点 ,使 用 数值 表示 很 不 
直观 ,使 用 字符 串 表 示 则 需要 较 多 的 内 存 。 为 此 ,Object Pascal 提供 了 一 种 新 的 数据 类 型 即 枚 
举 类 型 ,可 以 较 方便 地 处 理 这 些 数 据 。 
5.1.1 枚 举 类 型 的 定义 与 变量 声明 

1. 枚 举 类 型 的 定义 

枚 举 类 型 使 用 一 组 有 限 的 标识 符 来 表示 一 组 连续 的 整数 常数 , 它 的 值 是 有 限 的 。 枚 举 类 
型 的 定义 格式 如 下 : 

type 

< 类 型 名 称 > = (< 标识 符 1>, < 标识 符 2 >, … ,< 标识 符 n>); 

说 明 : 

(1) type 是 系统 的 保留 字 , 表 示 定 义 高 级 数据 类 型 的 开始 。 

(2) 二 类 型 名 称 二 是 用 户 定义 的 枚 举 类 型 名 称 。 

(3) 达标 识 符 二 表示 该 类 型 数据 中 的 元 素 , 圆 括号 中 列 出 了 该 类 型 数据 的 所 有 取 值 ,这 些 
取 值 又 称 为 枚 举 常 量 。 

(4) 每 个 枚 举 常量 必须 是 标识 符 , 而 且 不 能 是 其 他 的 数据 类 型 。 

(5) 同一 个 枚 举 常 量 不 允许 重复 出 现在 同一 个 枚 举 类 型 定义 中 ,也 不 允许 同时 出 现在 不 
同 的 枚 举 类 型 定义 中 。 

例如 ,下 面 的 代码 定义 了 具有 三 个 元 素 的 枚 举 类 型 Color: 


type 
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Color = (Red, Green, Blue); 

2. 枚 举 类 型 变量 的 声明 

对 于 已 经 定义 好 的 枚 举 类 型 ,可 以 进行 枚 举 变量 的 声明 ,其 声明 的 格式 与 其 他 类 型 变量 的 
声明 完全 相同 ,例如 : 

Var C: Color; 

该 语句 声明 了 一 个 上 述 枚 举 类 型 Color 的 变量 C。 
5.1.2 枚 举 类 型 的 运算 

从 本 质 上 看 , 枚 举 类 型 就 是 用 一 些 枚 举 常量 来 表示 一 组 连续 的 整数 。 这 些 枚 举 常量 就 像 
符号 常量 ,是 整数 的 形象 化 表示 。 虽 然 不 能 对 枚 举 常 量 直接 进行 算术 运算 ,但 是 可 以 对 枚 举 常 
量 进行 关系 运算 或 通过 函数 进行 间接 的 算术 运算 。 

1. 使 用 函数 

Object Pascal 为 枚 举 类 型 定义 了 5 个 枚 举 函数 ,可 以 进行 特殊 的 运算 ,如 表 5-1 所 示 。 

表 5-1 常用 枚 举 函 数 


枚 举 函 数 功能 调用 格式 
Ord 求 枚 举 系 数 Ord( 枚 举 常量 或 枚 举 变 量 ) 
Pred 求 前 趋 值 Pred( 枚 举 常量 或 枚 举 变量 
Succ 求 后 继 值 Succ( 枚 举 常量 或 枚 举 变量 ) 
Low 求 第 一 个 枚 举 常量 Low( 枚 举 类 型 名 ) 
High 求 最 后 一 个 枚 举 常量 High( 枚 举 类 型 名 ) 
说 明 : 


(1) 枚 举 类 型 定义 语句 中 列 出 的 每 一 个 枚 举 常量 都 对 应 一 个 唯一 的 序数 (整数 ) , 称 为 枚 
举 序数 ,在 默认 情况 下 , 列 出 的 第 一 个 枚 举 常 量 对 应 枚 举 系数 0, 以 后 依次 为 1、2、3、…。 

(2) 在 定义 枚 举 类 型 时 , 排 在 某 枚 举 常 量 前 一 位 的 枚 举 常 量 称 为 该 枚 举 常量 的 前 趋 值 ,后 
一 位 的 称 为 后 继 值 。 

(3) 枚 举 类 型 的 第 一 个 枚 举 常量 没有 前 趋 值 , 最 末 一 个 枚 举 常量 没有 后 继 值 。 

(4) 由 于 每 个 枚 举 常 量 都 对 应 一 个 枚 举 系数 ,所 以 枚 举 常量 的 序数 可 以 进行 算术 运算 , 结 
果 类 型 为 整 型。 但 枚 举 常量 之 间 不 能 直接 进行 算术 运算 ,需要 先 转换 为 枚 举 序数 。 

例如 ,在 下 面 的 定义 中 : 

type 

week = (sun, mon, tue, wed, thu, fri, sat); 

枚 举 常量 的 序数 依次 为 : 0、1、2、3、4、5、6,ord (fri) 的 值 为 5,pred (fri) 的 值 为 thu， 
succ(fri) 的 值 为 sat,low(week) 的 值 为 sun .high(week) 的 值 为 sat。 

2. 关系 运算 

由 于 每 个 枚 举 常 量 对 应 一 个 唯一 的 序数 ,因此 可 以 在 枚 举 常 量 之 间 进 行 关系 运算 。 如 在 
上 述 定义 中 ,sun<wed 的 值 为 真 (true) ,fri>sat 的 值 为 假 (false) 。 

3. 枚 举 类 型 的 应 用 

【 例 5.1】 显示 系统 日 期 .并 能 够 返回 昨天 、 今 天 和 明天 的 星期 数 。 
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1) 界面 设计 


使 用 Button、Edit、Label 组 件 即 可 设计 界面 ,如 图 5-1 所 示 。 


今天 日 期 是 :| 


昨天 


今天 


明天 


5-1 枚 举 类 型 的 应 用 操作 界面 


2) 属性 设置 
各 组 件 的 属性 设置 如 表 5-2 所 示 。 
表 5-2 各 组 件 属性 
对 象 属性 属性 值 说 明 
Label Caption 今天 的 日 期 是 : 标签 的 内 容 
Edit Text 空白 将 显示 系统 的 当前 日 期 
Caption 昨天 按钮 的 标题 ,将 显示 昨天 的 星期 数 
Buttonl 外 
Tag 0 标志 
Caption 今天 按钮 的 标题 ,将 显示 今天 的 星期 数 
Button2 = 
Tag 1 标志 
Caption 明天 按钮 的 标题 ,将 显示 明天 的 星期 数 
Button3 
Tag 2 标志 
3) 程序 设计 
implementation 
type 
week = ( sun, mon, tue, wed, thu, fri, sat); // 关 键 分 析 1 
{$R *.dfm} 
function mday(day: week): string; // 自 定义 星期 转换 函数 
begin 
case day of 
sun: mday: = ' 星 期 天 '; 
mon: mday: 星期 一 '; 
tue: mday: = ' 星 期 二 '; 
wed: mday: = ' 星 期 三 '; 
thu: mday: = ' 星 期 四 '; 
fri: mday: = ' 星 期 五 '; 
sat: mday: = ' 星 期 六 '; 
end; 
end; 
procedure TForml. FormCreate(Sender: TObject);  // 窗 体 创建 


var 
Year, month, day: word; 
begin 


第 5 章 ， 高 级 数据 类 型 【127 


decodedate(date, year, month, day) 7 
editl. text: =format('%d 年 %d 月 %d 日 ',[year,nmonth, day]); 
end; 


Procedure TForml. Button1Click(Sender: TObject); //" 昨 天 "按钮 


Var 
today, yesterday, tomorrow: week; // 声 明 枚 举 类 型 变量 
n: integer; 

begin 
n: = dayofweek(now); // 关 键 分 析 2 
case n of 

1: today: = sun; // 为 枚 举 类 型 变量 赋值 
2: today: = mon; 
3: today: = tue; 
4: today: = wed; 
5: today: = thu; 
6: today: = fri; 
7: today: = sat; 
end; 


if today = low(week) then 
yesterday: = high(week) 
else 
Yesterday: = pred(today); 
iftoday = high(week) then 
tomorrow: = low(week) 
else 
tomorrow: = succ(today); 
button1. Caption: = ' 昨 天 '; 
button2. Caption: = ' 今 天 '; 
button3. Caption: = ' 明 天 '; 
case( sender as tbutton). Tag of // 关 键 分 析 3 
0: button1. Caption: = ' 昨 天 是 '+ mday(yesterday); 
1: button2. Caption: = ' 今 天 是 '+ mday(today); 
2: button3. Caption: = ' 明 天 是 '+ mday(tomorrow); 
end; 
end; 


4) 程序 分 析 

关键 分 析 1: 枚 举 类 型 的 定义 及 枚 举 变量 的 声明 。 将 一 周 的 7 天 定义 成 枚 举 类 型 week。 
设 今天 (today) 、 昨 天 (yesterday) 和 明天 (tomorrow) 为 枚 举 类 型 week 的 变量 。 即 输入 如 下 类 
型 定义 : 

type 

week = (Sun, Mon, Tue, Wed, Thu, Fri, Sat); 

关键 分 析 2: 若干 函数 的 应 用 。 通 过 函数 dayofweek 得 到 一 个 整数 序号 ,再 通过 case 语 
句 将 该 序号 所 对 应 的 枚 举 元 素 赋值 给 today ,然后 根据 today 的 值 ,用 pred 和 succ 两 个 函数 分 
别 确定 yesterday 和 tomorrow 的 值 。 最 后 再 利用 case 语句 输出 所 对 应 的 星期 数 。 

关键 分 析 3: 在 对 象 观察 器 (Object Inspector) 中 依次 选择 Button2 和 Button3 ,并 在 事件 
(Event) 选 项 卡 中 选择 事件 OnClick, 从 事件 名 称 右边 的 下 拉 列 表 中 选择 已 经 建立 的 事件 过 程 
名 ButtonlClick ,使 之 共享 一 个 事件 过 程 代码 。 
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5.2 子 界 类 型 


在 实际 应 用 中 ,许多 变量 的 取 值 都 有 一 定 范围 的 限制 ,如 每 年 的 月 份 在 1 一 12 之 间 , 每 月 
的 天 数 在 1 一 31 之 间 ,而 某 门 课程 成 绩 的 5 个 等 级 可 以 用 字母 A~~EE 表示 。 在 这 些 问题 中 , 数 
据 的 类 型 总 是 顺序 类 型 ,数据 的 取 值 范围 则 是 该 类 型 数据 取 值 的 一 部 分 。 在 Object Pascal 
中 ,这 种 具有 确定 的 数据 类 型 ( 称 为 基 类 型 ), 且 其 取 值 范围 确定 的 数据 定义 为 " 子 界 类 型 ”。 其 
中 的 基 类 型 必须 为 顺序 类 型 。 


5.2.1 子 界 类 型 的 定义 
子 界 类 型 的 定义 格式 如 下 ， 


type 
< 类 型 名 称 > = < 常量 1 >...< 常 量 2>; 
说 明 : 
(1) 二 类 型 名 称 二 是 用 户 定义 的 子 界 类 型 名 称 。 
(2) 去 常量 1 二 表示 子 界 类 型 的 下 界 , 即 最 小 值 , 志 常量 2 二 表示 子 界 类 型 的 上 界 , 即 最 大 
值 。 子 界 的 上 下 界 必 须 属 于 相同 的 顺序 类 型 , 即 它 们 应 同时 为 整 型 ,布尔 型 .字符 型 或 同一 个 
枚 举 类 型 。 
(3) 子 界 的 上 下 界 所 属 的 数据 类 型 即 为 子 界 的 基 类 型 , 若 子 界 的 基 类 型 为 标准 数据 类 型 
( 整 型 ,布尔 型 ,字符 型 ), 则 子 界 的 上 、 下 界 可 以 直接 使 用 该 类 型 常量 ,车 子 界 的 基 类 型 为 枚 举 
类 型 , 则 必须 先 定义 基 类 型 ( 枚 举 类 型 ), 青 定义 子 界 类 型 。 
(4) 子 界 的 上 界 必须 不 小 于 下 界 。 
例如 : 
type 
month=1..12; 
week = (sun, mon, tue, wed, thu, fri, sat); 
workday = mon. . fri; 
子 界 类 型 所 对 应 的 序数 与 其 基 类 型 相关 , 即 下 界 常 量 在 子 界 类 型 中 对 应 的 序数 就 是 其 在 
基 类 型 中 的 序数 ,其 他 以 此 类 推 ,直至 上 界 。 


5.2.2 子 界 类 型 变量 的 声明 


对 于 已 经 定义 好 的 子 界 类 型 ,可 以 进行 子 界 变量 的 声明 ,其 声明 格式 与 其 他 类 型 变量 的 声明 
完全 相同 ,如 下 面 的 代码 声明 了 一 个 上 述 子 界 类 型 month 的 变量 ml 和 workday 类 型 的 变量 wl: 


var 
ml: month: 
wl: workday: 


也 可 以 不 经 过 类 型 定义 ,而 直接 声明 子 界 类 型 的 变量 : 


var 
ml,m2: 1..12; 
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5.2.3 子 界 类 型 的 运算 


子 界 类 型 所 允许 的 运算 与 其 基 类 型 所 允许 的 运算 完全 相同 ,如 基 类 型 为 整 型 的 子 界 类 型 
变量 可 以 进行 算术 、 关 系 等 运算 ,而 基 类 型 为 枚 举 类 型 的 子 界 类 型 变量 仅 能 进行 关系 运算 。 

【 例 5.2】 由 用 户 输入 一 个 年 份 (在 1950 一 2050 之 间 ) ,判断 该 年 是 否 为 头 年 。 

1) 界面 设计 

使 用 Button、Edit、Label 组 件 即 可 设计 界面 ,如 图 5-2 所 示 。 


GF 


请 输入 一 个 年 份 (1950 一 2050) : 


Ee 


5-2 子 界 类 型 的 应 用 操作 界面 


2) 属性 设置 
各 组 件 的 属性 设置 如 表 5-3 所 示 。 
表 5-3 各 组 件 属性 
对 象 属性 属性 值 说 明 
Label Caption 请 输入 一 个 年 份 (1950 一 2050): 标签 的 内 容 
Editl Text 空白 输入 年 份 
Edit2 Text 空白 判断 结果 
Buttonl Caption 是 不 是 疼 年 ? 按钮 的 标题 
Button2 Caption 清除 按钮 的 标题 
3) 程序 设计 
procedure TForml. Button1Click(Sender: TObject); //" 是 不 是 头 年 "按钮 
type // 关 键 分 析 1 
leap = 1950. .2050; 
var 
leapyear: leap; 
inyear,a,b,c: integer; 
begin 
inyear: = strtoint(editl. text); 
leapyear: = inyear; // 关 键 分 析 2 
a: = leapyear mod 4; // 关 键 分 析 3 


b: = leapyear mod 100; 
c: = leapyear mod 400; 
edit2. text: = ' 不 是 '; // 根 据 计 算 结 果 进 行 判断 ,并 输出 
if (a= 0) and (b<>0) then 
edit2. text: = ' 是 '; 
if c=0 then 
edit2. text: = ' 是 '; 
end; 


procedure TForm1. Button2Click(Sender: TObject); //" 清 除 "按钮 
begin 
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edit1. text: = 
edit2. text: = 

end; 

4) 程序 分 析 

关键 分 析 1: 子 界 类 型 定义 和 声明 ,必须 首先 用 关键 字 type 定义 子 界 类 型 ,然后 在 var 变 
量 声明 中 进行 相关 类 型 变量 的 声明 ,本 例 定义 了 一 个 基 类 型 为 整 型 的 子 界 类 型 leap ,并 声明 了 
一 个 leap 的 变量 leapyear。 

关键 分 析 2: 子 界 类 型 的 赋值 ,代码 行 leapyear: 二 inyear; 将 用 户 输入 的 年 份 赋值 给 子 界 
变量 leapyear。 

关键 分 析 3: 子 界 类 型 的 运算 ,因为 子 界 类 型 leap 的 基 类 型 是 整 型 ,所 以 子 界 变量 
leapyear 可 以 参加 整 型 的 运算 。 要 确定 一 个 年 份 是 否 为 国 年 ,需要 将 该 年 份 值 分 别 整 除 4、100 
和 400, 然 后 再 根据 求 出 的 余数 来 进行 判断 ,mod 关键 字 表示 整数 类 型 的 求 余 数 运算 。 

关键 分 析 4: 根据 运算 结果 进行 判断 并 输出 ,首先 假设 输入 的 年 份 leapyear 不 是 关 年 ,所 
以 在 编辑 框 edit2 中 显示 “不 是 ”, 然 后 判断 leapyear 可 能 为 头 年 的 两 种 情况 。 

第 一 种 情况 : leapyear 能 被 4 整除 , 即 a 二 0, 并 且 (and)leapyear 不 能 被 100 整除 , 即 
b=>0。 

第 二 种 情况 : leapyear 能 被 100 整除 , 即 b=0 并 且 (and)leapyear 能 被 400 整除 , 即 c==0。 

当 满 足 上 述 两 种 情况 之 一 时 ,leapyear 是 半年 ,在 编辑 框 edit2 中 显示 “是 ”。 

此 处 代码 段 涉 及 整 型 的 关系 运算 : 等 于 (二 ) 不 等 于 (一 ), 以 及 人 逻辑 运算 与 (and) ,还 涉 
及 if 选择 语句 。 


Ll 


5.3 集合 类 型 


Pascal 是 少数 几 种 将 集合 作为 内 部 数据 类 型 的 程序 设计 语言 之 一 。 集 合 结构 与 数学 上 的 
集合 类 似 , 是 指 具有 相同 性 质 的 对 象 的 全 体 ,例如 ,自然数 集 合 、 英 文字 母 集合 等 。 构 成 集合 的 
每 个 对 象 称 为 集合 的 元 素 ,在 理解 集合 的 概念 时 ,要 注意 以 下 几 点 。 

(1) 集合 中 的 元 素 是 互 异 的 , 即 相 同 的 元 素 视 为 同一 个 元 素 。 

(2) 集合 中 的 元 素 是 无 序 的 , 即 {1,2,3,4) 与 {4,3,2,1) 是 同一 个 集合 。 

(3) 集合 元 素 个 数 不 能 超过 256 个 。 

(4) 元 素 与 集合 的 关系 是 “属于 ”或 “不 属于 ”, 二 者 必 取 其 一 且 仅 取 其 一 。 


5.3.1 集合 类 型 的 定义 
在 使 用 集合 类 型 之 前 ,必须 进行 类 型 的 定义 ,其 定义 格式 如 下 : 


type 
< 类 型 名 称 > = set of < 基 类 型 >; 
说 明 : 
(1) 二 类 型 名 称 二 是 用 户 定义 的 集合 类 型 名 称 。 
(2) 二 基 类 型 二 表示 集合 中 各 元 素 的 类 型 .可 以 是 字符 型 .布尔 型 . 枚 举 型 和 子 界 等 顺序 
类 型 ,不 能 是 整 型 . 实 型 和 其 他 的 构造 类 型 。 
(3) 若 一 基 类 型 过 为 枚 举 类 型 或 子 界 类 型 , 则 必须 先 定 义 该 基 类 型 ,再 定义 集合 类 型 。 
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例如 ,以 下 定义 是 正确 的 。 


type 
TCharSet = set of char; // 可 能 的 值 : # 0 - # 255 
TEnum = ( Monday, Tuesday, Wednesday, Thursday, Friday ) ; // 定义 一 个 枚 举 类 型 
TEnumSet = set of TEnum; // 基 类 型 为 枚 举 类 型 
TSubrangeSet = set of 1..10; // 可 能 的 值 : 1 - 10 
TAlphaSet = Set of 'A'.. 'z'; // 可 能 的 值 : 'A' 一 'z 


说 明 : 一 个 集合 最 多 只 能 有 256 个 元 素 。 另 外 ,只 有 有 序 的 类 型 才能 跟 关 键 字 set of, 因 
此 下 列 代码 是 错误 的 。 
type 
TIntSet = set of Integer; // 基 类 型 的 序数 值 超出 0 一 255 的 范围 
TStrSet = set of string; // 基 类 型 不 是 有 序 的 类 型 


集合 在 内 部 以 位 的 形式 存储 它 的 元 素 , 这 使 得 在 速度 和 内 存 利 用 上 更 有 效 。 集 合 如 果 少 
于 32 个 元 素 , 它 就 存储 在 CPU 的 寄存 器 中 ,这 样 的 效率 就 更 高 。 为 了 用 集合 类 型 得 到 更 高 的 
效率 ,集合 的 基本 类 型 的 元 素数 目 要 小 于 32。 

5.3.2 集合 变量 的 声明 


在 定义 了 集合 类 型 之 后 ,就 可 以 进行 集合 类 型 变量 的 声明 。 其 声明 格式 与 其 他 类 型 变量 
的 声明 完全 相同 ,如 下 面 的 代码 就 是 在 前 面 定 义 的 集合 类 型 的 基础 上 声明 了 一 个 集合 类 型 
TEnumSet 的 变量 Cl 


Var 
C1: TEnumSet; 


也 可 以 不 经 过 类 型 定义 ,而 直接 声明 集合 类 型 的 变量 : 


Var 
nl,n2: set of(Red, Blue, Green, Yellow, White, Black); 


5.3.3 集合 变量 的 取 值 


集合 变量 不 同 于 其 他 变量 , 它 不 是 一 个 单独 的 元 素 ,而 是 一 系列 元 素 的 一 个 集合 。 集 合 变 
量 的 取 值 称 为 集合 值 , 其 一 般 表 现形 式 如 下 : 


[< 元 素 1>,< 元 素 2 >, … ,< 元 素 n>] 


如 果 集 合 类 型 的 基 类 型 有 n 个 元 素 , 则 该 集合 类 型 变量 的 取 值 有 2" 个 ,其 中 包括 一 个 空 
集合 ([ ]) 。 例 如 


Var 
SubInt1: set of 1..3; 


则 集合 变量 SubIntl 的 取 值 可 以 是 下 列 的 任意 集合 ,注意 集合 中 元 素 的 互 异性 和 无 序 性 。 
[],[1],[2],[3],[1,2],[1,3],[2,3],[1,2,3] 

5.3.4 集合 类 型 的 运算 
集合 类 型 的 数据 可 以 进行 三 大 类 运算 : 一 类 是 集合 对 集合 的 并 、 交 、 差 运算 ,其 结果 为 集 
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合 值 ; 一 类 是 集合 的 关系 运算 ,其 结果 是 逻辑 值 ; 一 类 是 元 素 对 集合 的 “属于 ”运算 ,其 结果 也 
是 逻辑 值 。 已 知 两 个 基 类 型 相同 的 集合 SI 和 S2, 以 及 元 素 X, 则 集合 类 型 的 运算 法 则 如 
表 5-4 所 示 。 


表 5-4 集合 类 型 的 运算 法 则 


运算 名 称 ”表示 方式 运算 结果 是 否 满足 交换 律 
并 运算 Sl 十 S2 ”两 个 集合 中 所 有 不 重复 元 素 组 成 的 新 集合 是 ,Sl 十 S2=S2 十 S1 
交 运 算 Slx S2 ”两 个 集合 所 共有 的 元 素 组 成 的 新 集合 是 ,Sl * S2 一 S2 * S1 
差 运算 Sl 一 S2 ”所 有 属于 S1 但 不 属于 S2 的 元 素 的 集合 否 ,S1 一 S2 隆 S2 一 Sl1 


相等 运算 Sl 二 S2 ”如 果 S1 与 S2 所 包含 的 元 素 完全 相同 , 则 结 是 
果 为 True 否则 为 False 

不 等 运算 ”SI 一 >S2 如果 S1 与 S2 所 包含 的 元 素 完 全 不 同 , 则 结 是 
果 为 True, 否 则 为 False 

包含 运算 Sl>>=S2 如果 S2 中 的 元 素 都 在 S1 中 , 则 结果 为 否 
True, 否 则 为 False 

被 包含 运算 SI1<=S2 ”如果 Sl 中 的 元 素 都 在 S2 中 , 则 结果 为 否 
True, 否 则 为 False 

属于 运算 XinSl 如 果 元 素 X 与 集合 Sl 的 基 类 型 相同 , 且 被 否 
包含 在 Sl1 中 , 则 结果 为 True, 否 则 为 False 


集合 运算 符 具有 不 同 的 优先 级 ,如 表 5-5 所 示 。 
表 5-5 集合 运算 符 的 优先 级 


优先 级 运算 符 操作 数 类 型 结果 值 类 型 
高 . 集合 集合 
中 十 集合 集合 
低 ”=.<>.>=.< “集合 逻辑 
最 低 。 in 左 操作 数 为 元 素 , 右 操作 数 为 集合 迎 辑 


【 例 5.3】 输入 年 份 , 判 断 该 年 是 否 六 年 ,并 根据 选择 的 月 份 来 判断 是 什么 季节 和 该 月 有 
多 少 天 。 


1) 界面 设计 
使 用 Button、Edit、Label 和 ComboBox 框 组件 即 可 设计 界面 ,如 图 5-3 所 示 。 
Gen el 
请 往年 份 和 月 份 。 。 法。 年 未 本 闻 年 

Ei 该 月份 在 秋天 季 | 

= 议 月 寺 [0 天 

图 5-3 “集合 类 型 的 应 用 ”操作 界面 
2) 属性 设置 


各 组 件 的 属性 设置 如 表 5-6 所 示 。 


第 5 章 ， 高 级 数据 类 型 【133 


表 5-6 各 组 件 属性 


对 象 属性 属性 值 说 明 
GroupBoxl Caption 请 输入 年 份 和 月 份 组 合 框 的 内 容 
Labell Caption 年 标签 的 内 容 
Label2 Caption 月 标签 的 内 容 
Label3 Caption 该 年 标签 的 内 容 
Label4 Caption 头 年 标签 的 内 容 
Label5 Caption 该 月 份 在 标签 的 内 容 
Label6 Caption 季 标签 的 内 容 
Label7 Caption 该 月 有 标签 的 内 容 
Label8 Caption 天 标签 的 内 容 
Editl Text 2004 初始 值 
Edit2 Text 空白 判断 是 否 半年 
Edit3 Text 空白 判断 在 哪 一 季节 
Edit4 Text 空白 判断 有 多 少 天 
ComboBoxl Items 1、.2、、12 分 成 12 行 输入 表示 12 个 月 份 值 
Buttonl Caption 判断 按钮 的 标题 
Button2 Caption 清除 按钮 的 标题 
3) 程序 设计 
function leapyear(y: integer): string; // 偶 数 函 数 
begin 

if (y mod 4=0) and (y mod 100<>0)or(y mod 4=0) then 

leapyear: = ' 是 ' 
else 
leapyear: = ' 不 是 '; 

end; 
function ji(m: word): string; // 季 节 函 数 
type 

jijie= set of 1..12; 
var 

spring, summer, autumn, winter: jijie; 
begin 

spring: =[3,4,5] ; 

: =[6,7,8]; 

autumn: = [9,10,11]; 

winter: = [12,1,2]; 

if m in spring then j 

if m in summer then j 

if m in autumn then j 

if m in winter then ji: = ' 冬 天 '; 
end; 
procedure TForml. FormCreate( Sender: TObject); // 关 键 分 析 1 


var 
Year, month, day: word; 

begin 
decodedate( date, year, month, day); 
editl. Text: = inttostr(year); 
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combobox1. Text: = inttostr(month); 
end; 


procedure TForm1. Button1Click( Sender: TObject); //" 判 断 "按钮 
VarI 

ym,d: word; 
begin 

Y: = strtoint(editl. Text); 


edit2. text: =format('%s ",[ leapyear(y)]); 
m: = strtoint(comboboxl.Text); 
edit3. text: =format('%s ', [jijie(m)]); 
if m= 2 then 
证 leapyear(Y) = "是 ' then 
d: =29 
else 
d: =28; // 关 键 分 析 2 
if m in[1,3,5,7,8,10,12]then 
d: =31; 
if m in[4,6,9,11] then 
d: =30; // 关 键 分 析 3 
edit4. text: =format('%d “Lal); 
end; 
procedure TForml. Button2Click( Sender: TObject); //" 清 除 "按钮 
begin 
edit2. text: 
edit3. text: = 
edit4. text: 


end; 


procedure TForm]. EditiMouseMove( Sender: TObject; Shift: TShiftState; X, 

Y: Integer); // 编 辑 框 Editl 的 鼠标 移动 
begin 

(sender as tedit). SetFocus; 
end; 


procedure TForml. EditlKeyPress(Sender: TObject; var Key: Char); // Editl 中 键 按 下 
var 
j: set of char; 
begin 
和 
if not(key in j)then key: = #0; 
end; 


4) 程序 分 析 
关键 分 析 1: 集合 类 型 的 定义 和 声明 。 必 须 首先 用 关键 词 Type 定义 集合 类 型 ,然后 在 


Var 变量 声明 中 进行 相关 类 型 变量 的 声明 。 本 例 定义 了 一 个 基 类 型 为 子 界 类 型 的 集合 类 型 
jijie, 用 来 表示 一 年 的 12 个 月 ,并 声明 了 4 个 jijie 的 集合 变量 : Spring、Summer、Autumn、 


Winter 分 别 表 示 春 、 夏 、 秋 、 冬 季 所 包含 的 月 份 。 


关键 分 析 2: 集合 变量 的 赋值 。 集 合 变量 的 值 可 以 用 下 列 多 种 方式 来 表示 。 
(1) 列 出 所 有 的 元 素 , 中 间 用 逗号 分 隔 开 , 例 如 : [3,4,5]。 

(2) 若 集合 中 的 元 素 连 续 出 现 , 则 可 以 写 为 子 界 类 型 的 形式 ,例如 : [6..8]。 
(3) 若 集合 中 有 连续 的 也 有 不 连续 的 元 素 , 则 可 以 综合 表示 ,例如 : [12,1..2]。 
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关键 分 析 3: 集合 类 型 的 运算 。 当 获得 用 户 输入 的 月 份 m 后 ,将 根据 它 的 值 判断 属于 春 、 
夏 、 秋 \、 冬 哪 一 个 季节 ,并 做 出 相应 的 处 理 。 这 里 主要 涉及 “属于 ”运算 ,用 m in spring 来 判断 
用 户 输入 的 月 份 是 否 在 集合 spring 中 来 判断 是 否 在 春季 ,其 他 情况 以 此 类 推 。 属 于 运算 的 结 
果 是 逻辑 值 true 或 false,if 语句 再 根据 该 结果 进行 判断 。 


5.4 数组 与 记录 类 型 


数组 类 型 (Array) 是 一 些 具 有 相同 类 型 的 元 素 按 一 定 顺序 组 成 的 序列 。 数 组 中 的 每 一 个 
数据 元 素 都 可 以 通过 数组 名 来 存 取 , 它 们 被 顺序 安排 在 内 存 中 的 一 段 连续 的 区 域 中 。Object 
Pascal 提供 的 数组 分 为 静态 数组 和 动态 数组 。 而 记录 类 型 可 以 将 不 同 的 数据 集中 在 一 起 ,并 
作为 一 个 整体 进行 操作 。 下 面 分 别 予以 介绍 。 


5.4.1 静态 数组 


静态 数组 在 程序 初始 化 时 必须 分 配 内 存单 元 ,明确 其 固定 的 大 小 和 元 素 的 数据 类 型 。 

1. 一 维 静态 数组 

数组 通常 分 为 一 维 、 二 维和 多 维 数组 ,这 里 首先 从 最 简单 的 一 维 数组 来 说 明 静 态 数 组 的 声 
明 及 其 使 用 方法 。 在 Object Pascal 中 ,定义 一 维 静 态 数组 类 型 的 格式 为 : 


type 
< 数组 类 型 名 > = array[< 下 标 类 型 >]of < 基 类 型 >; 


定义 一 个 数组 类 型 如 下 : 


type 

Al = array[1..10] of Real; // 一 维 数组 A 
表示 定义 一 个 共有 10 个 元 素 , 元 素 下 标 从 1 到 10, 每 个 元 素 类 型 为 Real 类 型 ,类 型 标识 符 为 
Al 的 数组 类 型 。 数 组 类 型 标识 符 可 以 是 任何 合法 的 标识 符 ,Object Pascal 允许 的 下 标 类 型 为 
整数 类 型 .字符 类 型 布尔 类 型 . 子 界 类 型 枚 举 类 型 等 ,而 元 素 的 类 型 可 以 是 任意 数据 类 型 ,并 
且 在 同一 数组 中 ,所 有 元 素 的 数据 类 型 必须 相同 。 对 于 用 户 定义 的 数据 类 型 作为 下 标 类 型 ,在 
使 用 之 前 必须 声明 。 例 如 ,可 以 定义 一 个 下 标 为 枚 举 类 型 和 子 界 类 型 的 数组 类 型 ,经 过 数组 类 
型 声明 之 后 就 可 以 定义 数组 变量 。 


type 
Color = (red, green, blue); 
Msbr = 0. .10; 


MyArray = array [Color] of integer; 
Test]l = array[Msbr] of Color, 


其 中 ,MyArray 是 用 户 定义 的 数组 类 型 的 名 称 .Color 表示 枚 举 类 型 ,Testl 表示 子 界 类 型 。 


var 
Arrayl], Array2; MyArray; 
Tcolor; Testl; 
上 例 中 定义 了 两 个 数组 变量 arrayl 和 array2, 它 们 的 类 型 是 MyArray( 前 面 已 定义 为 数 
组 类 型 ) ,而 变量 Tcolor 定义 的 类 型 是 Testl 。 
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当然 ,也 可 以 把 数组 类 型 的 定义 和 数组 变量 的 定义 合 二 为 一 ,这 样 能 够 简化 程序 ,如 下 例 : 


"vi a Array[ 0. .100] of real; 
Tstl: Array[Boolean] of string; 
要 访问 数组 中 的 元 素 , 可 以 用 数组 名 加 方 括号 , 方 括号 内 是 元 素 的 下 标 值 ,如 arrayl[3]、 
array2[60] 等 。 
方 括号 内 的 下 标 值 必须 符合 数组 类 型 中 下 标 类 型 的 定义 ,其 类 型 必须 与 下 标 类 型 一 致 ,其 
值 在 下 标 取 值 的 范围 内 。 而 且 下 标 也 可 以 是 表达 式 。 
使 用 Object Pascal 提供 的 标准 函数 Low 和 High, 可 以 返回 一 个 数组 的 最 小 下 标 值 和 最 
大 下 标 值 ,而 函数 Length 可 以 返回 数组 的 长 度 。 
数组 类 型 在 经 过 声明 之 后 ,就 可 以 在 程序 体 中 使 用 该 类 型 声明 的 变量 。 
begin 
a =10.5; 
Tcolor[1]: = Blue; 


Tstl(True) : = ' 计 算 机 科学 与 工程 系 '; 


End; 


【 例 5.4】 利用 静态 数组 求 出 任意 10 个 数 中 的 最 大 值 及 最 小 值 。 
1) 界面 设计 
使 用 Button、Edit、Label 组 件 即 可 设计 界面 ,如 图 5-4 所 示 。 
中 SB 用 Eee 
显示 10 个 随机 数 ， 
41 97 295 43131 175159 180 172 977 
最 大 值 97 最 小 值 4 
图 5-4 “静态 数组 的 应 用 ”操作 界面 
2) 属性 设置 


各 组 件 的 属性 设置 如 表 5-7 所 示 。 
表 5-7 各 组 件 属性 


对 象 属性 属性 值 说 明 

Labell Caption 显示 10 个 随机 数 : 标签 的 内 容 

Label2 Caption 最 大 值 标签 的 内 容 

Label3 Caption 最 小 值 标签 的 内 容 

Editl Text 空白 显示 随机 产生 的 10 个 整数 
Edit2 Text 空白 显示 其 中 的 最 大 值 

Edit3 Text 空白 显示 其 中 的 最 小 值 
Buttonl Caption 确定 按钮 的 标题 


Button2 Caption 清除 按钮 的 标题 
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3) 程序 设计 
Procedure TForm1l. Button1Click(Sender: TObject); //" 确 定 "按钮 
var 
i, ma, mi: integer; 
a: array[1..10] of integer; // 关 键 分 析 1 
begin 
for i: =1to10 do 
begin 
randomize; // 关 键 分 析 2 
a[i]: = random(i* 100); // 关 键 分 析 3 
editl. Text: =editl.text+ inttostr(a[i])+"" 
end; 
ma: =a[1]; 
mi: =a[1]; 
for i: =2to10do 
begin 
if ma<=a[i] then ma: =a[i]; // 关 键 分 析 4 
if mi>=a[i] then mi: =a[i] 
end; 
edit2.Text: = inttostr(ma); // 输 出 最 大 值 
edit3.Text: = inttostr(mi); // 输 出 最 小 值 
end; 
procedure TForml. Button2Click( Sender: TObject); //" 清 除 "按钮 
begin 
editl. text: =""; 


edit2. text: ; 
edit3. text: = ?7 
end; 
4) 程序 分 析 


关键 分 析 1: 静态 数组 类 型 的 定义 和 声明 。 本 例 定义 了 一 个 一 维 静 态 数 组 类 型 a。 

关键 分 析 2: 静态 数组 元 素 的 赋值 。 本 例 利用 产生 的 10 个 随机 数 对 静态 元 素 进行 赋值 。 

关键 分 析 3: 生成 随机 数 的 方法 ,如 果 需 要 系统 自动 生成 随机 数 就 要 调用 random(x) 函 
数 ,其 作用 是 : 返回 一 个 大 于 或 等 于 0 并 且 小 于 x 的 随机 数 .如 果 省 略 x, 则 返回 一 个 大 于 或 等 
于 0 并 且 小 于 1 的 随机 数 。 在 调用 随机 函数 random() 之 前 必须 加 上 代码 randomize; 否则 ， 
每 次 重新 运行 程序 ,系统 生成 的 随机 数 都 是 相同 的 。 

关键 分 析 4: 静态 数组 的 运算 。 只 有 单个 数组 元 素 才 可 参加 运算 ,本 例 中 的 静态 数组 元 素 
参加 了 关系 运算 和 算术 运算 。 

2. 二 维 静 态 数组 

二 维 数组 是 指 一 个 一 维 数组 中 的 元 素 类 型 又 是 一 个 一 维 数组 ,其 一 般 形式 为 : 


type 
< 数组 标识 符 > = Array[< 下 标 类 型 1 >]of Array[< 下 标 类 型 2>]of < 基 类 型 >; 


也 可 以 把 上 述 形式 写成 下 面 的 形式 : 


type 
< 数组 标识 符 > = Array[< 下 标 类 型 1 >,< 下 标 类 型 2>]of < 基 类 型 >; 


这 两 种 格式 对 于 编译 器 来 说 完全 一 样 ,第 一 种 格式 可 以 理解 成 把 一 行 看 成 一 个 元 素 ,而 每 
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行 又 是 一 个 一 维 数组 的 递归 定义 。 第 二 种 格式 较 好 理解 ,因此 最 好 采用 第 二 种 格式 ,如 : 


type 
TArr = array[1. .10] of array [1..10] of integer; 
Tdoublearr = array[1..10,1..10]of integer 


现在 就 可 以 定义 二 维 数组 变量 ,如 下 : 
i tArr; 
P2: Tdoublearr; 
MyArrayl: Array[1..5,1..10]of real; 
其 中 ,MyArrayl 表示 一 个 有 5 行 10 列 的 数组 变量 ,可 以 把 二 维 数组 看 作 是 一 个 矩阵 。 
3. 多 维 静 态 数组 
多 维 静态 数组 的 一 般 格式 : 
type 
< 数组 标识 符 > = Array[< 下 标 类 型 1 >,< 下 标 类 型 2 >, … ,< 下 标 类 型 n>]of < 基 类 型 >; 
了 解 了 一 维 、 二 维 数组 的 声明 后 ,就 很 容易 理解 多 维 数组 的 声明 。 声 明 中 的 数组 类 型 标识 
符 、 下 标 类 型 和 基 类 型 的 含义 和 一 维 、 二 维 数组 相同 ,如 下 : 


type 
MY = arry[1..10,1..10,1..10]of integer; 


一 般 情况 下 ,用 户 常用 的 数组 不 超过 三 维 数组 ,用 到 三 维 以 上 的 数组 是 很 少 的 , Object 
Pascal 允许 用 户 定义 任意 维 数 的 数组 。 


5.4.2 动态 数组 


动态 数组 在 定义 和 声明 时 仅 指 定数 组 的 类 型 ,而 不 指定 数组 的 大 小 ,只 是 在 程序 设计 中 为 
程序 动态 地 开辟 存储 空间 。 

1. 一 维 动态 数组 

一 维 动态 数组 的 定义 格式 如 下 : 


type 
< 数组 类 型 名 > = array of < 基 类 型 > 


也 可 以 在 变量 声明 中 直接 声明 动态 数组 ,其 格式 为 : 


Var 


< 变量 名 >: array of < 基 类 型 >; 
动态 数组 的 声明 中 没有 给 出 数组 的 下 标 类 型 ,因此 具有 不 确定 的 大 小 。 在 程序 设计 中 , 动 
态 数组 的 大 小 通过 调用 标准 过 程 Setlength 来 明确 ,如 : 
var 
My: array of integer; 
beign 
Setlength(My, 10); 
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end; 
2. 多 维 动态 数组 
声明 多 维 动态 数组 采用 递归 定义 的 方式 ,如 下 : 


type 
< 数组 类 型 名 > = array of array of …array of < 基 类 型 >; 
var 


< 变量 名 >: < 数组 类 型 名 > 
或 者 采用 如 下 方式 定义 多 维 动态 数组 变量 : 


var 
< 变量 名 >: array of array of …array of < 基 类 型 >; 


例如 ,下 面 将 声明 一 个 二 维 动态 数组 变量 : 


type 
TMg = array of array of string; 
var 
Msgs: TMg 
或 者 采用 如 下 方式 : 
var 


Msgs: array of array of string; 


多 维 动态 数组 声明 后 ,使 用 Setlength 过 程 设 置 动态 数组 的 大 小 ,如 将 Msgs 设置 成 一 个 2 


行 3 列 的 数组 : 


Setlength(Msgs, 2, 3); 
动态 数组 的 下 标 最 小 值 默认 为 0, 则 Msgs 包括 的 数组 元 素 有 : 


Msgs [0,0], Msgs [0,1], Msgs [0,2], Msgs [1,0], Msgs [1,1], Msgs [1,2]. 


Object Pscal 允许 创建 行 的 长 度 不 等 的 动态 数组 ,如 将 上 述 的 Msgs 数组 设置 成 列 数 不 等 


的 数组 : 
Setlength(Msgs, 2) // 设 定 动态 数组 Msgs 的 行 数 为 2, 列 数 未 定 
Setlength(Msgs[0],2) // 设 定 第 0 行 的 列 数 为 2 
Setlength(Msgs[1],3) // 设 定 第 1 行 的 列 数 为 3 ”| 其 OD sg 
I1 
则 Msgs 数组 所 有 的 元 素 如 下 : 12 
123 
Msgs [0,0], Msgs [0,1], Msgs [1,0], Msgs [1,1], Msgs [1,2] 11234 
12345 
3. 多 维 动态 数组 的 应 用 123456 
建 一 个 三 角形 显示 出 来 。 1234567 
【 例 5 5 全 个 三 角形 矩阵 并 显示 出 来 | 
1) 界面 设计 123456789 
使 用 Button 和 ListBox 组 件 即 可 设计 界面 ,如 图 5-5 
2) 属性 设置 


各 组 件 的 属性 设置 如 表 5-8 所 示 。 图 5-5 动态 数组 的 应 用 操作 界面 
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表 5-8 各 组 件 属性 


对 象 属性 属性 值 说 明 
Forml Name sanjiao 窗 体 名 称 
ListBox Text 空白 显示 三 角形 矩阵 
Buttonl Name bt 按钮 名 称 
Button2 Caption 确定 按钮 的 标题 
Button3 Caption 清除 按钮 的 标题 
3) 程序 设计 
procedure Tsanjiao. btClick(Sender: TObject) ; //" 确 定 "按钮 
Var 

a: array of array of string; // 关 键 分 析 1 


i,j: integer; 
tempstr: string; 
begin 
listboxl.Clear; 
setlength(a, 10); 
for i: = low(a) to high(a) do // 关 键 分 析 2 
begin 
setlength(a[i],i); 
for j: = low(a[i]) to high(a[i]) do 
begin 
a[i,j]: = inttostr(j+1)+""; 
if i>0 then tempstr: = tempstr +a[i,j]; 
end; 
if i>0 then 
begin 
listboxl. Items. Add( tempstr); 
tempstr: = 
end; 


procedure Tsanjiao. Button1Click(Sender: TObject); //" 清 除 "按钮 
begin 
listboxl.Clear; 

end; 

4) 程序 分 析 

关键 分 析 1: 动态 数组 类 型 的 定义 和 声明 ,本 例 定义 了 一 个 二 维 的 动态 数组 类 型 ,注意 
动态 数组 的 维 数 由 关键 词 array of 的 个 数 决定 ,定义 时 数组 的 大 小 是 未 知 的 。 

关键 分 析 2: 确定 动态 数组 的 大 小 ,动态 数组 在 使 用 之 前 必须 确定 各 维 的 大 小 ,确定 大 小 
的 方式 是 调用 SetLength() 函 数 ,顺序 是 从 第 1 维 开始 ,依次 指定 ,动态 数组 各 维 的 下 标 值 都 
是 从 0 开始 的 。 


5.4.3 记录 类 型 


记录 类 型 (Record) 可 以 将 数据 类 型 不 同 的 数据 集中 在 一 起 ,并 作为 一 个 整体 进行 操作 。 
记录 类 型 跟 数 据 库 中 的 记录 概念 很 相似 。 
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1. 记录 类 型 的 定义 
记录 类 型 定义 的 格式 如 下 : 
type 

< 记录 类 型 名 > = Record 

< 域名 表 1 >: < 类 型 1 >; 

< 域名 表 2 >: < 类 型 2 >; 


< 域名 表 n>: < 类 型 n>; 
end; 
其 中 ,去 记录 类 型 名 二 是 用 户 定义 的 记录 类 型 的 名 称 ,去 域名 表 之 可 以 是 多 个 合法 的 域名 标识 
符 , 域 名 又 称 为 字段 名 ,二 类 型 二 可 以 是 任意 数据 类 型 。 同 一 个 记录 类 型 中 不 能 有 同名 的 字 
段 ,而 因为 作用 域 的 不 同 ,记录 内 的 字段 名 与 记录 外 的 标识 符 可 以 相同 。 

例如 ,需要 一 个 客户 登记 表 , 定 义 记 录 类 型 如 下 : 


type 
Customer = Record 

Custid: Integer; // 客 户 号 
Name: String[8]; // 客 户 姓 名 
Cpsl: Real; // 产 品 数 量 
Rddr: String; // 联 系 地 址 
IfPay: Boolean; // 是 否 付 款 

end; 


上 例 中 声明 了 一 个 Customer 类 型 的 记录 类 型 ,记录 由 5 个 字段 组 成 ,其 中 每 个 字段 都 有 
其 确定 的 标识 符 和 数据 类 型 ,它们 在 内 存 中 分 别 占用 不 同 的 区 域 , 不 同 字段 的 数据 类 型 可 以 相 
同 ,也 可 以 不 同 。 

对 于 定义 好 的 记录 类 型 ,可 以 声明 相应 的 记录 变量 ,例如 : 

var 

C1,C2: Customer; 

此 例 中 声明 了 两 个 Customer 类 型 的 变量 C1.C2。 

2. 记录 域 的 访问 

由 于 记录 类 型 中 各 字段 的 类 型 不 同 ,所 以 不 能 同时 访问 记录 的 多 个 字段 ,而 只 能 对 记录 的 
单个 字段 进行 访问 。 访 问 记录 字段 有 以 下 两 种 方法 。 

1) 记录 变量 名 限定 

为 了 标识 记录 字段 所 属 的 记录 变量 ,使 用 记录 变量 名 进行 限定 ,格式 如 下 : 


< 记录 变量 名 >.< 字 段 名 > 
则 为 记录 的 单个 字段 赋值 可 以 使 用 如 下 语句 : 


Cl1.Custid: =1; 

C2. IfPay: = True; 

2) 使 用 With 语句 

如 果 在 程序 语句 中 需要 经 常 访问 记录 的 字段 ,每 次 都 用 记录 变量 名 进行 限定 非常 麻烦 ,可 
以 使 用 With 语句 加 以 简化 。With 语句 格式 如 下 : 


142 。 pelphi 程序 设计 教程 (第 3 版 ) 


With < 记录 变量 名 > D0 < 语句 > 


其 中 ,一 语句 二 可 以 是 简单 语句 ,也 可 以 是 复合 语句 。 在 一 语句 二 中 字段 的 访问 不 需要 加 记录 
变量 名 进行 限定 ,例如 : 


With Cl do 
begin 
Custid: =2; 
Name: = 'ZHANG HUA'; 


Cpsl: = 78.967; 
IfPay: = True; 
Addr: = 'CHANGZHOU,JIANSU,CHINA'; 


end; 

【 例 5. 6 利用 数组 和 记录 类 型 编写 一 个 职工 工资 管 ERA 
理 系统 。 正名。 性别、 工资 。 奖 全 收入 

1D 界面 设计 号 |[ 归 | 区 | 区 

新 建 一 个 工程 ,在 窗 体 上 添加 5 个 Label 组 件 和 5 个 | 区 本 支 | 138 | ?000 3390 


ListBox, 各 组 件 的 属性 如 图 5-6 所 示 。 


2) 属性 设置 
各 组 件 的 属性 设置 如 表 5-9 所 示 。 图 5-6 ”记录 应 用 示例 操作 界面 
表 5-9 各 组 件 属性 
对 象 属性 属性 值 说 明 
Labell Caption 姓名 标签 的 标题 
Label2 Caption 性 别 标签 的 标题 
Label3 Caption 工资 标签 的 标题 
Label4 Caption 奖金 标签 的 标题 
Label5 Caption 收入 标签 的 标题 
3) 程序 设计 
procedure TForm1.FormCreate(Sender: TObject); 
type // 关 键 分 析 
shouru = record 
name: string ; 
sex: boolean; 
gz: real; 
jj: real; 
sr: real; 
end; 
worker = array[1..6] of shouru; 
var 
wk: worker; 
i: integer; 
begin // 对 记录 数组 变量 吃 进行 初始 化 
wk[1].name: = ' 贾 宝玉 ';wk[1]. sex: = true; wk[1].gz: =1200;wk[1].jj: =800; 
wk[2].name: = ' 林 黛 玉 ';wk[2]. sex: = false;wk[2].gz: =1300;wk[2].jj: =900; 
wk[3]. name: = ' 苹 宝钢 ';wk[3]. sex: = false;wk[3].gz: =1000;wk[3].jj: =600; 
wk[4].name: = ' 妙 玉 ';wk[4]. sex: =false;wk[4].gz: =1500;wk[4].jj: =1000; 


wk[5].name: = ' 王 照 凤 ';wk[5]. sex: = false;wk[5].gz: =1000;wk[5].jj: = 800; 
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for i: =1to5 do 
begin 
listboxl. Items. Add(wk[i]. name); 
if wk[i]. sex then 
listbox2. Items. hdd( ' 男 ') 
else 
listbox2. Items. Add( ' 女 '); 
listbox3. Items. Add(floattostr(wk[i].gz )); 
listbox4. Items. Rdd(floattostr(wk[i].jj )); 
wk[i].sr: =wk[i].gz+wk[i].jj; 
listbox5. Items. Add(floattostr(wk[i]. sr)); 
end; 
end; 


4) 程序 分 析 

关键 分 析 : 记录 类 型 的 定义 和 使 用 ,本 例 声明 了 一 个 由 5 个 域 Name、Sex、gz,jj\sr 组 成 的 
记录 类 型 shouru, 每 个 域 的 数据 类 型 根据 该 域 存储 的 数据 来 决定 。 

3. 记录 的 变 体 部 分 

前 面 讲 的 记录 的 字段 ,都 有 确定 的 表示 符 和 数据 类 型 ,但 现实 生活 中 ,往往 有 这 种 情况 。 
例如 ,在 一 张 个 人 户籍 登记 表 上 有 “” 曾 用 名 ”一 栏 , 如 果 填 表 人 有 ”和 曾 用 名 ”, 那 就 添上 此 项 ,如 果 
没有 就 空白 。 

为 了 描述 这 样 一 张 个 人 户籍 登记 表 , 在 声明 记录 类 型 时 就 要 用 到 记录 的 变 体 部 分 。 带 有 
变 体 部 分 的 记录 类 型 的 声明 格式 为 : 

type 

< 记录 类 型 名 > = Record 


< 域名 表 1 >: < 类 型 1 >; 
< 域名 表 2 >: < 类 型 2 >; 


< 域名 表 n>: < 类 型 n>; 

Case ”< 识别 字段 标识 符 >: < 识别 字段 类 型 > of 
< 常量 表 1 >: < 字段 列表 1 >; 
< 常量 表 2>: < 字段 列表 2 >; 


< 常量 表 n>: < 字段 列表 n>; 

end; 

声明 带 有 变 体 部 分 的 记录 类 型 ,应 注意 以 下 几 点 。 

(1) Case 前 面 的 声明 部 分 同 平常 的 记录 类 型 声明 一 样 ,但 如 果 记 录 域 中 含有 变 体 部 分 , 则 
变 体 部 分 应 位 于 记录 域 的 最 后 。 

(2) 变 体 部 分 中 识别 字段 标识 符 是 可 选 的 ,省 略 时 连同 “: ”号 一 起 省 略 , 在 同一 记录 域 中 
必须 是 唯一 的 。 识 别 字段 类 型 必须 是 顺序 类 型 ,如 果 是 枚 举 或 子 界 类 型 , 则 必须 事先 声明 。 其 
中 的 字段 列表 i 同 普通 的 记录 类 型 中 域名 表 的 声明 相同 。 其 功能 应 用 类 似 于 选择 结构 中 的 
Case 语句 。 

例如 ,下 面 的 记录 类 型 将 描述 一 个 户籍 登记 表 。 

type 

Hj = Record 


Name: string[8]; 
Sex: boolean 
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Age: integer; 
Case ifanothername: boolean of 
True: (anothername: string); 
False: (); 
end; 
在 上 例 中 用 ifanothername 判断 是 否 有 “ 曾 用 名 ”, 如 果 有 就 用 anothername 来 描述 曾 用 
名 ; 如 果 没 有 ,就 将 此 处 空白 。 


5.5 指针 类 型 


指针 是 一 种 特殊 的 数据 类 型 ,指针 类 型 (Pointer) 的 变量 称 为 指针 变量 。 指 针 变 量具 有 一 
般 变量 的 三 个 基本 要 素 , 即 变量 名 、 变 量 类 型 .变量 值 , 它 与 一 般 变 量 不 同 , 它 是 用 来 存放 其 他 
变量 内 存 地 址 的 一 种 变量 。 


5.5.1 指针 变量 的 声明 
可 以 先 定义 指针 类 型 ,再 声明 指针 变量 。 定 义 指针 类 型 的 语法 如 下 ， 


type 
< 指针 类 型 名 > = “< 基 类 型 > 


其 中 ,一 指针 类 型 名 二 是 用 户 定义 的 指针 类 型 的 名 称 ,一 基 类 型 二 可 以 是 基本 数据 类 型 ,如 整 
型 . 实 型 . 字 节 型 等 ,也 可 以 是 高 级 数据 类 型 ,如 集合 数组、 集合 等 类 型 。 例 如 : 


type 

Tr = “Integer; 

P1 = “Real; 

BytePtr = ^“Byte; 

StudentInfo = Record 
Name: String[10]; 
Age: Integer; 
Scores: Real; 

end; 

StuPtr =^ StudentInfo; 


上 例 中 ,定义 了 4 个 指针 类 型 。 其 中 ,Tr 是 一 个 指向 整 型 变量 的 指针 类 型 ,P1 是 一 个 指 
向 实 型 变量 的 指针 类 型 ,BytePtr 是 一 个 指向 字 节 类 型 的 指针 类 型 ; 而 StuPtr 是 指向 记录 类 
型 StudentInfo 的 指针 类 型 。 

对 于 定义 好 的 指针 类 型 可 以 进行 指针 变量 的 声明 ,例如 : 

var 


BP: BytePptr; 
WP: StuPtr; 


为 了 简化 程序 ,也 可 以 把 类 型 的 声明 和 变量 的 声明 合并 在 一 起 。 例 如 : 


var 
BP: “Btye; 


5.5.2 指针 变量 的 赋值 
与 普通 的 变量 一 样 ,一 旦 声明 了 指针 变量 ,编译 器 将 给 指针 变量 分 配 内 存单 元 ,但 内 存单 
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元 中 的 值 ( 所 指向 的 内 存 地址 ?尚未 确定 ,要 想 让 指针 指向 确定 的 地 址 ,需要 通过 赋值 操作 来 实 
现 。 为 指针 变量 赋值 的 格式 如 下 : 


< 指针 变量 名 >: = @< 标 识 符 > 


其 中 ,“@” 操 作 符 是个 一 元 操作 符 , 用 于 获取 操作 数 的 内 存 地 址 ,@ 后 面 的 操作 数 可 以 是 变量 、 
过 程 和 函数 等 。 
例如 ,首先 声明 两 个 变量 : 
黎 integer; 
p: “integer; 
则 编译 器 为 变量 m 和 p 分 别 分 配 一 块 内 存单 元 ,单元 中 的 值 尚 未 确定 。 若 在 程序 中 为 指针 变 
量 做 如 下 赋值 : 


p: = @n; 


则 指针 p 的 内 存单 元 中 存放 的 变量 值 是 变量 m 的 内 存 地 址 ,此 时 , 称 指针 p“ 指 向 "变量 m。 
为 指针 变量 p 赋值 以 后 ,可 以 用 “*P^” 来 表示 所 指向 的 内 存单 元 。 例 如 : 


p’: =6; // 将 整数 3 赋值 给 指针 p 所 指向 的 内 存单 元 
如 果 已 知 指针 p* 指 向 ”变量 m, 则 上 述 语句 与 下 列 语句 执行 结果 相同 : 
m: =6; 


5.5.3 无 类 型 指针 变量 


无 类 型 指针 是 指 指针 变量 在 声明 时 没有 指明 基 类 型 ,无 类 型 指针 在 声明 中 只 使 用 
Pointer, 其 声明 格式 如 下 : 


Var 


< 指针 变量 名 >: Pointer; 
例如 : 


var 
pAnyPoint: Pointer; 


无 类 型 指针 的 作用 是 它 可 以 指向 任何 类 型 , 即 指针 pAnyPoint 可 以 指向 任何 变量 类 型 。 
例如 : 


type 
Tpinte = “Integer; 
var 
L, M: integer; 
N: real; 
PanyPoint: Pointer; 
Pt: Tpinte; 
begin 
PanyPoint: = @N; //PanyPoint 指向 实 型 变量 
M: =100; 
PanyPoint: = @M; //PanyPoint 指向 整 型 变量 
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Pt: = Tpinte(PanyPoint); 
Dr pt 
end; 


但 是 对 于 无 类 型 指针 ,不 能 用 指针 变量 符 


Pt "的 形式 不 可 引用 其 动态 变量 。 要 引用 Pointer 类 型 
指针 指向 的 变量 ,应 先 将 其 转换 成 确定 的 类 型 。 - 
【 例 5.7】 由 用 户 输入 一 个 整数 n, 系 统 产生 一 个 | 请 给 入 “个 整数 m: 1 


小 于 n 的 随机 数 并 输出 。 

1) 界面 设计 

使 用 Button、Edit、Label 组 件 即 可 设计 
图 5-7 所 示 。 

2) 属性 设置 

各 组 件 的 属性 设置 如 表 5-10 所 示 。 


// 将 Pointer 类 型 指针 转换 成 Tpinte 类 型 指针 


号 后 加 的 形式 来 引用 它 的 动态 变量 。 如 类 型 
Qn NW ll 


系统 产生 的 整数 是 : 


Em | [J 


界面 ,如 
图 5-7 “指针 类 型 的 应 用 ”操作 界面 


表 5-10 各 组 件 属性 


对 象 属性 


属性 值 说 明 


Labell Caption 
Label2 Caption 
Editl Text 
Edit2 Text 
Buttonl Caption 
Button2 Caption 


3) 程序 设计 


请 输入 一 个 整数 n: 标签 的 内 容 
系统 产生 的 整数 是 : 标签 的 内 容 
空白 输入 整数 

空白 系统 产生 的 整数 
开始 按钮 的 标题 
清除 按钮 的 标题 


procedure TForml. Button1Click(Sender: TObject);  //" 开 始 "按钮 


type 
piny = ^integer; 
var 
pany: pointer; 
pl: pint; 
n: integer; 
begin 
n: = strtoint(editl. Text); 
pany: = @n; 
pl: =pint(pany); 
randomize; 
p1^: = random(n); 
edit2. text: = inttostr(pl “); 
end; 


// 关 键 分 析 1 


// 关 键 分 析 2 
// 关 键 分 析 3 


procedure TForml. Button2Click(Sender: TObject); ”//" 清 除 "按钮 


begin 
editl. Text: =""; 
edit2. Text: =""; 
end; 


4) 程序 分 析 


关键 分 析 1: 指针 类 型 的 定义 和 声明 ,本 例 定义 了 一 个 整 型 的 指针 类 型 pint, 声 明了 两 个 
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指针 变量 ,一 个 是 整 型 指针 pint 的 变量 p1, 另 一 个 是 无 类 型 指针 变量 pany。 

关键 分 析 2: 无 类 型 指针 的 操作 ,首先 是 赋值 操作 人 @ ,无 类 型 指针 可 以 指向 任何 类 型 的 变 
量 , 本 例 中 pany 指向 整 型 变量 n。 然 后 是 类 型 转换 和 赋值 操作 ,将 无 类 型 指针 pany 转换 为 整 
型 后 再 赋值 给 整 型 指针 p1 。 

关键 分 析 3: 指针 变量 的 引用 , 当 整 型 指针 变量 pl 指向 整 型 变量 n 时 ,可 以 用 pl1° 的 形式 
引用 n, 则 代码 行 bl ^: 二 Random(n); 的 作用 是 生成 一 个 小 于 n 的 随机 数 , 并 赋值 给 指针 pl 
所 指向 的 变量 。 因 为 指针 pl 指向 变量 n, 所 以 该 行 代码 运行 的 结果 是 : 变量 n 的 值 被 改变 ,而 
指针 pl 的 值 未 改变 ,仍然 是 变量 n 的 地 址 。 


5.5.4 字符 指针 类 型 


字符 指针 类 型 即 Pchar 数据 类 型 ,是 一 个 指向 以 NULL 字符 结尾 的 字符 串 的 指针 。 这 种 
类 型 主要 用 于 与 外 部 函数 如 在 Windows API 中 所 用 的 函数 兼容 。 在 Windows API 提供 的 许 
多 函数 中 ,字符 串 结束 的 标志 都 是 NULL, 所 以 在 Object Pascal 中 如 果 要 使 用 这 些 函 数 ,就 要 
用 到 Pchar 类 型 的 变量 。 

在 Delphi XE8 中 ,可 以 把 一 个 字符 串 直 接 赋 值 给 一 个 Pchar 类 型 的 变量 。 例 如 : 

var 

PB: Pehar; 
begin 
P: = 'Hello world'; 

end; 

上 面 赋值 语句 首先 申请 一 块 区 域 ,该 区 域 包含 字符 串 'Hello world' ,并 在 最 后 加 上 
NULL, 然 后 P 指向 这 块 内 存 区 。 上 述 程序 段 等 价 于 下 列 程序 段 : 


var 
P: Pchar; 
S: string; 
begin 
S: = 'Hellow world'+ #0; 
P: =@s; 
end; 


5.5.5 指针 变量 的 动态 使 用 


1. New 过 程 和 Dispose 过 程 

如 果 不 使 用 @ 运 算 符 为 指针 变量 赋值 , 则 指针 变量 称 为 动态 指针 变量 ,动态 变量 在 访问 之 
前 必须 首先 分 配 内 存单 元 。Object Pascal 提供 了 标准 过 程 New, 用 来 为 动态 变量 分 配 内 存单 
元 ,并 把 该 单元 的 地 址 赋 给 指针 变量 ,所 分 配 单元 的 大 小 由 指针 所 指 的 类 型 决定 。 如 果 应 用 程 
序 的 堆栈 中 已 没有 足够 的 空间 ,将 触发 EoutOfMemory 异常 。 调 用 New 过 程 的 格式 如 下 : 


New(< 指 针 变量 名 >); 

调用 过 程 New(p) 之 后 ,可 以 用 *p ^ 表示 一 个 整 型 的 动态 变量 ,对 其 进行 操作 。 

当 程 序 不 再 需要 使 用 动态 变量 时 ,就 调用 标准 过 程 Dispose 删除 New 所 创建 的 动态 变 
量 , 并 释放 所 分 配 的 内 存单 元 。 调 用 Dispose 过 程 的 格式 如 下 : 
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Dispose(< 指 针 变量 名 >); 
例如 : 


P: ^“integer; 
begin 
New(p); // 在 内 存 中 分 配 适合 存储 整 型 数据 的 单元 ,并 将 单元 地 址 赋 给 指针 p 
Pp*: =10; // 为 p 指 向 的 内 存单 元 赋值 
Dispose(p); // 删 除 动态 变量 ,释放 p 相应 的 内 存单 元 
end; 
2. GetMem 过 程 和 FreeMem 过 程 
标准 过 程 GetMem 用 于 为 动态 变量 申请 一 块 指定 大 小 的 内 存 区 域 ,并 把 该 区 域 的 起 始 地 
址 赋 给 指针 变量 。 如 果 应 用 程序 的 堆栈 中 已 没有 足够 的 空间 ,将 触发 EoutOfMemory 异常 。 
调用 GetMem 过 程 的 格式 如 下 : 
GetMem(< 指 针 变 量 名 >,< 区 域 大 小 >); 
如 果 程 序 不 再 需要 使 用 动态 变量 时 ,就 调用 标准 过 程 FreeMem 删除 GetMem 创建 的 动 
态 变量 ,并 释放 所 分 配 的 内 存单 元 。 调 用 FreeMem 过 程 的 格式 如 下 : 
FreeMem(< 指 针 变量 名 >); 
3. 动态 指针 的 应 用 举例 
动态 指针 类 型 ,常用 来 描述 动态 存储 结构 的 实现 。 动 态 存储 结构 中 较 常 用 的 有 链表 、 堆 
栈 . 队 列 等 存储 结构 。 可 以 把 堆栈 和 队列 看 成 特殊 的 链表 。 因 此 ,本 节 只 是 简单 介绍 一 下 如 何 
利用 指针 和 记录 来 实现 链表 结构 。 
链表 是 一 组 元 素 的 序列 ,在 这 个 序列 中 ,每 个 元 素 总 是 与 它 前 面 的 元 素 相 链接 (第 一 个 元 
素 除 外 )。 这 种 链接 关系 可 通过 指针 来 实现 。 如 图 5-8 所 示 就 是 一 个 链表 。 


地 址 1 一 | 3 12 19 7 
地 址 2 | 地 址 3 站 地 址 4 | Nil 


5-8 自然 数 链表 


链表 中 的 元 素 通常 称 为 节点 ,第 一 个 节点 称 为 表 头 ,最 后 一 个 节点 称 为 表 尾 。 指 向 表 头 的 
指针 称 为 头 指针 ,在 这 个 头 指针 中 存放 着 表 头 的 地 址 。 节 点 一 般 用 记录 来 描述 ,描述 节点 的 记 
录 至 少 含有 两 个 域 , 一 个 域 用 来 存放 数据 ,该 域 的 类 型 根据 要 存放 的 数据 类 型 而 定 , 称 为 值 域 ; 
另 一 个 域 用 来 存放 下 一 个 节点 的 地 址 , 称 为 指针 域 。 表 尾 不 指向 任何 节点 ,其 指针 的 值 
为 Nil。 

那么 节点 可 以 通过 记录 类 型 来 描述 ,并 且 记 录 类 型 里 包含 一 个 指针 域 ,链表 节点 的 声明 
如 下 。 

type 

Node = record 
data: string; 
next: “Node 

end; 

var 
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ead: “Node; // 定 义 头 节点 变量 Head; 
或 者 采用 如 下 方式 : 


type 
Link = ^Node 
Node = record 
data: string; 
next: “Node 
end; 
i Link; 
提示 : 在 上 面 的 声明 中 ,定义 指针 类 型 Link 时 用 到 了 记录 类 型 Node, 而 这 时 Node 尚未 
定义 ,其 定义 是 在 Link 的 声明 之 后 给 出 的 ,也 就 是 说 这 里 使 用 了 未 定义 的 标识 符 。 在 对 
Object Pascal 中 ,这 种 情况 只 对 指针 类 型 的 定义 适用 ,也 就 是 指针 所 指 的 对 象 可 以 后 定义 。 
4. 动态 指针 的 使 用 
【 例 5.8】 本 例 是 一 个 关于 在 链表 中 利用 指针 来 处 理学 生 信 息 的 程序 。 
1) 界面 设计 
创建 一 个 新 的 工程 ,在 窗 体 中 添加 6 个 Label 组 件 、 三 个 ListBox 组 件 \ 三 个 Edit 组 件 和 
三 个 Button 组 件 。 各 个 组 件 的 属性 设置 如 图 5-9 所 示 。 


| 姓名 性 别 班级 
村 宝玉 | | 南 “] | 计算 机 151 | 姓名 : 
Bi 
| | 人 
班级 : 
腹 辽 


图 5-9 链表 的 应 用 示例 操作 界面 
2) 程序 设计 


implementation 
{$R *.dfm} 
type 
Plink = "student; // 关 键 分 析 1 
student = record 
xm: string[8] ; 
xb: string[2]; 
bj: string[16]; 
next: plink; 
end; 
var 
Dtrec: plink; 


procedure TForml. FormCreate(Sender: TObject);  // 窗 体 生成 
begin 
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dtrec: = nil; // 关 键 分 析 2 


end; 


procedure TForm1. Button1Click(Sender: TObject); //" 添 加 "按钮 
var 
tempp, p: plink; 
begin 
new( tempp) ; // 关 键 分 析 3 
tempp “.xm: = editl.Text; 
tempp “.xb: = edit2.Text; 
tempp ^.bj: = edit3.Text; 
tempp .next: =nil; 
if dtrec = nil then 
begin 
dtrec: = tempp; 
end 
else 
begin 
p: = dtrec; 
while p^.next <>nil do // 关 键 分 析 4 
p: =p".next; 
p”.next: = tempp; 
end; 
editl. Clear; 
edit2. Clear; 
edit3, Clear; 
edit1. SetFocus; 
end; 


procedure TForml. Button2Click(Sender: TObject); //" 显 示 " 按 钮 
var 
p: plink; 
begin 
listboxl.Clear; 
listbox2.Clear; 
listbox3.Clear; 
p: = dtrec; 
if dtrec = nil then 
exit 
else 
repeat // 关 键 分 析 5 
listboxl. Items. Add(p .xm); 
listbox2. Items.add(p ”. xb); 
listbox3. Items. Add(p “.bj); 
Pp: =p’.next; 
until p= nil; 
end; 


Procedure TForm1. Button3Click(Sender: TObject); //" 删 除 "按钮 
var 

Pp,pl: plink; 

i: integer; 
begin 

if editl1. Text = '' then 

begin 
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showmessage( ' 请 输入 姓名 ,姓名 不 能 为 空 ! ) ; 
exit; 
end ; 
zi =0; 
p: = dtrec; 
if p=nil then 
showmessage( ' 链 表 为 空 ! ) 
else 
证 p^,xm = edit1.Text then // 关 键 分 析 6 
begin 
dtrec: =p"”.next; 
pP“^.next: =nil; 
p: = dtrec; 
end 
else 
begin 
pl: =p’.next; 
if pl <> nil then 


repeat 
if pl.xm= editl. Text then 
begin 
Pp’.next: = pl".next; 
pl: =p; 
i: =i+1; 
end 
else 
begin 
p: =p1; 
pl: =pl".next; 
end; 
until pl = nil; 
if i=0 then 
showmessage( ' 无 匹配 数据 ! ') ; 
end; 
end; 
3) 程序 分 析 


关键 分 析 1: 记录 指针 类 型 的 定义 ,本 例 定义 的 指针 类 型 Plink 比较 特殊 ,其 基 类 型 为 记 
录 类 型 Student, 而 Student 有 4 个 记录 域 ,其 中 记录 域 Next 的 类 型 又 是 指针 类 型 Plink, 即 每 
个 Student 节点 的 Next 域 为 一 个 指针 ,指向 另 一 个 Student 节点 。 

关键 分 析 2: 通过 FormCreate 事件 将 头 节 点 指针 变量 dtrec 初始 化 为 nil, 表 示 当 前 链表 
为 空 ,没有 任何 节点 ,如 果 有 第 一 节点 插入 时 ,将 dtrec 指针 指向 该 节点 。 

关键 分 析 3: 链表 的 初始 化 ,一 个 链表 至 少 有 一 个 节点 有 值 , 并 且 有 头 节 点 和 尾 节点 ,链表 
初始 化 过 程 如 下 : 创建 链表 的 第 一 个 节点 tempp ,并 将 Editl ,Edit2,Edit3 中 的 数据 分 别 赋 给 
tempp 的 xm、xb 和 bj 域 ,因为 只 有 一 个 节点 ,所 以 该 节点 的 next 域 指向 空 nil。 

关键 分 析 4: 生成 整个 链表 ,此 处 用 到 while 循环 语句 ,将 新 节点 插入 到 链表 尾 ,本 循环 的 
作用 就 是 找到 尾 节点 。 

关键 分 析 5: 链表 的 遍历 ,从 链表 的 头 节点 开始 ,逐个 访问 链表 的 各 个 节点 ,直到 链表 的 未 
节点 ,本 例 repeat 循环 语句 实现 链表 的 遍历 。 

关键 分 析 6: 删除 一 个 节点 ,如 果 本 条 件 成 立 说 明 要 删除 的 是 第 一 个 节点 ,在 删除 完 后 要 
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将 头 指针 指向 第 二 个 节点 。 
小 结 


本 章 主要 介绍 了 Object Pascal 语法 中 的 高 级 数据 类 型 ,主要 包括 枚 举 、 子 界 与 集合 类 型 、 
数组 与 记录 类 型 .指针 类 型 等 。 需 要 熟练 掌握 的 知识 点 包括 : 

(1) 枚 举 类 型 的 定义 与 运算 。 

(2) 子 界 类 型 的 定义 与 子 界 类 型 变量 的 运算 。 

(3) 集合 类 型 的 定义 与 集合 类 型 数据 的 运算 。 

(4) 静态 数组 和 动态 数组 的 应 用 。 

(5) 记录 类 型 的 声明 与 记录 域 的 访问 。 

(6) 指针 类 型 的 声明 与 指针 的 运算 。 

(7) 动态 存储 结构 的 实现 。 

本 章 所 涉及 的 高 级 数据 类 型 比较 复杂 ,希望 能 够 结合 实例 来 理解 本 章 内 容 。 


习 题 


5-1 数组 类 型 与 记录 类 型 有 何 区 别 和 联系 ? 

5-2 简 述 Delphi XE8 中 指针 类 型 的 作用 。 

5-3 举例 说 明 在 指针 类 型 中 运算 符 @ 和 *^ 的 应 用 。 

5-4 举例 说 明 字 符 型 指针 及 其 应 用 。 

5-5 ”如果 要 声明 高 级 数据 类 型 的 变量 ,首先 应 做 一 些 什么 工作 ? 


小 
ey 
媳 


键盘 、 刀 标 和 文件 编程 


键盘 和 鼠标 是 重要 的 输入 方式 ,学 习 使 用 Delphi XE8 进行 Windows 程序 设计 ,键盘 和 鼠 
标的 编程 是 不 可 或 缺 的 。 大 多 数 的 应 用 程序 都 需要 读 写 文件 ,对 文件 的 操作 是 不 可 避免 的 。 
在 本 章 中 将 介绍 Delphi XE8 中 的 键盘 .鼠标 和 文件 的 编程 。 


6.1 键盘 的 编程 


6.1.1 关于 键盘 


在 计算 机 发 展 过 程 中 ,一 开始 是 就 使 用 键盘 作为 输入 方式 ,在 DOS 环境 中 ,大 多 只 有 判断 
是 否 按 键 ,以 及 按 的 是 哪个 键 ,在 Windows 之 中 ,可 以 判断 按键 的 事件 有 三 种 ,如 图 6-1 所 示 。 
OnKeyDown OnKeyUp 
用 户 按 下 键 用 户 放 开 键 
TIME 了 OnKeyDown 和 OnKeyPress 


图 6-1 按键 事件 


在 这 些 事件 中 ,OnKeyDown 和 OnKeyUp 都 会 传人 用 户 单 击 的 Key 值 (word 值 ) ,可 以 
利用 这 些 值 ,来 判断 用 户 按 了 哪些 键 , 而 这 些 值 代表 了 Windows 中 的 Virtual Key Code。 而 
OnKeyPress 所 返回 的 是 一 个 Char 值 , 代 表 一 个 ASCII 字符 。 

ASCI 字符 和 Virtual Key Code 是 不 相同 的 ,因为 Virtual Key Code 中 有 代表 ASCII 的 
字符 ,但 ASCII 字 符 不 包含 全 部 的 Virtual Key Code, 因 为 Virtual Key Code 中 内 含 很 多 功能 
键 ,如 下 所 示 。 

VK_LBUTTON=1; VK_RBUTTON=2; VK_CANCEL=3; VK_MBUTTON= 4; 
VK_BACK=8; VK_TAB=9; VK_CLEAR=12; VK_RETURN=13; VK_SHIFT= $ 10; 
VK_CONTROL=17; VK_MENU =18; VK_PAUSE=19; VK_CAPITAL= 20; VK_ 
KANA=21; VK_HANGUL=2]1; VK_JUNJA=23; VK_FINAL=24; VK_HANJA=25; 
VK_KANJI=25; VK_CONVERT=28; VK_NONCONVERT= 29; VK_ ACCEPT = 30; 
VK_MODECHANGE=31; VK_ESCAPE=27; VK_SPACE= $20; VK_PRIOR=33; VK_ 
NEXT=34; VK_END=35; VK_HOME= 36; VK_LEFT=37; VK_UP=38; VK_RIGHT= 
39; VK_DOWN=40; VK_SELECT=41; VK_PRINT= 42; VK_EXECUTE=43; VK_ 
SNAPSHOT=44; VK_INSERT=45; VK_DELETE=46; VK_HELP=47; { VK_0 thru VK_ 
9 are the same as ASCII '0'thru '9'($30— $39)} {VK_A thru VK _Z are the same as 
ASCII 'A'thru 'Z'($41 — $5A)} VK_ LWIN=91; VK_RWIN=92; VK_APPS= 93; 
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VK_NUMPAD0=96; VK_NUMPAD1=97; VK_NUMPAD2=98; VK_NUMPAD3=99; 
VK_NUMPAD4= 100; VK_NUMPAD5 = 101; VK_NUMPAD6 = 102; VK_NUMPAD?7 = 
103; VK_NUMPAD8 = 104; VK_NUMPAD9=105; VK_MULTIPLY=106; VK_ADD= 
107; VK _ SEPARATOR = 108; VK _SUBTRACT = 109; VK _DECIMAL=110; VK_ 
DIVIDE=111; VK_F1=112; VK_F2=113; VK_F3=114; VK_F4=1]15; VK_F5=116; 
VK_F6=117; VK_F7=118s VK_F8=119; VK_F9=120; VK_F10=121; VK_F11=122; 
VK_F12=123; VK_F13=124; VK_F14=125; VK_F15=126; VK_F16=127; VK_F17= 
128; VK_F18=129; VK_F19=130; VK_F20=131; VK_F21=132; VK_F22=133; VK_ 
F23=134; VK_F24=135; VK_NUMLOCK=144; VK_SCROLL=145; VK_LSHIFT= 
160; VK_RSHIFT=161; VK_LCONTROL=162; VK_RCONTROL=163; VK_LMENU=164; 
VK_RMENU=165; VK_PROCESSKEY=229; VK_ATTN=246; VK_CRSEL=247; VK_ 
EXSEL=248; VK_EREOF=249; VK_PLAY=250; VK_ZOOM=251; VK_NONAME= 
252; VK_PAl1=253; VK_OEM _ CLEAR=254; 


6.1.2 键盘 常用 事件 


1. OnKeyDown 
当 按 下 键盘 上 的 任 一 个 键 时 ,就 会 触发 此 事件 。 如 字母 键 数字 键 、 功 能 键 (F1 一 F12)、 
Ctrl 键 Shift 键 或 Alt 键 等 ,都 将 产生 一 个 OnKeyDown 事件 。 
下 面 的 一 段 代 码 说 明了 OnKeyDown 事件 的 用 法 : 当 打印 的 时 候 在 窗 体 中 按 下 Esc 键 
后 ,取消 打印 作业 。 
procedure TForm]. FormKeyDown( Sender: TObject; varKey:Word; Shift:TShiftState) ; 
begin 
if (Key = VK_ESCRPE) and Printer.Printing then 
begin 
Printer. Abort; // 中 止 打印 
MessageD1g( ' 打 印 中 止 . ', mtInformation, [mbOK],0); 
end; 
end; 
2. OnKeyPress 
当 用 户 按 下 键盘 上 的 一 个 字符 键 ,如 字母 键 、 数 字 键 等 会 产生 一 个 OnKeyPress 事件 ,但 
是 单独 按 下 功能 键 (F1 一 F12) 、Ctrl 键 ,Shift 键 或 Alt 键 等 ,不 会 产生 OnKeyPress 事件 。 
下 面 的 一 段 代码 说 明了 OnKeyPress 事件 的 用 法 : 弹出 一 个 对 话 框 显示 所 按 下 的 键 。 
Procedure TForml. FormKeyPress( Sender:TObject; varKey:Char); 
begin 
MessageD1g( ' 你 按 下 了 '+ Key + ' 键 . ',mtInformation, [mbOK],0) ; ”// 显 示 按 下 的 键 
end; 
3. OnKeyUp 
当 按 下 键盘 上 的 任 一 个 键 后 松 开 时 ,都 会 产生 一 个 OnKeyUp 事件 。 对 于 功能 键 (F1 一 
F12) .Ctrl 键 、Shift 键 或 Alt 键 等 ,也 会 产生 一 个 OnKeyUp 事件 。 
下 面 的 一 段 代码 说 明了 OnKeyDown 事件 和 OnKeyUp 事件 的 用 法 : 当 键 按 下 时 先 保存 
窗 体 的 颜色 然后 再 改变 窗 体 的 颜色 , 当 键 弹 起 时 恢复 窗 体 的 颜色 。 
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Var 


FormColor:TColor; // 用 来 保存 窗 体 原来 的 颜色 
procedure TForml. FormKeyDown( Sender: TObject; varKey: Word; Shift :TShiftState) ; 
begin 
FormColor: = Forml.Color; 。”// 当 键 按 下 时 先 保 存 窗 体 的 颜色 然后 再 改变 窗 体 的 颜色 
Form1. Color: = clAqua; 


end; 
procedure TForml]. FormKeyUp( Sender :TObject; varKey:Word; Shift:TShiftState); 
begin 
Forml. Color: = FormColor; ”// 当 键 弹 起 时 恢复 窗 体 的 颜色 
end; 
程序 运行 后 ,在 窗 体 中 按 下 某 个 键 然 后 松 开 , 窗 体 的 颜色 会 随 之 改变 。 
【 例 6.1】 模拟 按 下 键盘 上 的 某 个 键 。 
有 时 在 一 些 应 用 程序 中 ,也 需要 模拟 在 键盘 上 按 下 某 个 键 的 过 程 ,这 可 以 通过 向 特定 对 象 


发 送 按键 事件 来 实现 。 
1) 界面 设计 已 模拟 按 下 键盘 上 的 某 个 键 
创建 一 个 新 的 工程 ,在 窗 体 中 添加 一 个 Edit 组 件 、 
一 个 Button 组 件 和 一 个 定时 器 Timerl 组 件 ( 位 于 日 
System 标签 页 ) ,用 户 界面 如 图 6-2 所 示 。 
2) 属性 设置 二 
各 组 件 的 属性 设置 如 表 6-1 所 示 。 图 6-2 “模拟 按 下 键盘 上 的 某 个 键 "界面 
表 6-1 窗 体 及 组 件 属性 设置 
对 象 属性 属性 值 说 明 
Editl Text 空白 等 待 模拟 输入 
Buttonl Caption 模拟 按 下 a 键 按钮 的 标题 
Timerl Interval 1000 触发 时 间 间 隔 
Timerl Enable True 该 组 件 有 效 
3) 程序 设计 


Pprocedure TForm1. Button1Click( Sender:TObject); // 模 拟 在 Editl 组 件 中 按 下 A 键 
begin 


PostMessage(Edit1. Handle, WM_KEYDOWN, 65, 0); // 关 键 分 析 1 
end; 
ProcedureTForml. TimerlTimer( Sender:TObject); // 模 拟 在 窗 体 Forml 中 按 下 Tab 键 
begin 
PostMessage(Form1. Handle, WM_KEYDOWN, VK_TAB,0); “// 关 键 分 析 2 
end; 
4) 程序 分 析 
程序 运行 时 ,可 以 看 到 窗 体 的 输入 焦点 在 不 断 地 变化 ,尽管 并 没有 在 键盘 上 按 下 Tab 键 。 


如 果 单 击 Buttonl 按钮 , 则 Editl 组 件 中 的 字符 串 会 自动 增加 一 个 字母 a。 
关键 分 析 1: 通过 向 Editl 对 象 发 送 按键 码 值 为 65( 即 A 键 ) 事 件 来 实现 对 Editl. text 值 
的 更 改 。 
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关键 分 析 2: 通过 向 Forml 对 象 发 送 按键 码 值 为 VK_TAB( 即 Tab 键 ) 来 实现 对 窗 体 的 
输入 焦点 的 变化 。 

4. 检测 功能 键 

在 组 件 的 OnKeyDown、OnKeyUp、OnMouseDown 和 OnMouseUp 等 事件 的 处 理 过 程 
中 ,有 一 个 TShiftState 类 型 的 变量 Shift,TShiftState 类 型 定义 如 下 : 

TypeTShiftState = setof(ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble); 

所 以 根据 Shift 的 值 就 可 以 判断 当 键 盘 上 的 键 按 下 时 Shift、Alt 和 Ctrl 键 的 状态 ,或 者 按 
下 鼠标 左 键 、. 中 键 时 的 状态 或 者 是 否 双击 了 按键 。 当 然 , 如 果 有 OnMouseDown 事件 发 生 了 ， 


而 又 不 是 按 下 左 键 和 中 键 , 则 按 下 的 一 定 是 右键 。 
【 例 6.2】 检测 Shift、Alt 和 Ctrl 键 是 否 按 下 。 


Q 检测 shif、Akfnctr 刍 LE 


1) 界面 设计 
创建 一 个 新 的 工程 ,添加 一 个 Label 组 件 。 ‖ 你 按 下 了 Alt 刍 
用 户 界面 如 图 6-3 所 示 。 
2) 属性 设置 
各 组 件 的 属性 设置 如 表 6-2 所 示 。 图 6-3 “检测 Shift、Alt 和 Ctrl 键 ? 界 面 
表 6-2 窗 体 及 组 件 属 性 设置 
对 象 属性 属性 值 说 明 
Labell Caption 请 等 待 检测 无 
3) 程序 设计 
Pprocedure TForml. FormKeyDown( Sender:TObject; varKey:Word; Shift :TShiftState); 
begin 
ifShift >= [ssShift]then // 关 键 分 析 


labell1. caption: = ' 你 按 下 了 Shift 键 '; 
ifShift> = [sshAlt]then 
labell.caption: = ' 你 按 下 了 Alt 键 '; 
if Shift >= [ssCtrl]then 
labell. caption: = ' 你 按 下 了 ctrl 键 '; 
end; 


procedureTForm1. FormMouseDown ( Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: 
Integer); 
begin 
if Shift >= [ssLeft]then 
labell. caption: = ' 你 单 击 鼠标 左 键 '; 
if Shift> = [ssMiddle]then 
1labell1. caption: = ' 你 单 击 鼠标 中 键 '; 
if Shift> = [ssDouble]then 
label1. caption: = ' 你 双击 了 鼠标 '; 
if ssRight in Shift then 
labell. caption: = ' 你 单 击 鼠 标 右键 '; 
end; 


4) 程序 分 析 
程序 运行 时 ,可 以 看 到 当 鼠 标 或 者 键盘 中 的 Shift、Alt 和 Ctrl 键 按 下 时 ,在 Labell 上 会 实 
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时 显示 出 来 。 

关键 分 析 : 假设 当 Shift 键 按 下 时 ,程序 会 触发 KeyDown 事件 ,同时 通过 参数 Shift 传送 
一 个 [ssShifbo] 值 ,Shift 的 取 值 为 TshiftState 集合 类 型 ,这 时 Shift 二 =[ssLeft] 条 件 成 立 ， 
labell 显示 按 下 了 Shift 键 ,其 他 条 件 和 本 情况 类 似 。 


6.2 鼠标 的 编程 


早期 的 计算 机 没有 鼠标 ,后 来 有 了 鼠标 ,但 只 有 一 个 键 并 且 鼠 标 一 开始 就 使 用 在 图 形 界面 
上 ,因此 当时 可 以 判断 鼠标 的 移动 . 按 一 下 或 按 两 下 。 而 现在 的 鼠标 ,不 但 多 了 右键 和 左 键 ,其 
至 中 键 和 滚轮 ,而 滚轮 也 有 上 下 移动 的 事件 。 所 以 鼠标 的 事件 相当 多 ,应 用 范围 也 很 广 ,常用 
鼠标 的 事件 有 以 下 几 种 。 

1. 常用 鼠标 事件 

(1) OnClick: 当 用 户 单 击 鼠标 任何 一 个 键 时 ,就 会 触发 此 事件 。 

(2) OnMouseDown: 当 用 户 单 击 鼠 标 时 ,就 会 触发 此 事件 。 

(3) OnMouseMove: 当 用 户 单 击 鼠 标 在 对 象 上 移动 时 ,就 会 触发 此 事件 ,但 停止 就 不 触 
发 机 

(4) OnMouseUp: 当 鼠 标的 某 个 按键 按 下 ,然后 松 开 后 会 产生 一 个 此 事件 。 

在 这 些 事件 中 ,OnMouseDown 和 OnMouseUp 都 会 触发 事件 ,但 是 在 用 户 单 击 时 ,可 能 
会 移动 鼠标 位 置 ,使 得 两 者 被 触发 的 对 象 是 不 同 的 ,但 OnClick 和 OnMouseDown 是 会 触发 在 
同一 个 对 象 上 的 。 

当 用 户 在 对 象 A 处 单 击 一 下 时 ,A 会 同时 触发 OnMouseDown OnClick .OnMouseUp、 
OnMouseMove 等 事件 。 

当 用 户 在 对 象 A 处 单 击 但 在 对 象 B 处 放 开 时 ,A 会 触发 OnMouseDown、OnMouseMove、 
OnMouseUp 等 事件 ; B 会 触发 OnMouseMove 事件 。 

因此 如 果 要 触发 OnClick 事件 ,就 必须 要 在 一 个 对 象 处 单 击 一 下 才 行 ,否则 只 会 
OnMouseDown、OnMouseMove、OnMouseUp 事件 。 

2. 拖 放 事件 

(1) OnDragDrop: 在 拖 电 事件 开始 时 会 触发 此 事件 。 

(2) OnDragOver: 当 拖 中 对象 跨 过 一 个 组 件 时 会 触发 此 事件 。 

(3) OnEndDrag: 当 拖 电 事 件 结束 后 会 触发 此 事件 。 

具体 过 程 如 下 。 

1) 拖 电 操 作 开始 

大 多 数 的 组 件 具有 DragMode 属性 ,表示 开始 拖 电 操作 的 方式 。DragMode 属性 的 默认 
值 为 dmManual, 也 就 是 要 在 被 拖 动 组 件 的 OnMouseDown 事件 的 处 理 过 程 中 调用 BeginDrag 
过 程 才 开始 拖 电 操作 。 如 果 将 DragMode 属性 设置 为 dmAutomation, 则 鼠标 左 键 在 被 拖 动 组 
件 上 按 下 后 就 自动 开始 拖 忠 操作 。 

2) 接受 拖 忠 操作 

当 拖 动 一 个 组 件 经 过 第 二 个 组 件 的 时 候 , 第 二 个 组 件 会 产生 一 个 OnDragOver 事件 。 在 
该 事件 的 处 理 过 程 中 有 一 个 布尔 类 型 的 参数 ,该 参数 的 设置 直接 影响 是 否 产 生 OnDragDrop 
事件 。 


Delphi 程序 设计 教程 (第 3 版 ) 


一 般 情况 下 ,在 OnDragOver 事件 的 处 理 过 程 中 ,根据 参数 Source 判断 拖 忠 操作 的 源 。 
如 果 是 可 以 接受 的 源 , 则 将 Accept 参数 设置 为 True; 否则 ,将 其 设置 为 False。 

3) 处 理 拖 忠 操作 

在 第 二 个 组 件 的 OnDragDrop 事件 的 处 理 过 程 中 ,根据 拖 忠 操作 的 源 做 一 些 相 应 的 处 理 。 

4) 拖 蝶 操 作 结束 

拖 忠 操作 完成 后 释放 鼠标 左 键 ,会 在 第 一 个 组 件 中 产生 一 个 OnEndDrag 事件 ,可 以 根据 
参数 Target 的 数值 进行 相应 的 处 理 。 如 果 参 数 Target 的 值 为 
nil, 则 表示 拖 忠 操作 没有 被 接受 ; 如 果 Target 的 值 不 为 nil, 则 
Target 的 值 就 是 接受 拖 忠 操作 的 组 件 。 

【 例 6.3】 鼠标 的 拖 动 操作 。 

1) 界面 设计 

创建 一 个 新 的 工程 ,添加 一 个 Edit 组 件 和 一 个 Memo 组 件 。 
用 户 界面 如 图 6-4 所 示 。 

2) 属性 设置 图 6-4 “鼠标 的 拖 动 操作 ”界面 

各 组 件 的 属性 设置 如 表 6-3 所 示 。 


表 6-3 窗 体 及 组 件 属性 设置 


对 象 属性 属性 值 说 明 
Editl Text Editl 输入 文本 
Memol Lines Memol 拖 忠 到 此 处 
3) 程序 设计 
Procedure TForml. EditlMouseDown ( Sender: TObject; Button: TMouseButton; Shift: shiftSta te; X,Y: 
Integer); 
begin 
if Button = mbLeft then // 条 件 成 立 开始 进行 拖 动 操作 
(Sender As TEdit). BeginDrag(False); // 关 键 分 析 1 
end; 


Procedure TForm1. MemolDragOver( Sender, Source: TObject;X, Y: Integer; State:TDragState; 
var Accept :Boolean); 


begin 
if Source Is Tedit then 
Rccept: = True; // 关 键 分 析 2 
end; 


Procedure TForm]. MemolDragDrop( Sender, Source: TObject;X, Y: Integer); 
begin 
if (Sender Is TMemo) and (Source Is TEdit) then 
(Sender Rs TMemo) .Lines. Add( (Source Rs TEdit).Text); // 关 键 分 析 3 
end; 


4) 程序 分 析 


程序 运行 后 ,可 以 在 Edit 组 件 中 输入 一 些 文字 ,然后 将 鼠标 移动 到 Edit 组 件 上 并 按 住 左 
键 , 拖 动 到 Memo 组 件 并 松 开 左 键 , 则 Edit 组 件 中 的 文字 就 被 添加 到 Memo 组 件 中 了 。 
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关键 分 析 1: 过 程 BeginDrag 具有 一 个 布尔 类 型 的 参数 ,如 果 该 参数 设置 为 False, 表 示 当 
按 下 鼠标 左 键 并 拖 动 一 小 段 距离 后 才 进 行 拖 忠 操作 ; 如 果 设 置 为 True, 表 示 当 按 下 鼠标 左 键 
后 立即 进行 拖 忠 操作 。 通 常 将 该 参数 设置 为 False。 

关键 分 析 2: 当 从 Editl 对 象 中 拖 动 进 入 时 ,可 以 接受 拖 动 操作 。 

关键 分 析 3: 如 果 是 从 Editl 对 象 中 拖 入 到 Memo 对 象 中 , 则 将 Edit 组 件 中 的 内 容 添 加 
到 Memo 组 件 的 最 后 。 

3. 深 轮 事件 

(1) OnMouseWheel: 当 用 户 单 击 滚轮 按钮 时 ,就 会 触发 此 事件 。 

(2) OnMouseWheelDown: 当 用 户 用 滚轮 按钮 向 下 转动 时 ,就 会 触发 。 

(3) OnMouseWheelUp: 当 用 户 滚轮 按钮 向 上 转动 时 ,就 会 触发 。 

上 述 事件 可 以 判断 鼠标 是 否 单 击 或 移动 ,但 也 可 以 利用 传人 参数 来 判断 是 由 鼠标 哪个 键 
来 触发 事件 的 。 鼠 标 传人 的 参数 ,如 表 6-4 所 示 。 


表 6-4 鼠标 传 入 的 参数 


参 数 事 件 
Sender 判断 是 由 哪个 对 象 触发 了 这 个 事件 
mbLeft 鼠标 左 键 被 单 击 
Button mbRight 鼠标 右键 被 单 击 
mbMiddle 鼠标 中 键 被 单 击 
ssShift Shift 键 被 单 击 
ssAlt Alt 键 被 单 击 
ssCtrl Ctrl 键 被 单 击 
Shift ssLeft 鼠标 左 键 被 单 击 
ssRight 鼠标 右键 被 单 击 
ssMiddle 鼠标 中 键 被 单 击 
ssDouble 鼠标 被 双击 
XorY 鼠标 目前 X 和 YY 的 位 置 
WheelDelta 滚轮 所 转动 的 角度 
MousePos 鼠标 目前 的 位 置 


6.3 文件 的 编程 


Delphi XE8 的 文件 分 为 文本 文件 、 有 类 型 文件 和 无 类 型 文件 。 在 一 般 情况 下 ,文件 仅 指 
磁盘 文件 ,外 设 如 打印 机 、 显 示 器 也 是 文件 ,这 里 的 文件 仅 指 磁盘 文件 。 在 有 关 文 件 的 标准 过 
程 和 函数 中 ,有 些 是 适用 于 所 有 文件 的 ,有 些 是 只 适用 于 个 别 文件 类 型 。 下 面 将 分 别 介绍 适合 
所 有 文件 的 基本 操作 函数 与 过 程 及 只 适合 于 某 种 文件 类 型 的 基本 操作 函数 的 过 程 。 


6.3.1 适合 于 各 种 文件 的 基本 操作 


1. 与 外 部 文件 联系 的 建立 与 中 断 
在 Delphi XE8 中 要 对 外 部 文件 进行 读 写 操作 前 后 , 需 将 该 外 部 文件 名 分 配给 一 个 文件 类 
型 的 变量 以 及 中 断 文件 变量 与 该 外 部 磁盘 文件 的 联系 。 下 面 说 明 这 两 种 使 用 方法 。 
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1) 文件 变量 与 外 部 文件 建立 联系 
通过 调用 AssignFile 过 程 可 以 初始 化 一 文件 变量 即 建立 文件 变量 (F) 与 外 部 文件 之 间 的 
联系 。AssignFile 过 程 的 声明 如 下 : 


procedure RssignFile(var F;FileName: string); 


其 中 ,F 是 一 个 文件 变量 , 它 可 以 代表 各 种 类 型 的 文件 。FileName 是 一 个 字符 串 表 达 式 ,代表 
某 个 特定 的 文件 名 。 在 调用 该 过 程 中 文件 变量 (F) 将 一 直 和 外 部 文件 相 联 系 ,直到 关闭 该 文 
件 变 量 。 在 由 FileName 所 指定 的 外 部 文件 中 ,同样 进行 对 该 文件 变量 的 各 种 操作 。 

调用 AssignFile 过 程 , 当 文件 名 参数 为 空 时 ,文件 变量 (F) 将 同 标准 输入 输出 文件 建立 联 
系 。 对 于 已 经 打开 的 文件 变量 ,不 要 使 用 该 过 程 调用 。 

2) 文件 变量 与 外 部 文件 中 断 联系 

通过 调用 CloseFile 过 程 可 以 中 断 文 件 变量 (F) 与 外 部 磁盘 文件 之 间 的 联系 。CloseFile 
过 程 的 声明 如 下 : 


Pprocedure CloseFile(var F); 


其 中 ,F 是 一 个 文件 类 型 的 变量 ,可 以 代表 各 种 文件 的 类 型 ,该 文件 可 以 由 读 方 式 打 开 、 写 方式 
打开 或 者 由 添加 方式 打开 。 在 对 同文 件 变量 相 联 系 的 外 部 磁盘 文件 修改 后 ,调用 CloseFile 过 
程 将 释放 文件 变量 ,并 关闭 该 外 部 文件 。 

2. 文件 的 打开 与 关闭 

在 对 文件 进行 读 写 操作 前 后 要 打开 或 关闭 该 文件 。 下 面 说 明 打 开 与 关闭 文件 的 各 种 
方法 。 

1) 以 读 方 式 打开 文件 (Reset) 

通过 调用 Reset 函数 可 打开 一 个 已 经 存在 的 文件 。 如 果 该 文件 是 一 个 文本 文件 ,那么 文 
件 变量 (F) 的 属性 为 只 读 。 如 果 指 定 的 文件 不 存在 , 则 会 产生 错误 ,如 果 指 定 的 文件 已 经 打 
开 , 则 先 关 闭 再 重新 打开 。 当 前 文件 的 位 置 设置 在 文件 的 开始 。 调 用 Reset 后 ,如果 文件 为 空 
Eof(F) 为 True, 和 否则 为 False。Reset 过 程 的 声明 如 下 : 


procedure Reset(var F[ :File;RecSize:Word]); 


其 中 ,F 是 一 个 任意 文件 类 型 的 变量 ,RecSize( 记 录 长 度 ) 是 一 个 可 以 默认 的 表达 式 , 并 且 仅 当 
下 是 一 个 无 类 型 文件 时 才 用 ,该 参数 指定 数据 传送 时 的 文件 大 小 。 

2) 以 写 方式 打开 文件 (Rewrite) 

通过 调用 Rewrite 函数 可 创建 并 打开 一 个 新 文件 。 如 果 下 是 一 个 文本 文件 ,那么 文件 变 
量 (F) 的 属性 为 只 读 。 如 果 存 在 一 个 相同 文件 名 的 外 部 磁盘 文件 , 则 将 删除 原 有 文件 并 在 该 
位 置 生成 一 个 空 文件 。 如 果 文 件 已 经 打开 , 则 先 关闭 然后 再 重新 创建 ,当前 文件 的 位 置 设置 在 
文件 开始 。 调 用 Rewrite 后 , 则 Eof(F) 必 为 True。Rewrite 过 程 的 声明 如 下 : 

procedure Rewrite(var F:File[;Recsize:Word]); 
其 中 ,F 是 一 个 任意 文件 类 型 的 变量 ,Recsize( 记 录 长 度 ) 是 一 个 可 以 默认 的 表达 式 , 并 且 仅 当 
下 是 一 个 无 类 型 文件 时 才 用 ,该 参数 指定 数据 传送 时 的 文件 大 小 。 

3) 用 Erase 过 程 删 除 文件 。 

通过 调用 Erase 过 程 可 删除 一 外 部 文件 。Erase 过 程 的 声明 如 下 : 
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procedure Erase(var F); 
其 中 ,F 是 一 个 任意 文件 类 型 的 变量 ,调用 Erase 过 程 将 删除 同 F 相连 的 文本 文件 。 在 删除 一 
个 文件 之 前 总 是 先 关 闭 该 文件 。 

3. 文件 的 基本 操作 

如 下 将 说 明 更 多 的 适用 于 所 有 文件 的 基本 操作 函数 或 过 程 , 函 数 功能 表 如 表 6-5 所 示 。 


表 6-5 ”函数 与 过 程 功能 


函数 与 过 程 名 实现 功能 

functon IOResult: Integer; 返回 最 近 一 次 1/O 操作 的 状态 值 

procedure Rename(var F; Newname: string); 用 Newname 重新 命名 文件 

procedure Rename( var F; Newname: PChar); 

procedure ChDir(S. string) ; 将 当前 目录 改 为 字符 串 S 指定 的 目录 

function Eof(var F) :Boolean; Text files; 检测 文件 是 否 结束 ,如 果 结 束 或 文件 为 空 则 为 Ture, 和 否则 

function Eof[ (var F:text) ]: Boolean; 为 False 

procedure GetDir(D: Byte;var S:string); 检测 由 DD 指定 驱动 器 的 当前 目录 。D 的 取 值 可 为 (0,1， 
2,3) ,其 分 别 代表 (默认 ,A,B,C) 

procedure RmDir(S:string); 删除 由 字符 串 S 指定 的 目录 

procedure MkDir(S: string); 新 建 一 个 由 字符 串 S 指定 的 目录 ,该 目录 原来 并 不 存在 


6.3.2 适合 于 文本 文件 的 基本 操作 


文本 文件 是 由 若干 行 组 成 的 ,若干 个 字符 串 组 成 一 行 ,一 行 的 结尾 巾 回 车 换行 符 表示 。 如 
果 对 文本 文件 进行 操作 , 则 首先 应 通过 调用 AssignFile 过 程 建立 文件 变量 与 外 部 文件 的 联 
系 , 并 且 使 用 Reset 或 者 Rewrite 或 者 Append 方法 打开 。 由 于 文本 文件 是 以 行为 单位 进行 读 
写 操作 的 ,并 且 每 一 行 的 长 度 不 一 定 相 同 ,所 以 不 能 计算 出 指定 行 在 文件 中 的 准确 位 置 ,因此 
对 于 文件 只 能 顺序 读 写 。 要 对 文件 进行 读 写 操作 ,必须 相应 地 对 文件 进行 以 读 或 以 写 的 方式 
打开 ,也 就 是 对 一 个 打开 的 文本 文件 只 能 单独 地 进行 读 或 写 操作 ,不 能 同时 进行 。 

下 面 介绍 只 适用 于 文本 文件 操作 的 基本 操作 函数 或 过 程 。 

1. 以 添加 方式 打开 文件 

通过 调用 函数 Append 可 打开 一 个 已 经 存在 的 文件 以 便于 在 文件 末尾 添加 文本 。 如 果 在 
文件 最 后 的 128 个 字 节 块 中 ,存在 字符 过 Ctrl 二 十 二 Z>(ASCII 26) ,那么 文件 将 在 该 字 节 处 
插入 ,并 且 覆 盖 该 字符 。 也 就 是 说 ,文本 可 被 插入 到 以 字符 二 Ctrl 二 十 二 2 二 终止 的 文件 后 。 

Append 过 程 的 声明 如 下 : 


Procedure Append(var F:Text); 


其 中 ,F 是 一 个 任意 文件 类 型 的 变量 ,并且 必 须 同 用 AssignFile 函数 打开 的 外 部 文件 相 联 系 。 
如 果 指 定名 称 的 外 部 文件 不 存在 ,就 会 产生 错误 。 如 果 指 定 的 文件 已 经 打开 , 则 先 关 闭 再 重新 
打开 。 当 前 文件 的 位 置 设置 在 文件 末尾 。 如 果 分 配给 下 的 是 一 个 空 名 字 , 则 在 调用 Append 
函数 后 ,文件 变量 (F) 将 同 标准 输出 文件 建立 联系 。 

2. 文本 文件 的 读 取 与 写 人 

文本 文件 通过 调用 Reset 过 程 后 以 读 方式 打开 后 ,就 可 以 使 用 Read 或 Readln 过 程 来 读 
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取 文 件数 据 了 。 文 本 文件 通过 调用 Rewrite 或 Append 过 程 打 开 一 文件 后 就 可 以 使 用 Write 
或 Writeln 过 程 来 写 人 数据 。 下 面 简单 介绍 文本 文件 的 读 取 与 写 人 方法 。 

1) 用 Read 过 程 读 取 数 据 

通过 调用 Read 过 程 可 以 从 文本 文件 中 读 取 字 符 串 .字符 或 数字 。 其 声明 如 下 : 


Procedure Read([var F:Text; ]V1[, V2, ,Vn]); 


其 中 ,F 是 文本 文件 变量 ,V1,V2,… ,Vn 用 于 存储 读 取 的 数据 ,其 必须 为 相同 的 类 型 ,可 以 定 
义 为 字符 串 类 型 变量 .字符 型 变量 或 整 型 变量 、 实 型 变量 。 当 V1,V2,…, Vn 定义 为 字符 串 型 
或 字符 型 变量 时 , 则 Read 过 程 将 按照 定义 的 长 度 读 取 字符 。 当 V1,V2,… ,Vn 定义 为 整 型 变 
量 或 实 型 变量 时 , 则 Read 过 程 将 以 空格 作为 分 隔 符 , 如 果 在 数字 中 出 现 逗 号 、 分 号 或 其 他 字 
符 将 产生 异常 。 

2) 用 Readln 过 程 读 取 数 据 

通过 调用 Readln 过 程 可 以 从 文本 文件 中 读 取 字符 串 .字符 或 数字 ,直到 一 行 的 结束 。 其 
声明 如 下 : 

Procedure Readln([var F:Text; ]V1[, V2, … ,Vn]); 
其 中 ,F 是 文本 文件 变量 ,V1,V2,… ,Vn 用 于 存储 读 取 的 数据 ,其 可 以 定义 为 字符 串 型 变量 、 
字符 型 变量 或 整 型 变量 \ 实 型 变量 。 

3) 用 Write 过 程 写 人 数据 

通过 调用 Write 过 程 可 以 向 文件 中 写 人 数据 。 其 声明 如 下 : 


procedure Write([var F:Text; ]P1[,P2, … ,Pn]); 


其 中 ,F 是 文本 文件 变量 ,P1,P2,…,Pn 用 于 存放 写 人 的 数据 ,其 可 以 是 字符 串 类 型 .字符 类 
4) 用 Writeln 过 程 写 人 数据 
通过 调用 Writeln 过 程 可 以 向 文件 中 写 和 一 行 数据 ,并 在 结尾 处 输入 回 车 换行 符 。 
procedure Writeln([var F:Text; ]P1[,P2, … ,Pn]); 
3. 文件 的 基本 操作 
对 文本 文件 进行 操作 的 基本 函数 与 过 程 如 表 6-6 所 示 。 
表 6-6 文本 文件 操作 的 基本 函数 与 过 程 


函数 与 过 程 名 实现 功能 
Procedure AssignPrn(var F:Text); 建立 文本 文件 变量 同 打 印 机 之 间 的 联系 
Function Eoln[ (var F:Text)]:Boolean; 检测 文件 指针 是 否 指 向 行 尾 
Procedure Flush(var F:Text); 输入 方式 (Rewrite 或 Append) 打 开 的 文件 缓冲 区 ,以 
确保 所 有 写 入 文件 的 字符 都 被 写 入 外 部 文件 
Function SeekEof[ (var F:Text)]:Boolean; 返回 文件 尾 状 态 
Function SeekEoln[ (var F :Text) ]: Boolean; 返回 文件 行 尾 状态 


Procedure SetTextBuf(varF: Text; varBuf[ ;Size: ”设置 文件 缓冲 区 
Integer]); 
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【 例 6.4】 设计 一 个 简易 文本 编辑 器 ,具有 创建 编辑、 保存 普通 文本 文件 的 功能 。 

1) 界面 设计 

建立 一 个 备注 Memol .一 个 控制 面板 Panell 和 7 个 按钮 Button1 一 Button7, 如 图 6-5 
所 示 。 


GG cvmy documents\newfile bt 


新 建 || 读 打开 || 写 打开 | 保存 直 | 另存 || 关闭 | 退出 | 


6-5 简易 文本 编辑 器 


2) 属性 设置 
设置 各 Button 的 Caption 属性 值 如 图 6-5 所 示 。 其 他 属性 设置 如 表 6-7 所 示 。 
表 6-7 窗 体 及 组 件 属性 设置 


对 象 属性 属性 值 说 明 
Panell Align Albottom 控制 面板 始终 位 于 窗 体 的 下 部 
Align Alclient 备注 框 撑 满 整个 窗 体 
Memol 程序 开始 运行 时 Memol 不 可 用 ,只 有 当 写 人 
Enabled False 数据 时 可 用 
证 Textfile| * . txt 设置 可 打开 的 文件 类 型 为 文本 文件 或 所 有 
OpenDialog1 all files| * . * 文件 
Initialdir C:\my documents 设置 对 话 框 打 开 初 始 路 径 为 C:\my documents 
Boe Textfile| * . txt 设置 可 打开 的 文件 类 型 为 文本 文件 或 所 有 
SaveDialog1 |all files| * . * 文件 
Initialdir C:\my documents 设置 对 话 框 打开 初始 路 径 为 C:\my documents 
Buttonl ~ Button3, i 
Btn Enabled True 在 程序 开始 运行 时 ,该 按钮 可 用 
Button4 ~ Button6 Enabled False 在 程序 开始 运行 时 ,该 按钮 不 可 用 


3) 程序 设计 


var 
Forml :Tforml; 
f:texfile; 
wfilename: string 
flag: Boolean; 


implementation 
{SRx .DEM} 
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procedure Tform1l1. Button1Click( Sender:TObject); 
begin 

assignfile(f, 'C:\\my documents\\newfile. txt'); 
newfile. txt'; 
wfilename: = 'newfile. txt'; 


forml. caption: 


rewriter(f); 

memol. enabled: = true; 
button1. enabled 
button2. enabled: = false; 
button3. enabled 
button4. enabled 
button5. enabled: = true; 
button6. enabled: = true; 
button7. enabled: 

end; 


= true; 


Procedure Tform]. Button2Click( Sender:TObject); 
var line: string; 
begin 
if opendialogl. Execute then 
begin 
assignfile(f,opendialogl. filename); 
memol. enabled: 
end; 
while not eof(f) do // 关 键 分 析 1 
begin 


false; 


readln(f, line); 

memol. LineS. add( line); 
end; 
buttonl. enabled: = false; 
button2. enabled: = false; 
button3. enabled: 
button4. enabled 
button5. enabled: = false; 
button6. enabled 
button7. enabled 

closefile(f); 
end; 


procedure Tform1. Button3Click( Sender:TObject); 
var line:string; 
begin 
if opendialogl. Execute then 
begin 
wfilename: = opendialogl. filename; 
assignfile(f,wfilename); 
reset (f); 
memol. enabled: = true; 
while not eof(f) do 
begin 


readln(f, line); 


第 6 章 ， 键盘、 鼠标 和 文件 编程 


165 


memol. LineS. add( line); 
end; 
button1. enabled: = false; 
button2. enabled: = false; 
button3. enabled: = false; 
button4. enabled: = true; 
button5. enabled: = true; 
button6. enabled: = true; 
button7. enabled: = true; 
closefile(f); 
end; 
end; 


procedure Tform1. Button4Click( Sender:TObject); 
var i, lastline: integer; 
begin 

lastline: = memol. lines.add('')—1; // 关 键 分 析 2 

assignfile(f, wfilename); 

rewrite(f); 

for i:=0 to lastline do 

begin 

writeln(f,memol. lines[i]); 
end; 
closefile(f); 

end; 


procedure Tform1. Button5Click( Sender:TObject); 
var i, lastline: integer; 
writefile:textfile; 
begin 
if savedialogl. execute then // 关 键 分 析 3 
begin 
wfilename: = savedialogl. Filename; 
assignfile(writefile, savedialog]. Filename); 
rewrite(writefile); 
forml. caption: = wfilename; 
lastline: = memol. lines.add('')—1; 
for i: = 0 to lastline do 
begin 
writeln(writefile. memol. lines[i]); 
end; 
Closefile(writefile); 
end, 
end; 


Procedure Tforml. Button6Click( Sender:TObject); 
var t:integer; 
begin 
if not flag then 
t: = MessageDlg( ' 是 否 保 存 文件 ', mtConfirmation, mbYesNoCancel, 0); 
if t<>2 then 
begin 
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证 七 = 6 then 
button4click; 

memol. Clear; 

forml. caption: 和 

memol. enabled: = false; 

button1l. enabled: = true; 

button2. enabled: 

button3. enabled: = true; 

button4. enabled: = false; 

button5. enabled: = false; 

button6. enabled: = false; 

button7. enabled: = true; 

end; 
flag: = false; 
end; 


true; 


procedure Tform1. Button7Click( sender:TObject); 
begin 
close; 
end; 
4) 程序 分 析 
本 例 是 文件 操作 的 综合 应 用 示例 ,包括 文件 的 定义 、 读 、 写 等 操作 。 
关键 分 析 1: 根据 打开 文件 对 话 框 选 定 的 文件 ,将 文件 的 内 容 添 加 到 Memo 中 。 
关键 分 析 2: 首先 获取 Memo 中 文件 内 容 的 行 数 ,分 行将 内 容 存 人 到 文件 f 中 。 
关键 分 析 3: 将 文件 另存 ,需要 对 文件 重新 定义 ,再 写 人 ,保存 。 


6.3.3 有 类 型 文件 


有 类 型 文件 是 一 种 具有 一 定数 据 类 型 的 文件 . 它 是 由 指定 数据 组 成 , 读 写 过 程 所 操作 对 象 
的 单位 是 一 个 指定 类 型 的 数据 。 有 类 型 文件 的 变量 可 声明 如 下 : 

Type fileTypeName = file of type 
其 中 ,file of 为 保留 字 ,type 可 以 是 各 种 数据 类 型 如 整 型 . 实 型 及 记录 型 。fileTypeName 为 类 
型 文件 名 。 

由 于 数据 类 型 已 指定 ,每 条 记录 的 存储 长 度 是 固定 的 ,所 以 可 以 确定 文件 指针 在 文件 中 的 
位 置 ,并 且 可 以 随机 存 取 。 

1. 有 类 型 文件 的 读 取 和 写 人 方法 

对 于 有 类 型 文件 允许 同时 为 读 和 写 打 开 。 通 过 调用 Read 过 程 可 以 从 文件 中 读 取 数据 。 
其 中 ,F, 及 V1,V2,…,Vn 的 定义 同文 本 文件 。 其 声明 如 下 : 

Procedure Read(F, V1[, V2, … ,Vn]); 

通过 调用 Write 过 程 可 以 向 文件 中 写 和 数据。 其 声明 如 下 : 

procedure Write(F, V1, … ,Vn); 


2. 文件 的 基本 操作 
对 有 类 型 文件 进行 操作 的 基本 函数 与 过 程 如 表 6-8 所 示 。 
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表 6-8 有 类 型 文件 操作 的 基本 函数 与 过 程 


函数 与 过 程 名 实现 功能 
Function FilePos(var F) :Longint; 返回 文件 的 当前 文件 指针 位 置 
Function FileSize(var F) :Integer; 返回 文件 的 大 小 
Procedure Seek(var F; N:Longint); 将 文件 指针 移 至 文件 位 置 
Procedure Truncate(var F); 截 去 当前 位 置 后 的 所 有 数据 


【 例 6.5】 如 图 6-6 所 示 ,利用 有 类 型 文件 保存 学 生成 绩 ,可 以 输入 学 生 的 学 号 .姓名 以 及 
三 门 功课 的 成 绩 ,浏览 或 删除 数据 。 设 计 步骤 如 下 。 

1) 界面 设计 

选择 “新 建 "工程 ,进入 窗 体 设计 器 ,在 窗 体 中 增加 两 个 组 框 GroupBoxl .GroupBox2 ,在 
GroupBoxl 中 增加 5 个 标签 Labell 一 Label5 .5 个 编辑 框 Editl 一 Edit5 和 两 个 按钮 Buttonl 、 
Button2 ,在 GroupBox2 中 增加 一 个 列表 框 ListBoxl 和 一 个 按钮 Button3 ,如 图 6-6 所 示 。 

2) 属性 设置 

设置 按钮 Buttonl ~~ Button3、 标 签 Labell ~ Label5、 编 辑 框 Editl ~ Edit5、 组 框 
GroupBoxl .GroupBox2 列表 框 ListBoxl 的 属性 如 图 6-6 所 示 。 将 Button3 的 Enabled 属性 
设置 为 False。 


| 输入 学 生 信息 
152123 
二 | 100 door oa 
语文 3 


外 语 , 7 


图 6-6 学 生成 绩 管理 系统 


3) 程序 设计 


var 
Forml: TForml; 
type 
studentrecord = record 
xh, xm: string[6]; 
YW, Sx, Wy: integer; 
end; 


implementation 
{SR *.DEM} 


Pprocedure TForm]. FormCreate( Sender: TObject); 
var 

t:studentrecord; 

f:file of studentrecord; 
begin 
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assignfile(f, 'c:\my documents\ 文 件 . dat'); 
证 fileexists('c:\my documents\ 文 件 .dat') then 
reset(f) 
else 
rewrite(f); 
while not eof(f) do // 关 键 分 析 1 
begin 
read(f,t); 
ListBoxl. Items.Add(t.xh+' '+t.xm+' '+ inttostr(t.yw)+' '+inttostr(t.wy)+' '+ 
inttostr(t. sx)); 
end; 
closefile(f); 
button3. enabled: = false; 
end; 


procedure TForm]. Button1Click(Sender: TObject); 
begin 
editl. text: 
edit2. text 
edit3. text 
edit4. text 
edit5. text: 
end; 


Procedure TForml. Button2Click( Sender: TObject); 
var 

t:studentrecord; 

f:file of studentrecord; 

size: integer; 
begin 

t.xh: = editl. text; 

t. xm: = edit2. text; 

t. yw: = strtoint(edit3. text); 

t.wy: = strtoint(edit4. text); 

t. sx: = strtoint(edit5. text); 

assignfile(f, 'c:\my documents\ 文 件 .dat'); 

reset(f); 

size: = filesize(f); 

seek(f, size); 

write(f,t); 

ListBoxl. Items. clear; 

seek(f,0); 

while not eof(f) do 

begin 

read(f,t); 
ListBoxl. Items.Add(t.xh+' '+t.xm+' '+inttostr(t.yw)+' '+inttostr(t.wy)+' '+ 

inttostr(t. sx)); 

end; 

closefile(f£); 
end; 


procedure TForm1. Button3Click(Sender: TObject); 
var 

pos: integer; 

t:studentrecord; 
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f:file of studentrecord; 
begin 
pos: = listBox]. ItemIndex; 
assignfile(f, 'c:\\my documents\\ 文 件 . dat'); 
reset(f); 
seek(f,pos+1); 
while not eof(f) do // 关 键 分 析 2 
begin 
read(f,t); 
seek(f, pos); 
pos:=pos+1; 
write(f,t); 
seek(f,pos+1); 
end; 
seek(f, pos); 
truncate(f); 
seek(f,0); 
ListBox1. Items. clear; 
while not eof(f) do 
begin 
read(f,t); 
ListBoxl. Items.Add(t.xh+' ‘+t.xm+' '+inttostr(t.yw)+' '+inttostr(t.wy)+' '+ 
inttostr(t. sx)); 
end; 
closefile(f); 
end; 


Procedure TForm].ListBox1Click(Sender: TObject); 
begin 
if listboxl. ItemIndex >— 1 then 

button3. enabled: = true 


else 
button3. enabled: = false; 
end; 
4) 程序 分 析 
本 程序 利用 记录 类 型 文件 保存 学 生成 绩 ,可 以 输入 学 生 的 学 号 、 姓 名 以 及 三 门 功课 的 成 
绩 , 浏 览 或 删除 数据 。 


关键 分 析 1: 在 FormCreate 事件 中 ,首先 寻找 到 文件 头 , 然 后 通过 循环 用 于 将 文件 . dat 
中 的 数据 记录 逐条 读 和 到 ListBoxl 中 显示 出 来 。 

关键 分 析 2: 在 Button3 的 Click 事件 中 (删除 ) ,首先 定位 到 要 删除 的 记录 ,然后 把 要 删除 
的 记录 后 面 的 数据 通过 循环 逐条 上 移 , 最 后 把 文件 尾 的 最 后 一 条 重复 记录 删除 。 


6.3.4 无 类 型 文件 
无 类 型 文件 无 固定 的 数据 结构 ,可 由 使 用 者 决定 每 个 数据 记录 的 长 度 , 它 的 声明 如 下 ， 
Var DataFiel:file; 


在 对 无 类 型 文件 用 Reset 和 Rewrite 过 程 打 开 时 ,可 带 有 第 二 个 参数 ,用 来 说 明 数 据 记 录 
的 长 度 , 如 果 默 认 则 为 128B。 也 就 是 说 ,有 类 型 文件 的 长 度 是 固定 的 ,无 类 型 文件 的 长 度 是 自 
定义 的 。 
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无 类 型 文件 的 读 取 和 写 人 方法 ,通过 调用 BlockRead 和 Block Write 函数 实现 读 入 或 写 人 
一 个 或 多 个 记录 的 数据 ,其 声明 如 下 : 

procdure BlockRead(var F:File; var Buf; Count: Integer[ ; var AmtTransferred: Integer])7 

procdure BlockWrite(var F:File; var Buf; Count: Integer[ ;var AmtTransferred: Integer]); 
其 中 ,F 是 无 类 型 文件 变量 ,Buf 用 于 存储 读 取 或 写 人 的 数据 ,Count 则 确定 了 每 次 应 读 写 的 记 
录 的 个 数 ,AmtTransferred 将 返回 每 次 实际 读 写 的 记录 的 个 数 。 在 变量 中 有 关系 式 Buf 的 大 
小 二 CountX RecSize(RecSize 为 记录 的 长 度 )。 在 一 般 情况 下 , AmtTransferred 同 Count 应 
相等 ,但 在 文件 末尾 或 在 磁盘 已 满 的 情况 下 ,AmtTransferred 将 小 于 Count。 


小 结 


本 章 中 首先 介绍 键盘 和 鼠标 的 响应 事件 ,并 用 实例 予以 说 明 。 然 后 介绍 了 文件 编程 ,文件 
的 用 途 主要 有 两 点 ,一 是 保存 数据 ,二 是 用 于 不 同 应 用 程序 之 间 的 数据 交换 。 本 章 中 只 是 介绍 
了 文件 操作 的 一 些 基 本 知识 ,文件 操作 在 应 用 程序 中 是 非常 重要 的 ,因此 ,读者 需要 多 参阅 有 
关 资 料 并 通过 Delphi XE8 的 帮助 文件 进行 学 习 和 提高 。 


习 题 


6-1 键盘 的 单 击 事 件 有 几 种 ? 

6-2 ”鼠标 的 拖 忠 事件 的 含义 是 什么 ?如何 实现 ? 

6-3 文本 文件 的 读 、 写 操作 用 什么 方法 ? 

6-4 有 类 型 文件 和 无 类 型 文件 读 、 写 操作 有 何 区 别 ? 

6-5 ”使 用 Rewrite 方法 打开 一 个 已 存在 的 文件 会 发 生 什 么 情况 ? 

6-6 通过 键盘 输入 数据 ,将 包括 学 号 、. 姓 名、 性 别 . 英 语 、 数 学 .物理 等 学 生成 绩 数据 输入 
到 一 个 顺序 文件 (Stuscore. dat) 中 ,如 图 6-7 所 示 。 

6-7 ”从 Stuscore. dat 文件 中 读 出 全 部 学 生 的 成 绩 , 并 显示 在 窗口 中 ,如 图 6-8 所 示 ,将 其 
中 需要 补考 的 学 生 数 据 存 人 一 个 新 的 文件 (Stubk. dat) 中 。 


G567 “ay 


浏览 信息 
学 号 ”姓名 英语 数学 物理 
QE66 [ole 152123 喜 剑 灵 78 76 ?9 
152124 3 100 100 100 
152125 张 98 95 88 
输入 学 生成 绩 152126 站 97 99 86 
学 号 : 9527 英语 : 6 152127 证 风 93 97 97 
妈 吉 ， 数学 ,再 152128 张 国 疲 55 56 57 
性 别 : 回 男 日 女 。 ”物理 :i100 
结 素 
es 


图 6-7 学 生成 绩 录入 系统 图 6-8 显示 所 有 学 生成 绩 


[5 
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6-8 从 Stubk. dat 文件 中 读 出 数据 ,并 把 需要 单 科 补考 的 学 生 信息 显示 出 来 ,如 图 6-9 
所 示 。 


请 选择 科目 
回 英语 日 数学 口 物 晶 


学 号 ”姓名 成 绩 
152128 张 国 波 55 


6-9 显示 学 生 补考 信息 


多 媒体 编程 


随 着 计算 机 技术 的 发 展 , 多 媒体 技术 已 经 日 趋 成 熟 。 人 们 要 经 常 使 用 图 形 图像. 声音 、 避 
画 等 多 媒体 信息 。Delphi XE8 提供 了 功能 强大 的 多 媒体 组 件 , 因 此 实现 多 媒体 程序 设计 是 非 
常 方便 的 。 

Delphi XE8 集成 开发 环境 提供 了 许多 与 图 形 和 图 像 显 示 有 关 的 组 件 , 在 程序 设计 期 间 ， 
可 以 调用 预先 制作 好 的 图 形 图 像 ,也 可 以 使 用 组 件 来 创建 图 形 图 像 。 在 程序 运行 期 间 , 可 以 使 
用 相关 组 件 来 定制 图 形 图 像 , 还 可 以 使 用 绘图 对 象 来 动态 地 绘制 图 形 图 像 。 

如 果 要 在 Delphi XE8 程序 中 添加 动画 声音 和 视频 剪辑 等 媒体 元 素 , 可 以 使 用 媒体 播放 
器 组 件 , 这 是 一 个 完备 的 多 媒体 开发 平台 。 


7.1 图 形 图 像 基 础 知识 


在 Delphi XE8 中 ,图 形 图 像 的 产生 有 以 下 4 种 方式 。 

(1) 在 程序 执行 时 由 程序 绘制 ; 

(2) 设计 期 间 使 用 Shape 组 件 给 出 ; 

(3) 执行 期 间 由 用 户 自己 制作 ; 

(4) 直接 读 取 已 存在 的 图 形 图 像 文件 。 

- 般 来 说 ,最 常用 的 绘图 方式 是 各 种 几何 图 形 的 绘制 ,如 直线 、 圆 椭圆 .矩形 等 。 


7.1.1 图 形 图 像 对 象 组 件 与 图 像 的 种 类 


Delphi XE8 环境 的 许多 对 象 和 组 件 ,如 画布 对 象 、 图 片 对 象 .图 像 组 件 和 图 形 组 件 等 ,都 
可 以 用 来 进行 图 形 图 像 的 存储 和 显示 。 这 些 对 象 和 组 件 都 支持 常见 的 图 像 文件 格式 ,如 位 图 、 
图 标 、 图 元 ,以 及 压缩 格式 的 JPEG 图 片 等 的 处 理 。 

1. 图 形 图 像 对 象 组 件 

(1) 画布 对 象 (TCanvas): TCanvas 是 许多 组 件 都 具备 的 一 个 属性 。 同 时 它 本 身 也 是 一 
个 对 象 ,包含 自己 的 属性 ,其 中 最 重要 的 有 4 个 : 画笔 、 画 刷 、. 字 体 组 件 , 以 及 图 形 像素 数组 。 
TCanvas 对 象 提供 了 作 图 操作 的 平面 及 各 种 工具 ,使 用 这 些 工 具 在 这 个 平面 上 绘制 各 种 线条 、 
曲线 以 及 其 他 形状 。 

(2) 图 形 对 象 (TGraphics): TGraphics 对 象 是 图 像 文件 在 内 存 中 的 抽象 代表 ,用 于 存储 
图 像 文件 ,以 便 将 其 从 磁盘 装 和 人 人 内存, 或 从 内 存 存放 到 磁盘 。TGraphics 有 三 个 派生 类 : 
TBitmap、TIcon 和 TMetafile( 分 别 为 位 图 .图 标 和 图 元 类 )。 如 果 知 道具 体 的 图 像 类 型 , 则 应 
将 其 存储 在 相应 类 的 对 象 中 ,而 不 是 基 类 TGraphics 的 对 象 中 。 

(3) 图 片 对 象 (TPicture) : TPicture 对 象 是 图 形 对 象 (TGraphics 及 其 派生 类 的 实例 ) 的 
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容器 。 也 就 是 说 , 它 可 以 装载 TBitmap、TIcon 和 TMetafile 及 其 他 TGraphics 类 的 图 。 

(4) 图 像 组 件 (Image) : 以 上 讨论 的 三 个 类 可 以 画图 或 存储 图 形 ,但 都 不 能 显示 图 形 。 它 
们 实际 上 是 某 种 组 件 (Form 等 ) 的 属性 。Image 就 是 具有 TCanvas 和 TGraphics 属性 的 组 
件 , 它 在 应 用 程序 的 窗 体 上 提供 一 个 矩形 区 域 ,用 于 显示 和 输出 图 形 (组 件 ) 。 

(5) 图 形 组 件 (Shape): Shape 组 件 在 窗 体 中 提供 一 个 可 用 来 绘制 几何 图 形 的 矩形 区 域 ， 
利用 该 组 件 可 将 绘图 操作 限定 在 一 个 区 域内 ,而 不 使 用 窗口 的 整个 客户 区 进行 操作 。 

(6) 画 框 组 件 (PaintBox): PaintBox 组 件 在 窗 体 中 提供 一 个 用 来 绘制 几何 图 形 的 矩形 区 
域 ,可 使 用 绘图 语句 在 这 个 区 域内 绘制 各 种 图 形 。 

2. 图 形 图 像 文件 的 种 类 

图 形 文件 种 类 繁多 ,常见 的 有 位 图 图标、 图 元 ,以 及 各 种 压缩 格式 (JPEG .GIF 等 ) 的 图 形 文 件 。 

(1) 位 图 (TBitmap): Win32 位 图 是 以 位 形式 存储 的 二 进 制 信息 。 具 体 地 说 ,位 图 保存 了 
像素 的 颜色 信息 。 位 图 是 各 种 绘图 工具 都 支持 的 通用 的 图 形 文件 格式 。Delphi XE8 环境 的 
各 种 图 形 对 象 或 组 件 也 都 支持 位 图 的 存储 和 显示 。 

(2) 图 标 (TIcon): 图 标 作为 Windows 资源 常 以 . ico 为 扩展 名 保存 。 它 们 可 以 存在 于 资 
源 文 件 (. res) 中 。 在 Windows 中 ,有 两 种 典型 大 小 的 图 标 , 一 是 32X 32 像素 的 大 图 标 , 二 是 
16X16 的 小 图 标 。 小 图 标 显 示 在 应 用 程序 主 窗口 的 左上 角 或 列表 视图 控件 中 。Delphi XE8 
环境 将 这 个 控件 封装 为 TListView 组 件 , 位 于 组 件 面板 的 Win32 页 。 图 标 由 两 个 位 图 组 成 。 
一 个 是 实际 要 显示 的 图 像 , 另 一 个 是 图 标 显 示 时 的 蒙 版 。 图 标 有 多 种 用 途 , 例 如 ,可 以 出 现在 
应 用 程序 的 任务 栏 ,或 者 需要 惊叹 号 停止 符 的 消息 框 中 。 

(3) 图 元 (TMetafile) ; 图 元 是 基于 矢量 的 图 像 。 图 元 文件 是 保存 了 一 系列 GDI(Graph 
Display Interface ,图 形 显示 界面 ) 例 程 的 文件 ,允许 将 对 GDI 函数 的 调用 保存 到 外 存 。 这 样 ， 
以 后 就 可 以 再 次 显示 了 。 同 时 ,可 与 其 他 程序 共享 作 图 例 程 。 图 元 文件 可 以 平滑 地 改变 大 小 
(位 图 在 放大 后 会 失真 )。 图 元 文件 有 两 种 格式 : 标准 图 元 文件 (. wmf) 和 增强 图 元 文件 
(.emf) 。Delphi XE8 TMetaFile 支持 这 两 种 图 元 文件 。 

(4) JPeg 图 : JPEG 文件 扩展 名 为 .jpg。JPEG 是 一 种 静态 图 形 压 缩 算法 ,图 像 质量 可 以 
调节 ,压缩 比率 较 高 。 这 种 文件 的 读 写 以 及 和 位 图 的 转换 都 要 经 过 压缩 或 者 解压 。 在 Delphi 
XE8 中 ,如 果 要 操作 JPEG 文件 ,需要 在 单元 中 包含 JPEG 单元 名 。 


7.1.2 图 像 组 件 Image 


Image 组 件 是 一 种 图 像 的 容器 ,在 应 用 程序 窗 体 上 提供 一 个 矩形 区 域 ,用 于 显示 各 种 以 文 
件 形式 存储 在 磁盘 (光盘 ) 上 的 位 图 图标、 图 元 文件 或 用 户 自 定义 的 图 形 文件 。 该 组 件 与 作 图 
有 关 的 属性 如 表 7-1 所 示 。 
表 7-1 Image 组 件 常 用 属性 


属性 类 型 作 用 
Picture Tpicture ”指定 图 片 ,可 为 位 图 (BMP) 、 图 标 (ICO) 或 图 元 (EMF、WMF) 文 件 ,车 为 JPEG 图 
片 , 当 前 单元 Uses 语句 中 应 包含 JPEG 单元 
Canvas Tcanvas ”提供 图 像 组 件 进行 绘图 操作 的 平面 
Autosize Boolean ”其 值 为 True 时 ,Image 自动 调节 大 小 以 适应 图 像 。 默 认为 True 
Streth Boolean ”其 值 为 True 时 ,图 像 自 动 调节 大 小 以 适应 Image, 但 . ico 文件 不 能 。 默 认为 False 
Transparent Boolean 默认 值 为 False。 确 定 是 否 允 许 图 像 组 件 下 面 的 物体 显示 出 来 
Center Boolean ”其 值 为 True 时 ,图 像 居 中 ,否则 从 左上 角 开 始 显示 。 默 认 值 为 False 
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可 以 在 设计 阶段 指定 要 在 Image 上 显示 的 图 片 ,也 可 以 在 程序 运行 期 间 载 人 图 片 。 
设计 阶段 指定 图 片 的 方法 是 : 单 击 对 象 编辑 器 的 Picture 属性 行 的 右 格 中 的 了 按钮 ,打开 


图 片 对 话 框 ,然后 选择 一 幅 图 片 。 


在 应 用 程序 运行 期 间 , 可 以 调用 相关 的 函数 或 过 程 动态 地 从 文件 中 载 入 图 形 图 像 。 


【 例 7.1】 打开 图 片 对 话 框 装载 图 片 。 
1) 界面 设计 


创建 一 个 新 的 工程 ,在 窗 体 中 添加 一 个 Image 组 件 、 一 个 OpenPictureDialog 组 件 ( 位 于 


Dialog 标签 页 ) 和 一 个 Button 组 件 ,用 户 界面 如 图 7-1 所 示 。 


HUAVWEI 


7-1 打开 图 片 示 例 


2) 属性 设置 
各 组 件 的 属性 设置 如 表 7-2 所 示 。 
表 7-2 窗 体 及 组 件 属性 设置 


对 象 属性 属性 值 说 明 
Forml Caption 打开 图 片 窗 体 标题 栏 
Buttonl Caption 打开 图 片 按钮 的 标题 
Tmagel Stretch True 图 像 自 动 调节 大 小 
OpenPictureDialog1 InitialDir Cc:\ 对 话 框 初始 目录 


3) 程序 设计 


procedure TForm1. Button1Click( Sender: TObject); 
var openfilepath: string; 


begin 
if OpenPictureDialogl. Execute then //" 打 开 图 片 "对 话 框 
begin 
openfilepath: = OpenPictureDialog1.FileName; // 在 对 话 框 中 选择 图 片 文件 
imagel. Picture. LoadFromFile( openfilepath); // 关 键 分 析 
end; 


end; 
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4) 程序 分 析 

关键 分 析 : 调用 Tpicture 对 象 的 LoadFromFile 方法 ,将 用 户 在 对 话 框 中 选择 的 图 片 装 和 人 
Imagel 中 。 

【 例 7.2】〗 载 和 图片 并 按 图 片 大 小 修改 窗 体 。 

1) 界面 设计 

创建 一 个 新 的 工程 ,在 窗 体 中 添加 一 个 Image 组件， 
用 户 界面 如 图 7-2 所 示 。 

2) 属性 设置 

Forml 属性 如 图 7-2 所 示 ,Imagel 使 用 默认 属性 无 
须 设置 。 

3) 程序 设计 

Procedure TForm1.FormCreate(Sender: TObject); 

begin 

Imagel. Top: = 5; 


Imagel. Left: = 5; 
Imagel. Width: = form]l.ClientWidth— 10; 


图 7-2 “ 按 窗 口 大 小 显示 图 像 " 示 例 


Imagel. Height: = forml. ClientHeight - 10; // 上 述 4 条 语句 设置 Imagel 的 位 置 
Imagel. AutoSize: = false; //Imagel 不 按 图 像 大 小 自动 调整 
Imagel. Stretch: = true; // 图 像 自 动 调节 大 小 以 适应 Image 


Imagel. Picture. LoadFromFile( 'D:\Program Files\Common Files\Borland Shared\ Images\ Splash\ 
16Color\ATHENA. BMP'); 
end; 


Procedure TForml. FormResizel( Sender: TObject); 
begin // 关 键 分 析 
Imagel. Width: = form].ClientWidth— 10; 
Imagel. Height: = forml.ClientHeight ~- 10; 
end; 
4) 程序 分 析 
本 程序 完成 在 窗口 中 央 显示 图 像 , 如 果 窗 口 改变 大 小 , 则 重新 计算 并 显示 图 像 。 
关键 分 析 : 此 过 程 实现 的 功能 是 当 窗口 大 小 改变 时 ,重新 计算 窗口 大 小 并 且 重 新 显示 
图 像 。 


7.1.3 图 形 组 件 Shape 


Shape 组 件 用 于 在 窗 体 上 绘制 一 些 常 见 的 几何 图 形 ,如 矩形 、 圆 和 圆 角 和 矩形 等 。 作 图 时 常 
用 的 属性 有 Shape、Brush 和 Pen 等 。 

1. Shape 属性 

Shape 组 件 的 Shape 属性 用 于 指定 要 绘制 的 几何 图 形 种 类 ,属于 TShapeType 类 型 。 该 
属性 可 能 的 取 值 有 : stCircle( 图 ) .stEllipse( 椭 圆 )、stRectangle( 和 矩形 )、stRoundRect( 圆 角 和 拢 
形 ) .stRoundSquare( 圆 角 正 方形 ) 和 stSquare( 正 方形 ) 。 

在 设计 期 间 ,可 以 通过 鼠标 拖 放 改变 图 形 的 大 小 ,在 运行 期 间 , 可 以 通过 Height 和 Width 
属性 改变 图 形 大 小 。 

2. Brush 属性 

Brush( 画 刷 ) 属 性 指定 图 形 填 充 的 模式 和 颜色 。 在 对 象 编辑 器 中 ,Brush 属性 栏 中 有 田 符 
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号 ,展开 后 可 看 到 子 属性 Color 和 Style。 
(1) Color 子 属性 : 包含 一 系列 预定 义 的 颜色 ,用 作 几 何 图 形 的 填充 色 。 
(2) Style 子 属性 : 确定 几何 图 形 的 填充 样式 。 可 取 8 种 不 同 的 值 ,如 图 7-3 所 示 。 


Style 案 Style 图 案 
3 
bsoid cn: lE 
bsClear bsDiagCross 


bsBDiagonal 扩 bsHorizontal 
wooom RR we MMW 


图 7-3 Style 的 取 值 以 及 图 案 


3. Pen 属性 

Pen( 夯 笔 ) 属 性 指定 线 型 线 宽 和 线 的 颜色 。 它 也 像 Brush 属性 一 样 包含 子 属性 , 它 的 子 
属性 是 Color、Mode、Style 和 Width。 其 中 最 常用 的 是 Style 和 Width 。 

(1) Style 子 属性 : 确定 线 型 。 子 属性 的 取 值 有 
psSolid、psDash、psDot、psDashDot、psDashDotDot、 
psClear 和 psInsideFrame, 分 别 表 示 实 线 、 破 折 号 、 圆 
点 等 。 

(2) Width 子 属性 : 表示 线 宽 ( 点 数 ) ,默认 值 为 1 。 

【 例 7.3】〗 使 用 Shape 组 件 绘制 覃 圆 和 和 矩形。 

1) 界面 设计 

创建 一 个 新 的 工程 ,在 窗 体 中 添加 两 个 Shape 组 
件 , 任 意 形 状 均 可 (程序 中 将 改变 组 件 的 形状 ) ,用 户 界 
面 如 图 7-4 所 示 。 

2) 属性 设置 

Forml 属性 如 图 7-4 所 示 ,Shapel、Shape2 使 用 默认 属性 无 须 设置 。 

3) 程序 设计 


Pprocedure TForml. FormMouseDown( Sender: TObject; Button: TMouseButton; 
Shift: TShiftState; X, Y: Integer); 
begin 
with shapel do 
begin 
Shape: = stEllipse; 
Pen. Color: = clred; 
Pen. Style: = psSolid; 
Brush. Color: = ClGreen; 
Brush. Style: = bsDiagCross; 
end ; // 关 键 分 析 1 
with shape2 do 
begin 
Shape: = stRectangle; 
Pen. Color: = clGreen; 


图 7-4 单 击 窗 体 绘制 枯 圆 和 拢 形 
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Pen. Style: = psSolid; 
Brush. Color: = Clblue; 
Brush. Style: = bsDiagCross; 
end; // 关 键 分 析 2 
end; 
4) 程序 分 析 
关键 分 析 1: 第 一 个 图 形 , 图 形 种 类 : 椭圆 ; 边线 颜色 : 红色 ; 边线 形状 : 实 线 ; 图 形 填 充 
颜色 : 绿色 ; 图 形 填充 样式 : 交叉 线 。 
关键 分 析 2: 第 二 个 图 形 , 图 形 种 类 : 矩形 ; 边线 颜色 : 绿色 ; 边线 形状 : 实 线 ; 图 形 填 充 
颜色 : 蓝 色 ; 图 形 填充 样式 : 交叉 线 。 


7.2 画布 对 象 


画布 对 象 Tcanvas 封装 了 Windows 的 大 部 分 图 形 输出 功能 ,是 许多 组 件 都 具备 的 一 个 属 
性 。 同 时 , 它 本 身 也 是 一 个 对 象 (组 件 ) ,包含 绘图 中 使 用 的 各 种 方法 和 属性 ,其 中 ,最 重要 的 有 
画笔 、 画 刷 、 字 体 组 件 以 及 图 形 像素 数组 4 个 组 件 ,但 一 般 不 能 单独 使 用 。 


7.2.1 像素 操作 


像素 是 构成 图 形 最 基本 的 单位 。 画 布 上 的 每 个 点 都 有 一 个 对 应 的 像素 ,用 来 代表 图 形 上 
某 点 的 颜色 。 一 般 情况 下 ,并 不 需要 直接 存 取 像素 ,而 是 调用 画笔 和 画 刷 这 样 的 处 理 像素 的 
工具 。 

直接 读 取 像 素 也 很 简单 : 画布 上 的 一 幅 画 对 应 一 个 存储 像素 的 矩阵 (二 维 数组 ), 和 矩阵 中 
的 一 个 元 素 代 表 一 个 点 的 颜色 。 可 以 读 取 一 个 像素 或 者 设置 它 的 颜色 。 例 如 ,下 面 语句 的 功 
能 是 : 读 取 一 个 像素 ,并 将 它 设置 为 红色 。 


Canvas. Pexels[ X,Y]: = clRed; 


【 例 7.4】 绘制 圆 的 渐 开 线 。 

1) 界面 设计 

在 窗 体 中 添加 一 个 按钮 组 件 , 如 图 7-5 所 示 。 
2) 属性 设置 

将 Buttonl 的 Caption 属性 设置 为 “显示 ”。 
3) 程序 设计 


procedure TForm1l. ButtonlClick(Sender: TObject); 
var 

xpixel, ypixe, t: integer; 

x,y:real; 
begin 

x: = forml. ClientWidth/2; 

Y: = forml. ClientHeight/2; 于 
for t: = 0 to 10000 do 图 7-5 “ 圆 的 渐 开 线 " 示 例 
begin 
xpixel: = round(cos(t/100) + 七 * sin(t/100)/100 + x); 
ypixel: = round( - sin(t/100) — tx cos(t/100)/100 + y); 

canvas. Pixels[xpixel, ypixel]: = clred; // 关 键 分 析 
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end; 

end; 

4) 程序 分 析 

本 程序 利用 Canvas 对 象 的 Pixels 属性 实现 绘制 数学 图 形 。 

关键 分 析 : 通过 x,y 两 个 参数 首先 获得 窗 体 的 中 心 点 ( 即 渐 开 线 的 中 心 点 ) ,通过 圆 的 渐 
开 线 参数 方程 得 到 渐 开 线 的 每 个 点 的 坐标 ,并 且 把 坐标 赋值 给 xt 和 yt, 最 后 通过 canvas. 
Pixels[Lxt,ytj: 二 clred 语句 把 坐标 点 设置 为 红色 从 而 画 出 圆 的 渐 开 线 。 如 果 要 画 出 光滑 的 曲 
线 ,可 在 两 点 之 间 利 用 各 种 插值 法 (参考 计算 机 图 形 学 相关 书籍 ) 插 入 一 些 点 ,可 以 得 到 更 光滑 
的 曲线 。 


7.2.2 画笔 


画布 (Canvas) 中 的 画笔 (Pen) 属 性 控制 线条 的 宽度 .形状 和 颜色 。 画 笔 本 身 又 包含 4 个 
可 以 设置 的 属性 : Color、Width、Style 和 Mode, 以 及 多 个 画 直线 和 其 他 图 形 的 方法 。 

1. 画笔 的 属性 

(1) 颜色 (Color) 属 性 : Color 属性 设置 画笔 的 颜色 ,默认 为 黑色 。 它 的 取 值 有 ClBlack 
( 黑 ) 、CIMaroon ( 褐 红 )、ClPuple ( 紫 )、ClSilver ( 银 )、ClBackGround (Windows 背景 色 )、 
ClWindow( 窗 体 色 )、ClBtnHignlight (按钮 反 白色 )、cl3Ddkshadow (三维 对 象 阴影 色 ) 等 。 例 
如 ,将 画笔 设置 为 红色 的 代码 是 : 


Canvas. Pen. Color: = clRed; 


在 “颜色 ”对 话 框 中 选取 颜色 时 ,将 会 出 现 字 符 串 。 例 如 ,$002233ff 是 一 个 4 字 节 十 六 进 
制 数 ,其 中 低位 三 字 节 依次 代表 蓝 、 绿 、 红 的 分 量 的 强度 值 。 

(2) 宽度 (Width) 属 性 : Width 属性 设置 画笔 的 粗细 程度 (像素 个 数 )。 例 如 , 设 为 两 点 
(默认 为 1) 的 代码 是 : 


Canvas. Pen. Width: = 2; 


(3) 样式 (Style) 属 性 : Style 属性 设置 画笔 所 画 线条 的 类 型 ,其 值 有 psSolid( 实 线 , 默 认 )、 
psDash( 虚 线 ) .psDot( 点 线 ) .psDashDot( 点 划 线 , 宽 非 1 无 效 )、psDashDotDot( 双 点 划 线 , 宽 
非 1 时 无 效 ) .psClear( 无 线 ) 、psInsideFrame( 实 线 , 宽 大 于 1 抖动 ) 。 

(4) 显示 模式 (Mode) 属 性 : Mode 属性 确定 画笔 与 屏幕 上 原 有 点 的 混合 方式 ,可 选 的 值 
有 pmCopy、pmblack、pmNotXor 等 显示 模式 ,默认 值 pmNotXor 使 用 背景 显示 模式 。 

2. 夯 线 的 方法 

(1) Moveto 方法 ,作用 是 将 画笔 移 到 指定 位 置 ,使 用 方法 为 : moveto(x,y,integer) 。 

(2) lineto 方法 ,作用 是 画 一 条 到 指定 位 置 的 直线 段 ,线段 起 始 位 置 由 画布 对 象 的 Penpos 
属性 值 即 画笔 的 当前 位 置 确定 。 使 用 方法 为 : lineto(x,y: Integer) 。 

(3) 画 折 线 的 方法 ,使 用 方法 为 : Polyline(points:array of TPoint) 。 

其 中 ,points 为 类 Tpoints 的 一 个 数组 ,points 定义 为 : 

Tpoint = record 

X: longint; 


Y:longint 
End; 
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Points:array of Tpoint; 

3. 男人 第 形 的 方法 

Rectangle 方法 用 于 画 和 矩形 。 使 用 方法 为 : Rectangle(xl,yl1,x2,y2:integer)。 其 中 ,(x]l， 
yl1) 为 矩形 左上 和 角 的 坐标 ,(x2,y2) 为 右 下 角 的 坐标 。 

4. 画 圆 或 椭圆 的 方法 

Ellipse 方法 用 于 画 圆 或 椭圆 。 使 用 方法 为 : Ellipse(xl,yl,x2,y2:integer) 。 其 中 ,(xl， 
y1) 为 圆 或 椭圆 外 切 矩 形 左 上 角 的 坐标 ,(x2,y2) 为 右 下 角 的 坐标 。 

5. 画 弧 形 曲 线 的 方法 

Arc 方法 用 于 画 圆 弧 形 曲线 。 使 用 方法 为 ArcCxl,yl1,x2,y2,x3,y3,x4,y4:integer)。 其 
中 ,(Cxl,yl),(x2,y2) 为 圆 或 椭圆 外 切 矩 形 左 上 角 的 坐标 及 右 下 角 的 坐标 。 使 用 Arc 方法 确 
定 的 弧 线 曲 线 就 是 该 椭圆 曲线 的 一 部 分 ,并 且 (x3,y3),(x4,y4) 分 别 确定 了 弧 形 曲线 的 起 始 
点 。 这 样 就 可 由 起 始点 ,在 椭圆 曲线 上 沿 逆 时 针 方向 得 到 该 弧 形 曲线 。 

6. 圆 角 矩形 

Roundrect(xl,yl,x2,y2,x3,y3:integer); 其 中 (xl,yl),(x2.y2) 确 定 了 直角 和 矩形 左上 
角 \ 右 下 角 的 坐标 。x3,y3 为 圆 角 的 长 短 半径 。 

7. 写字 符 串 

TextOut(xr y: Integer, Const text: String); 

TextRect(Rect: Trect; x, y; Integer; Const text: String); 

TextOut 和 TextRect 方法 用 于 在 画布 指定 位 置 或 矩形 区 域内 绘制 字符 串 。 

【 例 7.5】 使 用 画笔 基本 作 图 方法 , 画 出 如 图 7-6 所 示 的 图 形 。 

1) 界面 设计 

创建 一 个 新 的 工程 ,在 窗 体 中 无 须 添 加 任何 组 件 ( 画 线 由 代码 实现 ), 用 户 界面 如 图 7-6 
所 示 。 


图 7-6 “画笔 操作 ”界面 


2) 属性 设置 
Forml 属性 如 图 7-6 所 示 ,其 他 属性 无 须 设置 。 
3) 程序 设计 


procedure TForm1.FormPaint(Sender: TObject); 
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begin 
canvas. pen. color: = clred; 
with canvas do 
begin 
pen. color: = clnavy; 
polyline( [Point(120,10),Point(80,110), Point(180,50),Point(60,50),Point(160,110), 


Point(120,10)]); // 关 键 分 析 1 
pen. color: = clred; 
arc(220,10, 420, 110, 220, 10, 420, 10); // 关 键 分 析 2 
moveto(100,160) ; 
lineto(10,250); 


pen. color: = clolive; 
ellipse(110, 160, 300, 250); 
pen. color: = clteal; 
roundrect(310,160, 400, 250, 50, 240); 
pen. color: = clblue; 
rectangle( 410, 160, 500, 250); 
end; 
end; 
4) 程序 分 析 
本 程序 实现 使 用 画笔 通过 相关 函数 作 图 。 
关键 分 析 1: 使 用 方法 Polyline 可 以 画 折 线 , 其 中 ,Point(120,10),Point(80,110),Point 
(180,50)，Point(60,50) ,Point(160,.110) ,Point(120,.10) 为 折线 的 各 个 折 点 。 
关键 分 析 2: Arc 方法 用 于 画 圆 弧 形 曲线 ,其 中 ,(220,10),(420,110) 为 椭圆 外 切 矩 形 左 
上 角 的 坐标 及 右 下 角 的 坐标 ,确定 的 弧 线 曲线 就 是 该 椭圆 曲线 的 一 部 分 ,并 且 (220,10),(420， 
10) 分 别 确定 了 弧 形 曲线 的 起 始点 和 终点 。 这 样 就 可 由 起 始点 ,在 椭圆 曲线 上 沿 逆 时 针 方向 得 
到 该 弧 形 曲线 。 


7.2.3 画 刷 与 作 图 区 域 


画布 的 画 刷 (Brush) 属 性 决定 图 形 内 部 区 域 的 填充 方式 。 画 刷 属 性 本 身 又 包含 4 个 属性 : 
Color 颜色 属性 .Style 风格 属性 、Bitmap 位 图 属性 和 Handle 属性 。 其 中 ,Handle 属性 提供 对 
Windows GDI 对 象 句柄 的 访问 。 

1. 画 刷 的 属性 

(1) 颜色 (Color) 属 性 : Color 属性 设置 画 刷 填充 区 域 的 颜色 ,默认 为 白色 。 例 如 ,将 画 刷 
设 为 蓝 色 的 代码 是 : 


Canvas. Brush. Color: = clBlue; 


(2) 样式 (Style) 属 性 : Style 属性 用 于 设置 画 刷 的 填充 区 域 样式 ,其 值 有 : psSolid( 实 
线 )、bsClear( 空 白 ,默认 值 )、bsFDiagonal( 主 对 角 线 )、BsHorizontal( 水 平 线 )、bsVertical( 垂 
直线 ) 、BsBDiagonal( 副 对 角 线 )、bsCross( 十 字 线 )、bsDiagCross( 对 角 交 叉 线 )。 

(3) 位 图 (Bitmap) 属 性 : Bitmap 属性 是 一 个 存放 图 形 数据 的 对 象 。 它 允许 在 窗 体 上 指定 
一 块 区域 放 入 图 形 或 图 像 对 象 ,如 位 图 或 者 图 形 文件 ,并 允许 用 户 在 程序 运行 过 程 中 调整 图 形 
图 像 的 大 小 。 位 图 对 象 一 般 可 在 程序 运行 阶段 动态 地 创建 或 删除 。 位 图 常用 的 命令 有 : 


bitmap. creat // 通 过 执行 creat 命令 创建 一 个 位 图 图 像 
bitmap. loadfromfile( ' 文 件 路 径 ') // 通 过 文件 路 径 调 人 位 图 ,装载 在 位 图 对 象 中 
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bitmap. free // 释 放 位 图 对 象 
bitmap. draw // 在 指定 位 置 按 原 图 大 小 显示 
2. 作 图 区 域 


Rect 属性 是 类 TRect 属性 的 对 象 ,同时 也 是 一 个 函数 。Rect 对 象 的 作用 就 是 定义 一 
形 区 域 对 象 , 而 作为 函数 使 用 时 则 用 于 定义 此 区 域 的 具体 范围 或 者 就 是 绘制 一 个 矩形 。Rect 
对 象 用 两 个 Tpoint 类 型 指明 区 域 范围 ,可 以 确定 绘图 区 域 的 范围 

Rect 对 象 用 两 个 坐标 点 (Tpoint 类 型 ) 指 定 区 域 范围 ， 或 者 用 4 个 整 型 变量 定义 区 域 范 
围 。 这 些 属性 是 : TopLeft (左上 角 )、BottomRight ( 右 下 角 )、TopLeft. X (左上 角 X)、 
TopLeft.Y( 左 上 角 Y) BottomRight. X( 右 下 角 X) 、BottomRight. Y( 右 下 角 Y) 。 

Canvas 有 如 下 三 个 绘制 图 像 的 方法 。 

(1) Draw (x, y: ineger, Graphic: Tgraphic): 其 中 ,x,y 为 绘图 区 域 右上 角 的 坐标 。 
Graphic 参数 指明 需要 绘制 的 图 像 .图标 或 图 元 文件 。 

(2) procedure FillRect(cost Rect:Trect) : 其 中 ,Rect 为 绘图 区 域 ,在 调用 该 过 程 之 前 , 先 
由 Brushi. bitmap 指明 需要 绘制 的 图 像 、 图 标 或 图 元 文件 。 

(3) Strecthdraw(Rect:Trect,Graphi:Tgraphic) : 其 中 ,Rect 为 绘图 区 域 。 

【 例 7.6】 在 窗 体 指 定 区 域 中 显示 图 片 ,如 图 7-7 所 示 。 

1) 界面 设计 

创建 一 个 新 的 工程 ,在 窗 体 中 无 须 添加 任何 组 件 ( 显 示 
图 片 由 代码 实现 ) ,用户 界 面 如 图 7-7 所 示 。 

2) 属性 设置 

Forml 属性 如 图 7-7 所 示 ,其 他 属性 无 须 设 置 。 

3) 程序 设计 

procedure TForm1.FormPaint(Sender: TObject); 图 7-7 在 窗 体 指定 区 域 显 示 图 片 

Var 

bitmap:tbitmap; 

rectl:trect; 
begin 

bitmap: = tbitmap. create; 

bitmap. loadfromfile( 'd:\program files\common files\borland shared\ images\ splash\ 256color\ 
handshak. bmp') 7 

rect1: = rect(0, 0, forml. width, forml. height); 

canvas. StretchDraw(rect1, bitmap); // 关 键 分 析 

end ; 

4) 程序 分 析 

本 程序 实现 在 窗 体 指定 区 域 中 显示 图 片 。 

关键 分 析 : 本 程序 使 用 算法 ,首先 创建 一 个 位 图 对 象 ,然后 获得 窗 体 的 区 域 信息 ,最 后 通 
过 StretchDraw 方法 把 创建 的 位 图 对 象 在 获得 的 窗 体 区 域 中 显示 。 

除 本 例 中 用 到 的 几 种 方法 之 外 ,Rect 对 象 常用 的 方法 还 有 : FloodFill( 填 充 Rect 之 外 的 
区 域 ) 和 TextRect( 在 Rect 对 象 中 显示 文本 ) 。 


7.2.4 PaintBox 画 框 组 件 
PaintBox 在 窗 体 中 可 以 在 工程 运行 期 间 ,提供 给 用 户 一 个 可 以 用 来 绘制 几何 图 形 的 矩形 
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区 域 ,可 以 使 用 绘图 语句 ,在 这 个 区 域内 绘制 各 种 图 形 , 它 使 用 的 主要 资源 是 画布 工具 , 它 的 主 
要 执行 事件 是 OnPaint。PaintBox 组 件 在 system 页 中 ,双击 则 可 在 窗 体 中 添加 。 

【 例 7.7】 利用 画 框 输出 文本 与 图 形 , 如 图 7-8 所 示 。 

1) 建立 应 用 程序 用 户 界面 Gausuas Bm 

选择 File 菜单 下 的 New Application 选项 , 进 ||=SBmz) 过 当日 - 
入 窗 体 设 计 器 ,增加 一 个 PanitBoxl 组 件 , 一 个 主 菜 
单 MainMenul 组 件 , 如 图 7-8 所 示 。 

2) 属性 设置 

Forml 属性 如 图 7-8 所 示 , 其 他 属性 无 须 设置 。 

3) 编写 程序 代码 


Pprocedure TForml. FormPaint(Sender: TObject); 


var 
oldx, oldy, xt, yt: integer; 
st:real; 7-8 “ 画 框 输出 函数 ”界面 


rectl :trect; 
const pi= 3.14159; 


begin 
with paintboxl do 
begin 
top:=0; 
left: =0; 


width: = forml. clientwidth; 
height: = forml.clientheight; 
canvas. Pen. color: = clblack; 
end; 
oldx: = round(forml. clientwidth/2); 
oldy: = round(form]. clientheight/2); 
paintboxl1. canvas. moveto(oldx, 0); 
paintboxl. canvas. lineto(oldx, paintbox1. height); 
paintboxl. canvas. moveto(0, oldy); 
paintboxl. canvas. lineto(paintboxl. width, oldy); 
for xt: = -9to9do 
if xt <>0 then 
begin 
st: = xt*10xpi; 
paintboxl1. canvas. moveto(oldx + round( st),oldy— 1); 
paintbox1. Canvas. lineto(oldx + round( st), oldy); 
paintboxl. canvas. textout(oldx + round(st) - 10,oldy+ 1, inttostr(xt) + '/2x°'); 
end; 
for yt:= -9to9 do 
if yt <>0 then 
begin 
st: = yt * 20; 
paintboxl. canvas. moveto(oldx + 1,oldy+ round( st)); 
paintboxl. Canvas. lineto(oldx, oldy + round( st)); 
paintboxl1. canvas. textout(oldx— 20, oldy + round( st), inttostr(yt)); 
end; 
end; 


Procedure TForm]l. sinlClick(Sender: TObject); 
var oldx, oldy, t: integer; 
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xt, yt:real; 

begin 
oldx: = round(forml. clientwidth/2); 
oldy: = round(forml. clientheight/2); 


for t: = -oldx to oldx do 
begin 
xt: = t/20; 
yt: = sin(xt); 
paintboxl1. Canvas. pixels[t + oldx, oldy + round(yt * 20)]: = clblack; 
end; 
end; 


procedure TForml. coslClick( Sender: TObject); 
var oldx, oldy, t: integer; 
xt, yt:real; 
begin 
oldx: = round(forml. clientwidth/2); 
oldy: = round(forml. clientheight/2); 
for t: = -oldx to oldx do 
begin 
xt: = t/20; 
yt: = cos(xt); 
paintbox1. Canvas. pixels[t + oldx, oldy + round(yt * 20)]: = clblack; 
end; 
end; 


Procedure TForm].clslClick( Sender: TObject); 
begin 

paintboxl]. refresh; 
end; 


procedure TForml. exit1Click(Sender: TObject); 
begin 

forml. free; 
end; 


7.3 音频 和 视频 播放 


计算 机 上 使 用 的 音频 、 视 频 和 带 声音 的 动画 都 称 为 多 媒体 信息 。 对 于 一 个 Delphi XE8 工 
程 来 说 ,增加 声音 和 动画 除 其 自身 功能 之 外 ,还 可 增加 整个 系统 的 可 视 性 ,当然 ,也 会 大 大 增加 
系统 的 开销 。 

在 Delphi XE8 应 用 程序 中 ,可 以 调用 专门 的 播放 器 组 件 来 播放 音频 和 视频 ,也 可 以 直接 
调用 Windows API 函数 播放 。 


7.3.1 音频 播放 


早期 计算 机 中 ,用 户 通过 键盘 向 计算 机 输入 由 数字 和 字符 组 成 的 操作 命令 ,计算 机 输出 数 
字 和 文字 来 反映 程序 运行 情况 ,这 就 是 所 谓 的 字符 用 户 界面 。 随 着 计算 机 技术 的 发 展 ,出 现 了 
图 形 界面 ,用 户 可 以 通过 鼠标 器 和 键盘 来 操纵 菜单 和 工具 栏 ,方便 快速 地 输入 信息 ,计算 机 则 
以 图 片 、 图 标 声音 ,文字 等 更 加 直观 的 方式 来 反映 程序 运行 情况 。 随 着 多 媒体 技术 的 出 现 , 用 
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户 和 计算 机 的 交互 手段 进一步 扩展 到 音频 和 视频 方面 。 

Delphi XE8 环境 的 MediaPlayer 组 件 封装 了 Windows MCI (Multimedia Control 
Interface, 多 媒体 控制 接口 ) 的 大 量 函 数 。Windows 媒体 播放 器 支持 的 格式 ,如 WAV、MID、 
DAT、AVI.MPG、MPA、MP3、ASF、WMV、WMA 和 CD 等 ,都 可 以 用 它 来 播放 。 

提示 : MCI 是 Windows API 的 一 部 分 ,用 于 控制 多 媒体 设备 。 

如 果 播 放 通 用 的 WAV(Windows 标准 声音 格式 ) 文 体 , 则 不 必 调 用 MediaPlayer 组 件 , 改 
为 调用 MMSystem 单元 中 的 PlaySound 函数 即 可 。 这 样 制作 出 来 的 程序 要 小 得 多 。 

PlaySound 函数 用 于 播放 WAYV 声音 文件 ,或 者 播放 一 种 默认 的 系统 声音 文件 ,在 播放 声 
音 的 同时 ,可 以 继续 执行 应 用 程序 的 其 他 功能 ,也 可 以 暂停 应 用 程序 ,直到 声音 播放 完毕 。 调 
用 PlaySound 函数 的 语法 格式 为 : 


PlaySound( 声 源 ,资源 ,播放 方式 ); 


其 中 三 个 参数 的 意义 如 下 。 

(1)“ 声 源 ” 参 数 : 指定 要 播放 的 声音 文件 ,可 以 是 带路 径 的 文件 名 ,资源 文件 名 或 Win. 
Ini 文件 中 [Sound] 部 分 的 条 目 , 也 可 以 是 指向 内 存 某 处 声音 的 指针 。 

(2)“ 资 源 ” 参 数 : 包含 声音 资源 的 可 执行 文件 句柄 。 如 果 * 播 放 方式 ”参数 未 设 为 SDN- 
RESOURCE, 则 该 参数 必须 设 为 零 。 

(3)“ 播 放 方 式 ? 参 数 : 指定 如 何 播放 。 可 以 是 下 列 值 的 任意 组 合 : SDN_YNC、SDN_ 
ASYNC.SDN_ NODEFAULT., SDN_ MEMORY. 、SDN _LOOP、SDN _NOSTOP SDN _ 
NOWAIT.SDN_ALIAS. SDN_ ALIAS_ID.SDN_FILENAME. SDN_RESOURCE. SDN_ 
PURGE.SDN_APPLICATION.SDN_ALIAS_START, 

【 例 7.8】 调用 Windows API 函数 播放 声音 。 

1) 建立 应 用 程序 用 户 界面 

选择 File 菜单 下 的 New Application 选项 ,无 须 添加 任何 组 件 , 将 单元 文件 名 mmsystem 
添加 到 当前 单元 的 Uses 语句 中 。 

2) 编写 程序 代码 


uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, 
mmsystem; 


implementation 
{$R *.dfm} 
Procedure TForml. FormShow( Sender: TObject); 
begin 
sndplaysound( 'C:\WINDOWS\Media\Windows XP 关机 .wav', snd_async); // 关 键 分 析 
end; 


Procedure TForm1. FormClose( Sender: TObject; var Action: TCloseAction); 
begin 
sndplaysound( '', snd_async); 
end; 
3) 程序 分 析 
程序 运行 后 , 窗 体 显 示 事 件 过 程 播放 声音 ,编写 窗 体 关闭 事件 过 程 停止 播放 。 
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关键 分 析 : Windows API 的 sndplaysound 函数 中 第 一 个 参数 所 指定 的 声音 文件 将 会 按 
照 第 二 个 参数 指定 的 方式 播放 。 


7.3.2 卡通 控件 


卡通 控件 是 Windows(Windows 95 以 上 版 本 ) 提 供 的 具有 媒体 播放 能 力 的 窗口 控件 ,可 
连续 播放 无 声 的 AVI 剪辑 文件 。 在 应 用 程序 中 ,卡通 控件 常用 于 形象 化 地 反映 计算 机 操作 的 
进展 情况 。 例 如 , Windows 系统 中 用 一 个 扔 纸 片 的 动画 来 说 明文 件 复制 过 程 。 

AVI 文件 格式 是 征 软 公司 标准 的 音频 和 视频 文件 存储 格式 。 在 AVI 文件 中 ,音频 和 视频 
交织 存储 ,每 帧 都 有 音频 和 视频 , 且 实 时 、 直 接地 送 往 音频 和 视频 硬件 。 这 种 交织 格式 的 缺陷 
是 难以 编辑 和 适应 扩充 了 的 多 媒体 “展播 ”。 

Delphi XE8 环境 的 卡通 控件 Animate 封装 了 Windows 的 卡通 控件 , 它 的 属性 和 方法 
如 下 。 

1. Animate 组 件 的 主要 属性 

1) FileName 属性 

指定 要 播放 的 AVI 剪辑 文件 名 称 。 

2) Open 属性 

确定 AVI 剪辑 是 否 装 和 人 内存。 

3) StartFrame 属性 。 

设置 AVI 剪辑 播放 的 起 始 帧 。 其 值 为 1 时 ,从 装 入 第 1 帧 播放 ,为 2 时 从 第 2 帧 播放 。 

4) StopFrame 属性 

设置 AVI 剪辑 播放 的 中 止 帧 。 

5) Active 属性 

判定 是 否 正在 播放 AVI 剪辑 文件 。 

6) AutoSize 属性 

确定 卡通 组 件 窗口 是 否 根据 AVI 窗口 大 小 而 变化 。 

7) Center 属性 

值 为 True 时 ,播放 窗口 位 于 计算 机 屏幕 中 央 。 

8) Repetitions 属性 

确定 AVI 剪辑 和 重复 播放 次 数 。 

2. Animate 控件 的 方法 有 

(1) Play 方法 : 播放 AVI 剪辑 文件 。 方 法 原型 为 


Procedure Play(FromFrame, ToFrame:Word; Count: Integer) ; 


其 中 ,FromFrame 指定 起 始 帧 ,ToFrame 指定 终止 帧 ,Count 指定 播放 次 数 。 
(2) Reset 方法 : 使 组 件 复位 为 默认 值 。 方 法 原型 为 : 


Procedure Reset; 
(3) Seek 方法 : 播放 所 指定 的 帧 。 方 法 原型 为 : 
Procedure Seek(frame:Fmallint)7 


其 中 ,Frame 参数 用 于 设置 播放 的 帧 序号 。 
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(4) Stop 方法 : 终止 播放 操作 。 方 法 原型 为 : 


Procedure Stop; 


【 例 7.9】 设计 一 个 类 似 于 Windows 复制 文件 
时 的 卡通 图 像 。 

1) 界面 设计 

创建 一 个 新 的 工程 ,在 窗 体 中 添加 两 个 Animate 
组 件 .三 个 按钮 Buttonl1、Button2 和 Button3 。 用 户 
界面 如 图 7-9 所 示 。 图 7-9 “卡通 演示 程序 ”界面 

2) 属性 设置 

各 组 件 的 属性 设置 如 表 7-3 所 示 。 

表 7-3 窗 体 及 组 件 属性 设置 


对 象 属性 属 性 值 说 明 
Forml BorderStyle bsDialogs 窗 体 显示 风格 
Animatel CommonAVI aviCopyFile 系统 “复制 文件 ”动画 
Animate2 ”FileName D: \ program Files \ borland \ Delphi \ Demos \ 调用 动画 文件 

CoolStusf\Cool. avi 
Buttonl Caption 播放 (&P) 按钮 标题 
Button2 Caption 暂停 (&E) 按钮 标题 
Button3 Caption 停止 (&S) 按钮 标题 
3) 程序 设计 
Procedure TForml1.FormCreate(Sender: TObject); 
begin 


Button2. Enabled: = false; 
button3. Enabled: = false; 
end; 


procedure TForml. ButtonlClick(Sender: TObject); 
begin 
animatel. Play(animatel. StartFrame, animatel. StopFrame, 0); // 关 键 分 析 1 
animate2. Play(animate2. StartFrame, animate2. StopFrame, 0); 
button2. Enabled: = true; 
button3. Enabled: = true; 
end; 


Pprocedure TForm1. Button2Click( Sender: TObject); 
begin 
animatel. Seek(12); // 关 键 分 析 2 
animate2. Seek(12); 
end; 
Procedure TForm1. Button3Click( Sender: TObject); 
begin 
animatel. Stop; 
animate2. Stop; 
end; 
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4) 程序 分 析 

程序 运行 后 ,“ 暂 停 ” 和 “停止 "按钮 为 暗淡 显示 , 单 击 “ 播 放 ” 按 钮 或 按 Alt 十 P 键 后 ,两 个 卡 
通 组 件 同时 播放 ,同时 “暂停 "和 “停止 ”按钮 变 为 正常 显示 。 

关键 分 析 1: Play 方法 ,播放 AVI 剪辑 文件 ，animatel. StartFrame 为 卡通 文件 的 起 始 
帧 ,animatel. StopFrame 为 卡通 文件 的 结束 帧 ,0 为 连续 播放 。 

关键 分 析 2: 暂停 于 第 12 帧 。 


7.3.3 媒体 播放 器 控件 


媒体 播放 器 控件 是 一 个 具有 多 媒体 播放 能 力 的 窗口 控件 。 它 通过 Windows 操作 系统 的 
MCI 接口 直接 控制 各 种 类 型 的 媒体 播放 设备 ,如 CD-ROM 设备 .MIDI 序列 发 生 器 和 VCR 等 
设备 。 将 媒体 播放 器 放 到 窗 体 上 时 ,表现 为 不 同 的 按钮 ,如 图 7-10 所 示 。 


elas ale le 


7-10 媒体 播放 器 组 件 的 形式 


图 7-10 中 的 按钮 从 左 到 右 分 别 为 : Play (播放)、Pause( 暂 停 播 放 和 录制 )、Stop( 停 止 播放 
和 录制 )、Next( 跳 到 下 一 磁道 ,媒介 不 支持 磁道 时 , 跳 到 最 后 )、Prev( 跳 到 前 一 磁道 ,媒介 不 支 
持 磁道 时 , 跳 到 最 前 )、Step( 前 进 若 干 帧 )、Back( 返 回 若干 帧 )、Record( 开 始 录制 )、Eject (释放 
媒介 ) 。 

1. 媒体 播 放 器 的 属性 

1) Device 属性 

TMPDeviceTypes 类 型 指定 进行 播放 的 设备 类 型 , 取 值 如 表 7-4 所 示 。 


表 7-4 DeviceType 属性 的 值 


设备 类 型 播放 的 媒体 文件 类 型 
dtAVIVideo AVI 视频 文件 
dtCDAudio CD 唱 盘 
dtDAT 数字 音频 磁带 
dtDigitalVideo AVI.MPG、MOV 文件 
dtMMMovie MM 电影 
dtOverlay 模拟 视频 
dtScanner 图 像 扫描 设备 
dtSequencer MIDI 文 件 
dtVCR WAV 文件 
dtAutoSelect 默认 值 , 依 FileName 指定 的 文件 确定 使 用 哪 种 播放 设备 


2) FileName 属性 

FileName 属性 是 字符 串 类 型 ,指定 要 播放 的 多 媒体 文件 。 

3) 媒体 播放 器 状态 的 属性 

(1) AutoOpen 属性 : 布尔 类 型 。 其 值 为 True 时 ,程序 运行 自动 打开 指定 的 播放 设备 ; 
为 False 时 ,各 按钮 工作 状态 由 应 用 程序 管理 。 

(2) Capabilities 属性 : TMPDevCaps 类 型 。 打 开 媒 体 播放 设备 后 ,应 用 程序 可 通过 该 属 
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性 了 解 播放 设备 的 功能 。 其 取 值 有 : DtAVIVideo( 当 前 播放 设备 可 弹出 媒介 )、DtCDAudio 
(当前 设备 有 媒介 播放 媒介 能 力 )、DtDAT( 当 前 设备 有 媒介 录制 能 力 )、DtDigitalVideo( 当前 
设备 有 媒介 前 进 、 后 退 的 能 力 ) .Dt+MMMovie( 当 前 设备 需 窗口 输出 )。 

(3) Display 属性 : TWinControl 类 型 。 要 在 指定 窗口 播放 时 ,可 通过 该 属性 (默认 为 Nil) 
为 媒体 播放 器 指定 视频 窗口 ,表示 由 播放 设备 创建 一 个 窗口 来 输出 视频 信息 。 

(4) Mode 属性 : TMPModes 类 型 。 其 指定 当前 多 媒体 设备 的 工作 状态 , 取 值 有 : 
mpNotReady( 播 放 设备 未 准备 好 ) .mpStopped( 设 备 为 停止 状态 ).mpPlaying( 设 备 为 播放 状 
态 ) .mpRecording( 设 备 为 录制 状态 ).mpPause( 设 备 为 暂停 状态 ) 和 mpOpen (设备 为 打开 
状态 ) 。 

4) 播放 的 属性 

(1) VisibleButtons 属性 : TMPBtnType 类 型 。 确 定 媒体 播放 控件 中 显示 哪 几 类 按钮 ,其 
值 为 btPlay、btRecord、btStop、btNext、btPrev、btStep、btBack、btPause 和 btEject 的 组 合 。 

(2) AutoEnable 属性 : 布尔 类 型 。 其 值 为 True 时 ,在 多 媒体 程序 运行 时 ,播放 器 按 自 身 
工作 状态 自动 设置 各 按钮 工作 状态 ; 为 False 时 ,各 按钮 工作 状态 由 应 用 程序 管理 。 

(3) AutoRewind 属性 : 布尔 类 型 。 控 制 媒体 播放 器 是 否 自动 重播 ,其 值 为 True 时 , 重 回 
媒体 头 部 播放 。 

(4) TimeFormat 属性 : 因为 媒体 类 型 的 多 样 性 ,需要 以 不 同 的 方式 来 衡量 媒体 的 播放 
量 , 如 播放 时 间 .播放 帧 数 等 。 该 属性 用 于 定义 媒体 播放 器 组 件 的 Start、 Length、StartPos、 
EndPos 属性 的 值 , 取 值 有 : tfMilliSeconds( 组 件 的 Start、Length、StartPos、EndPos 属性 单位 
为 ms) 和 tfFrames( 组 件 的 Start、Length、StartPos、EndPos 属性 单位 为 帧 )。 

(5) Frames 属性 : 确定 播放 器 组 件 的 Step 方法 在 前 进 或 后 退 时 移动 的 帧 数 。 

(6) Position 属性 : 确定 媒体 播放 器 在 媒介 的 当前 位 置 。 

5) 关于 事件 和 方法 的 属性 

(1) Notify 属性 : 布尔 类 型 。 确 定 播放 器 组 件 是 否 产生 OnNotify 事件 ,其 值 为 True 时 ， 
任何 操作 都 产生 OnNotify 事件 ,并 将 此 次 操作 结果 存储 在 组 件 NotifyValue 属性 中 。 

(2) NotifyValue 属性 : TMPNotifyValue 类 型 。 指 定 播 放 器 组 件 的 方法 ,调用 后 操作 的 
可 能 结果 有 : nvSuccessful( 操 作成 功 ) .nvSuperseded( 操 作 暂 停 ) .nvAborted( 操 作 被 用 户 终 
止 ) 和 nvFailure( 操 作 失 败 )。 

2. 媒体 播放 器 的 方法 

(1) Open 方法 : 打开 媒体 播放 设备 。 打 开 前 要 指定 设备 类 型 ,操作 完成 后 产生 OnNotify 
事件 。 应 用 程序 可 检查 组 件 的 Error 属性 和 ErrorMessage 属性 ,以 便 得 到 操作 成 功 或 出 错 的 
类 型 。 

(2) Close 方 法 : 关闭 已 打开 的 媒体 播放 设备 。 

(3) Eject 方 法 : 强制 性 打开 媒体 播放 设备 并 释放 装 和 人 的 媒介 。 

(4) Step、Back 方法 : 指定 媒体 播放 设备 前 进 或 后 退 的 帧 数 。 帧 数 由 组 件 的 Frames 属性 
确定 。 

(5) Play 方法 : 播放 已 打开 设备 中 装 人 媒体 信息 。 

(6) Previous 方法 : 使 设备 处 于 媒体 的 头 部 。 

(7) Save 方 法 : 将 已 装 入 的 媒体 信息 存储 到 FileName 确定 的 文件 中 。 

(8) Stop 方法 : 停止 录制 和 播放 操作 。 
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(9) Pause 方法 : 暂停 录制 或 播放 操作 。 

【 例 7. 10〗 设计 一 个 媒体 播放 器 。 

1) 界面 设计 

创建 一 个 新 的 工程 ,在 窗 体 中 添加 一 个 MediaPlayer 组 件 和 一 个 Panel 组 件 , 5 个 Button 
组 件 ,一 个 OpenDialog 组 件 ,用 户 界面 如 图 7-11 所 示 。 


eae 


图 7-11 “媒体 播放 器 "界面 


2) 属性 设置 
各 组 件 的 属性 设置 如 表 7-5 所 示 。 


表 7-5 窗 体 及 组 件 属性 设置 


对 象 属性 属性 值 说 明 
Forml Caption 媒体 播放 器 窗 体 标题 栏 
MediaPlayer Display Panell Panell 为 播放 器 显示 屏 
OpenDialog1 无 无 无 须 设置 ,默认 值 
Panel Caption 空 面板 标题 
Buttonl Caption 打开 按钮 标题 
Button2 Caption 快 进 按钮 标题 
Button3 Caption 快 退 按钮 标题 
Button4 Caption 暂停 按钮 标题 
Button5 Caption 播放 按钮 标题 
3) 程序 设计 
Pprocedure TForml. Button1Click(Sender: TObject); 
begin 


opendialog1.DefaultExt: = 'AVT'; 

opendialogl. FileName: = '* .avi'; 

if opendialogl. Execute then 

begin 
mediaplayerl. FileName: = opendialog]l .FileName; 
mediaplayerl. Open; 

end; 

end; 


procedure TForm]. Button2Click( Sender: TObject); 
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begin 
mediaplayer1. Next; 
end; 


procedure TForm1. Button3Click(Sender: TObject); 
begin 

mediaplayer!1. Back; 
end; 
procedure TForm1. Button4Click( Sender: TObject); 
begin 

mediaplayer1. Open; 

mediaplayerl. Play; 
end; 


procedure TForm1. Button5Click(Sender: TObject); 
begin 
if button5. Caption = ' 暂 停 ' then 
button5. Caption: = ' 恢 复 ' 
else 
button5. Caption: = ' 暂 停 '; 
mediaplayerl1. Pause; 
end ; 
4) 程序 分 析 
程序 运行 后 , 单 击 “ 打 开 ” 按 钮 ,弹出 对 话 框 ,在 其 中 选择 要 打开 的 文件 。 之 后 ,可 单 击 “ 播 
放 ” 按 钮 开始 播放 。 单 击 “ 快 进 " 和 “后退” 按钮 前 进 或 后 退 (一 帧 )。 如 果 单 击 “ 暂 停 ” 按 钮 , 则 暂 
停 播放 ,同时 按钮 标题 文字 变 为 “恢复 ”, 青 单 击 一 次 , 则 继续 往 后 播放 ,同时 按钮 标题 文字 变 为 
“暂停 "。 


小 结 


多 媒体 技术 一 般 包 括 图 形 、 图 像 的 处 理 以 及 声音 、 动 画 、 视 频 等 处 理 技术 。Delphi XE8 对 
多 媒体 编程 提供 了 强大 的 支持 , 它 可 以 方便 地 绘制 图 形 、 显 示 图 像 、 播 放声 音 以 及 动画 和 视频 
文件 。 本 章 讲 述 了 处 理 图 形 图 像 的 组 件 的 使 用 方法 ,并 且 介 绍 了 音频 与 视频 处 理 技术 。 


习 题 


7-1 ”描述 画布 对 象 常用 的 属性 。 

7-2 ”编制 一 个 时 钟 程序 ,显示 当前 的 系统 时 间 ,利用 Timer 组 件 来 控制 指针 的 转动 。 

7-3 ”描述 使 用 PlaySound 函数 播放 音频 文件 的 过 程 。 

7-4 描述 Media Player 组 件 常用 的 属性 。 

7-5 制作 一 个 简单 的 图 片 浏览 器 

7-6 Hanoi 塔 问题 : 传说 印度 教 的 主神 楚 天 在 创造 世界 时 ,印度 北部 佛教 圣地 贝 拿 勒 斯 
圣 庙 里 ,安放 了 一 块 黄 铜 板 , 板 上 插 着 三 根 针 ,在 其 中 一 根 针 上 自 下 而 上 放 着 由 大 到 小 的 64 个 
金 盘 。 这 就 是 所 谓 的 焚 塔 (Hanoi)。 焚 天 要 僧侣 坚定 不 移 地 按 下 面 的 规则 把 64 个 盘子 移 到 
另 一 根 针 上 。 


(1) 一 次 只 能 移 一 个 盘子 。 

(2) 盘子 只 许 在 三 根 针 上 存放 。 

(3) 永远 不 许 大 盘 压 小 盘 。 

梵天 称 , 当 把 他 创造 世界 时 所 安放 的 64 个 盘子 全 部 移 到 另 一 根 针 上 之 时 ,就 是 世界 毁灭 
之 日 。 请 编制 程序 解决 该 问题 。 程 序 运行 效果 ,如 图 7-12 所 示 。 


7-12 汉 诺 塔 问题 
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动态 链接 库 (Dynamic Link Libraries,DLL) 和 ActiveX 技术 是 Windows 编程 中 两 种 比较 
重要 同时 又 比较 流行 的 技术 。Delphi XE8 对 这 两 种 技术 提供 了 强大 的 支持 ,可 以 方便 快速 地 
创建 DLL 以 及 注册 和 引用 ActiveX。 本 章 将 分 别 介 绍 这 两 种 技术 。 


8.1 动态 链接 库 编程 


8.1.1 动态 链接 库 简 介 

1. 动态 链接 库 简介 

动态 链接 库 是 从 C 语言 函数 库 和 Pascal 库 单元 的 概念 发 展 而 来 的 。 所 有 的 C 语言 标准 
库 函 数 都 存放 在 某 一 函数 库 中 ,在 链接 应 用 程序 的 过 程 中 ,链接 器 从 函数 库 中 复制 程序 调用 的 
函数 代码 ,并 把 这 些 函 数 代码 添加 到 可 执行 文件 中 。 这 种 方法 同 只 把 函数 存储 在 已 编译 的 
.obj 文件 中 相 比 更 有 利于 代码 的 重用 。 但 是 随 着 Windows 这 种 多 任务 环境 的 出 现 ,函数 库 的 
方法 显得 过 于 累 效 。 如 果 每 个 程序 都 不 得 不 拥有 自己 的 函数 ,那么 Windows 程序 将 变 得 十 分 
庞大 。Windows 的 发 展 要 求 允 许 同 时 运行 的 几 个 程序 共享 一 组 函数 的 单一 拷贝 ,动态 链接 库 
技术 就 在 这 种 情况 下 应 运 而 生 了 。 

动态 链接 库 是 一 些 编译 过 的 可 执行 程序 模块 , 它 包 含 代 码 、 数 据 或 资源 ,可 以 在 应 用 程序 
或 其 他 DLL 中 调用 动态 链接 库 的 文件 扩展 名 一 般 为 . dll, 也 可 以 是 . drv( 设 备 驱 动 程序 )、. sys 
(系统 文件 ) 和 . fon( 字 体 文件 )。DLL 应 用 广泛 ,可 以 实现 多 个 应 用 程序 共享 代码 和 资源 ,是 
Windows 程序 设计 中 的 一 个 非常 重要 的 组 成 部 分 。 本 节 将 从 DLL 的 一 些 基 础 知识 讲 起 ,说 
明 如 何在 Delphi XE8 开发 环境 中 创建 和 使 用 DLL。 

2. 动态 链接 库 的 工作 原理 

使 用 普通 的 函数 库 时 ,可 以 在 程序 链接 时 将 库 中 的 代码 复制 到 可 执行 文件 中 ,这 是 一 种 静 
态 链接 。 在 多 个 同样 的 程序 执行 时 ,系统 保留 了 许多 重复 的 代码 副本 ,造成 了 内 存 资 源 的 浪 
费 。 如 果 使 用 DLL, 当 建立 应 用 程序 的 可 执行 文件 时 , 则 不 必 将 DLL 链接 到 程序 中 ,而 是 在 
应 用 程序 运行 时 动态 地 装载 DLL., 装 载 时 DLL 将 被 映射 到 进程 的 地 址 空间 中 。 因 此 ,使 用 
DLL 的 动态 链接 并 不 是 将 库 代码 复制 出 来 ,只 是 在 程序 中 记录 了 函数 的 入 口 点 和 接口 ,在 程 
序 执行 时 才 将 库 代码 装 入 内 存 。 所 以 不 管 多 少 程序 使 用 了 DLL, 内 存 中 都 只 有 该 DLL 的 一 
个 副本 。 当 没有 程序 使 用 它 时 ,系统 就 将 它 移出 内 存 , 减 少 了 对 内 存 和 磁盘 的 要 求 。 由 此 可 
见 , 使 用 DLL 的 一 个 明显 的 好 处 就 是 可 以 节省 系统 资源 

动态 链接 库 属 于 Windows 可 执行 文件 ,但 它 又 不 是 EXE 文件 , 它 不 像 EXE 文件 那样 可 
以 直接 执行 ,DLL 文件 中 包含 的 可 执行 代码 是 由 EXE 文件 调用 的 。 
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3. 动态 链接 库 的 特点 

DLL 最 大 的 特点 就 是 它 的 代码 在 运行 期 间 被 动态 地 链接 至 调用 它 的 程序 中 。 它 不 用 重 
复 编译 或 链接 ,一 旦 装 入 内 存 ,DLL 函数 可 以 被 系统 中 的 任何 正在 运行 的 应 用 程序 所 使 用 , 它 
们 共享 该 DLL 函数 的 单一 拷贝 。 

DLL 中 一 般 由 程序 通用 的 过 程 、 函 数 等 构成 ,当然 也 可 以 包括 各 种 资源 。 使 用 DLL 的 
EXE 文件 在 编译 时 ,编译 器 将 把 程序 中 用 到 的 DLL 文件 中 的 例 程 (函数 .过 程 ) 数据 (图 片 、 
字符 串 等 资源 ) 等 建立 一 个 列表 放 在 EXE 中 。 也 就 是 说 ,在 创建 Windows 应 用 程序 时 ,链接 
过 程 并 不 把 DLL 文件 中 的 例 程 链 接 到 程序 上 ,只 有 当 EXE 文件 运行 并 需要 调用 一 个 DLL 文 
件 中 的 函数 或 过 程 时 ,Windows 才 在 DLL 中 寻找 被 调用 函数 并 把 它 的 地 址 传递 给 调用 程序 。 
这 正 是 “动态 链接 ”的 含义 。 这 样 就 不 需要 在 EXE 文件 中 存放 这 些 代码 ,所 以 EXE 文件 的 体 
积 比 普通 不 使 用 DLL 的 EXE 文件 要 小 ,只 不 过 发 行 时 需要 连同 DLL 文件 一 起 发 行 。 

由 于 DLL 文件 在 内 存 中 仅 装载 一 次 ,因此 可 节约 系统 内 存 ; DLL 文件 独立 于 编程 语言 ， 
也 就 是 说 用 某 种 语言 编写 的 DLL 文件 可 以 被 其 他 的 编程 语言 调用 ,比如 用 Delphi XE8 编写 
的 DLL 可 以 被 VC、VB 等 使 用 。DLL 的 另外 一 个 好 处 就 是 对 DLL 文件 的 升级 和 更 新 是 和 应 
用 程序 无 关 的 ,任何 升级 都 可 以 自动 传播 到 所 有 调用 该 DLL 的 应 用 程序 中 。 


8.1.2 创建 DLL 


可 以 利用 Delphi XE8 提供 的 DLL 模板 轻松 地 创建 一 个 DLL 文件 的 框架 ,开发 人 员 所 需 
要 做 的 就 是 设计 DLL 函数 或 资源 。Delphi XE8 创建 的 框架 为 开发 人 员 屏 项 了 大 量 的 
Windows 实现 细节 ,这 使 得 开发 人 员 可 以 集中 更 多 的 精力 设计 DLL 的 实现 功能 。 

选择 Delphi XE8 主 菜单 的 File| New| Other 命令 ,在 弹出 的 New Items 对 话 框 中 ,如 图 8-1 
所 示 ,选择 Dynamic-link Library 图 标 , 单 击 OK 按钮 ,系统 将 自动 创建 一 个 DLL 项 目 。 


8-1 创建 DLL 向 导 的 对 话 框 


DLL 项 目 文 件 的 主要 格式 如 下 : Application 项 目 文件 的 主要 格式 如 下 : 


Library 项 目 名 ; Program 项 目 名 ; 
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Uses 子 句 ; Uses 子 句 ; 

Exports 子 句 ; // 数 据 接口 函数 Begin // 程 序 执行 体 
Begin // 程 序 执行 体 End 

End 


根据 以 上 的 比较 可 以 看 出 ,DLL 项 目 文件 和 一 般 项 目 文件 主要 存在 以 下 两 个 方面 的 
区 别 。 

(1) Application 项 目 文件 用 Program 关键 字 作 程序 头 , 而 DLL 项 目 文件 用 Library 关键 
字 作 程序 头 , 因 此 编译 器 会 根据 不 同 的 关键 字 来 生成 不 同 的 可 执行 文件 。 用 Program 关键 字 
生成 的 是 . exe 文件 ,而 Library 关键 字 生 成 的 是 . dll 文件 。 

(2) 第 二 个 区 别 是 DLL 非常 重要 的 关键 字 ,DLL 提供 接口 都 是 通过 此 关键 字 来 实现 的 ， 
那 就 是 Exports 关键 字 。 在 DLL 项 目 文件 中 ,将 想 要 输出 的 函数 或 过 程 , 列 在 Exports 子 句 
中 ,就 可 以 实现 输出 了 。 

用 关键 字 Exports 引出 函数 或 过 程 ,表明 编译 时 要 使 用 远程 地 址 调用 ,使 得 函数 或 过 程 在 
DLL 内 可 被 其 他 模块 访问 。Exports 有 如 下 几 种 形式 。 

(1) exports 例 程 名 ; // 名 字 引 出 

(2) exports 例 程 名 index 索引 值 ; // 索 引 值 引出 

index 用 来 指示 为 一 个 函数 或 过 程 分 配 一 个 顺序 号 ,其 值 的 范围 是 为 1 一 32 767。 如 果 不 
使 用 index 指示 , 则 由 编译 器 按 顺序 自动 进行 分 配 , 使 用 index 可 以 加 速 应 用 程序 的 调用 过 程 。 

(3) exports 例 程 名 name 别名 ; // 别 名 引出 

name 后 面 接 的 是 字符 串 常量 ,用 来 指出 该 过 程 或 函数 的 输出 名 。 用 name 指示 后 ,其 他 
应 用 程序 必须 用 新 名 字 ( 别 名 ) 调 用 该 过 程 或 函数 ,否则 将 无 法 调用 。 

(4) exports 例 程 名 name 别名 resident ”//resident 选项 

使 用 resident, 当 DLL 加 载 时 ,输出 信息 始终 保存 在 内 存 中 ,这 样 当 其 他 应 用 程序 使 用 该 
例 程 时 ,可 以 比 利 用 别名 扫描 DLL 入 口 减少 时 间 和 系统 开销 ,因此 resident 特别 适用 于 那些 
经 常 被 调用 的 过 程 或 函数 。 

下 面 举例 说 明 如 何 使 用 Delphi XE8 的 模板 创建 DLL 文件 。 

【 例 8.1】 创建 一 个 实现 角度 转换 为 弧度 功能 的 DLL 文件 。 首 先 ,选择 File| New|Other 
命令 ,在 弹出 的 New Items 对 话 框 中 ,如 图 8-1 所 示 , 选 择 DLL Wizard 图 标 , 单 击 OK 按钮 ， 
打开 一 个 工程 代码 窗口 ,其 内 容 如 下 : 

library Project1; //DLL 工程 的 工程 名 

{ Important note about DLL memory management :下面 的 内 容 省 略 } // 关 于 DLL 的 注释 

eld Classes; // 默 认 加 载 的 库 单元 

{S$SR * .res} 

begin 

end 

第 一 行 代码 说 明 这 个 工程 文件 是 DLL 类 型 的 ,其 自动 命名 的 工程 名 为 Projectl ,可 以 修 
改 该 工程 名 ,例如 本 例 中 就 将 其 改 为 AngToArcDLL,USE 部 分 是 系统 默认 自动 添加 的 库 单 
元 ,如 果 确 定 用 不 到 这 两 个 单元 可 以 去 掉 它 。 同 时 还 可 以 像 设 计 EXE 工程 一 样 ,在 这 里 添加 
任何 所 需要 的 库 单元 。begin 和 end 之 间 用 来 写 DLL 运行 时 的 启动 代码 ,一 般 情况 下 ,无 须 在 
此 处 写 任何 代码 。 
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下 面 是 将 工程 名 改 为 AngToArcDLL 并 且 设 计 了 一 个 可 以 被 外 部 调用 的 函数 
FunAngToArc 的 完整 代码 。 

library AngToArcDLL; //DLL 的 工程 名 

{ Important note about DLL memory management: 下 面 的 内 容 省 略 } // 关 于 DLL 的 注释 

i Classes; 

{$R*.res} 

function FunAngToArc( d:double) :double; stdcall ; // 函 数 的 书写 形式 

begin 

result: = d/190.0* pi; 
end; 
exports // 该 关键 字 表 明 下 面 将 列 出 需要 输出 的 函数 
FunAngToArc; 

begin 

end 

在 上 面 的 代码 中 ,设计 了 函数 FunAngToArc 的 实现 ,该 函数 有 一 个 参数 d, 该 参数 值 将 由 
调用 程序 给 出 。 在 函数 声明 部 分 后 边 的 关键 字 stdcall 是 不 能 缺少 的 , 它 指定 了 函数 的 调用 方 
式 。 函 数 的 其 余 实现 没有 任何 特殊 的 要 求 。 

另外 一 个 重要 的 关键 字 是 Exports。 在 DLL 中 设计 的 函数 或 过 程 ,如 果 需 要 被 外 部 的 应 
用 程序 调用 ,就 必须 在 Exports 后 面 输出 ,输出 的 方式 为 直接 书写 该 函数 或 过 程 的 名 称 即 可 。 
如 果 有 多 个 例 程 (函数 .过 程 等 ) 需 要 输出 ,依次 书写 在 下 面 。 没 有 书写 在 Exports 下 面 的 例 
程 ,表示 该 例 程 仅 在 DLL 工程 内 部 使 用 ,不 能 被 外 部 应 用 程序 调用 。 

设计 DLL 最 后 一 步 是 将 该 工程 文件 编译 并 存盘 。 方 法 同 EXE 文件 相同 。 保 存 时 需要 使 
用 修改 后 的 工程 名 作为 文件 名 ,否则 会 导致 编译 不 通过 。 被 编译 完成 的 DLL 应 该 在 应 用 程序 
所 在 的 目录 文件 夹 下 生成 一 个 DLL 文件 。 例 如 ,本 例 的 DLL 文件 名 称 为 AngToArcDLL. dll。 

下 面 将 介绍 如 何 调用 生成 的 DLL 文件 。 


8.1.3 DLL 文件 的 静态 调用 


DLL 文件 的 调用 一 般 有 两 种 方法 , 即 静 态 调用 方法 和 动态 调用 方法 。 静 态 调 用 方式 ,就 
是 在 本 单元 的 Interface 部 分 用 External 指示 字 列 出 要 从 DLL 中 调用 的 过 程 ; 动态 调用 方式 
是 通过 调用 Windows API 中 的 LoadLibrary 函数 、GetProcAdrress 函数 和 FreeLibrary 函数 
来 实现 DLL 文件 的 动态 调用 。 

1. 静态 调用 

静态 调用 又 称 为 隐 式 加 载 方 式 , 它 是 通过 单元 体 中 Interface 部 分 的 External 指示 字 所 列 
出 需要 调用 DLL 文件 的 过 程 或 函数 。 这 些 被 指定 的 DLL 文件 中 的 过 程 是 在 程序 执行 之 前 被 
加 载 进 内 存 的 。 

静态 调用 方式 比较 简单 ,在 使 用 DLL 中 的 函数 或 过 程 之 前 , 先 引 入 DLL 中 的 函数 或 过 
程 。 引入 DLL 中 的 例 程 一 般 有 以 下 三 种 方法 。 

(1) 通过 过 程 名 或 函数 名 来 调用 : 


function funcName( 参 数 ): DataType;tdcall ;external 'DLL 文件 名 ' 
(2) 通过 过 程 或 函数 的 别名 来 调用 : 


function funcName( 参 数 ): DataType; stdcall ;external 'DLL 文件 名 ' name ' 别 名 ' 
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(3) 通过 过 程 或 函数 的 索引 来 调用 : 


function funcName( 参 数 ): DataType; stdcall ;external 'DLL 文件 名 ' index n 


后 两 种 调用 方式 给 用 户 编程 提供 了 很 大 的 灵活 性 ,增加 了 CPU 执行 DLL 的 速度 。 
在 Delphi XE8 中 ,存在 一 个 调用 约定 的 问题 。 调 用 约定 就 是 指 调用 例 程 时 参数 的 传递 顺 


序 ,在 Delphi XE8 中 DLL 支持 的 调用 约定 如 表 8-1 所 示 。 


表 8-1 DLL 支持 的 调用 约定 


调用 约定 参数 传递 顺序 
Register 从 左 到 右 
Pascal 从 左 到 右 
Stdcall 从 右 到 左 
Cdecl 从 右 到 左 
Safecall 从 右 到 左 


使 用 Stdcall 方式 ,能 够 保证 不 同 语言 写 的 DLL 的 兼容 性 ,同时 它 也 是 Windows API 的 


约定 调用 方式 ; Safecall 适合 于 声明 OLE 对 象 中 的 方法 。 


但 是 使 用 静态 调用 方式 ,有 两 个 缺点 。 一 是 当 要 加 载 的 DLL 文件 不 存在 或 者 该 DLL 文 
件 中 没有 指定 调用 的 过 程 时 ,程序 就 会 自动 停止 运行 ,或 可 能 致使 程序 出 错 ; 二 是 一 旦 所 需 的 


DLL 文件 被 加 载 至 内 存 后 ,即使 该 DLL 文件 已 经 不 再 需要 了 ， 


其 仍然 停留 在 应 用 程序 的 地 址 空间 中 。 
2. 静态 调用 的 使 用 
【 例 8.2】 DLL 文件 的 静态 调用 示例 。 


1) 界面 设计 


使 用 两 个 Label 组 件 、 两 个 Edit 组 件 、 一 个 Buttton 组 件 。 
具体 的 界面 设计 如 图 8-2 所 示 。 


2) 属性 设置 


各 组 件 属性 如 表 8-2 所 示 。 


表 8-2 各 组 件 属性 


图 8-2 动态 链接 库 静 态 调用 


对 象 属性 属性 值 说 明 

Forml Caption DLL 文件 静态 调用 窗 体 的 标题 
BorderStyle bsDialog 对 话 框 风格 

Labell Caption 角度 值 标签 的 标题 
Label2 Caption 弧度 值 标签 的 标题 
Editl Text 空 文本 内 容 为 空 
Edit2 Text 空 文本 内 容 为 空 
Buttonl Caption 静态 调用 按钮 标题 
3) 程序 设计 
implementation 
{$R *.dfm} 
// 关 键 分 析 1 


Function FunAngToArc(d:double) :double; stdcall ;external 'AngToArcDLL.dll'; 1 
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Procedure Tform1. Button1Click(Sender: TObject); 

es = floattostr(FunAngToArc(strtofloat(edit1. text))) ; ”// 关 键 分 析 2 

end; 

4) 程序 分 析 

关键 分 析 1: 静态 调用 需要 首先 指明 DLL 工程 所 在 的 位 置 以 及 需要 调用 的 例 程 的 名 称 和 
形式 。 这 种 调用 方式 DLL 在 程序 运行 之 前 就 被 装 入 ,因此 如 果 调 用 一 个 不 存在 的 DLL 或 调 
用 的 例 程 不 存在 则 应 用 程序 无 法 运行 。 该 部 分 声明 的 位 置 可 以 在 应 用 程序 的 implementation 
之 后 ,声明 的 函数 必须 和 在 DLL 中 声明 的 相同 。External 关键 字 表明 这 是 一 个 外 部 调用 ,如 
果 不 指 定 外 部 DLL 所 在 的 位 置 , 则 应 用 程序 按照 下 面 的 路 径 顺序 进行 搜索 。 

(1) 当前 目录 ; 

(2) Windows 目录 , 卫 数 GetWindowDirectory 返回 这 一 目录 的 路 径 ; 

(3) Windows 系统 目录 ,了 清 数 GetSystemDirectory 返回 这 一 目录 的 路 径 ， 

(4) 包含 当前 任务 可 执行 文件 的 目录 ,以 及 列 在 PATH 环境 变量 中 的 目录 等 。 因 此 可 以 
将 DLL 放置 在 上 面 的 任何 目录 下 。 

当然 也 可 以 直接 指定 搜索 DLL 的 目录 ,例如 “C:\Windows\DLL 文件 名 ”。 

关键 分 析 2: 在 该 事件 中 只 有 一 句 代码 ,通过 声明 的 函数 FunAngToArc 将 editl 中 的 输 
入 数值 转换 为 double 类 型 后 传人 到 DLL 函数 内 部 ,系统 会 根据 在 关键 分 析 2 中 指定 的 DLL 
中 调用 相应 的 同名 函数 ,如 前 所 述 ,实际 上 在 系统 运行 之 前 ,应 用 程序 已 经 将 需要 使 用 到 的 
DLL 装 入 到 了 内 存 中 ,因此 这 里 如 同 运行 已 经 装载 的 其 他 函数 一 样 。 函 数 运算 后 的 返回 值 将 
显示 在 edit2 中 。 


8.1.4 DLL 文件 的 动态 调用 


虽然 静态 调用 DLL 非常 方便 ,但 并 不 是 最 好 的 方式 。 假 设 一 个 DLL 含有 许多 的 例 程 ,如 
果 把 整个 DLL 都 载 人 内 存 显然 是 很 浪费 的 ,所 以 用 动态 调用 就 比较 合理 了 。 

1. 动态 调用 

动态 调用 又 称 为 显 式 加 载 方式 , 它 可 以 解决 静态 调用 中 存在 的 局 限 性 。 动 态 调用 不 需要 
在 单元 体 Interface 部 分 中 把 需要 调用 的 所 有 DLL 过 程 都 列 出 ,其 只 要 在 调用 前 引用 ,并 且 使 
用 LoadLibrary 函数 指定 需要 加 载 的 DLL 文件 ,使 用 GetProcAddress 函数 指定 所 调用 的 过 
程 或 函数 ,并 返回 该 过 程 或 函数 的 入 口 地 址 ,使 用 FreeLibrary 函数 实现 将 该 函数 从 内 存 中 移 
除 。 此 外 ,如 果 指 定 的 DLL 文件 出 错 , 不 会 导致 程序 终止 运行 。 

动态 调用 DLL 主要 用 到 了 三 个 Win32 API 函数 : LoadLibrary ( )、FreeLibrary ()、 
GetProcAddress()。 下 面 简要 叙述 一 下 这 三 个 API 的 声明 和 参数 说 明 。 

(1) Loadlibrary() :把 指定 库 模 块 装 和 内存。 

其 使 用 的 语法 为 : 


function Loadlibrary(LibFileName: PChar) : THandle; 
LibFileName 指定 了 要 装载 DLL 的 文件 名 , 如果 LibFileName 没有 包含 一 个 路 径 , 则 


Windows 按 下 述 顺 序 进行 查找 : 当前 目录 ; Windows 目录 ; Windows 系统 目录 ; 包含 当前 任 
务 可 执行 文件 的 目录 。 列 在 PATH 环境 变量 中 的 目录 以 及 网 络 的 映像 目录 列表 。 
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如 果 函 数 执行 成 功 , 则 返回 装载 库 模 块 的 实例 句柄 。 否 则 ,返回 一 个 小 于 HINSTANCE_ 
ERROR 的 错误 代码 以 指明 错误 的 种 类 。 

假如 在 应 用 程序 中 用 Loadlibrary 调用 某 一 模块 前 ,其 他 应 用 程序 已 把 该 模块 装 入 内 存 ， 
则 Loadlibrary 并 不 会 装载 该 模块 的 另 一 实例 ,而 是 使 该 模块 的 “引用 计数 "加 1。 这 样 就 保证 
了 在 本 章 开 始 介绍 DLL 的 特点 时 提 到 的 DLL 在 内 存 中 仅 被 装载 一 次 ,所 有 的 应 用 程序 都 共 
享 这 一 个 单一 的 拷贝 。 

(2) GetProcAddress: 取得 给 定 模块 中 函数 的 地 址 。 

语法 为 : 


function GetProcAddress(Module: THandle; ProcName: PChar): TFarProc; 


Module 包含 被 调用 的 函数 库 模 块 的 句柄 ,这 个 值 由 Loadlibrary 返回 。 如 果 把 Module 
设置 为 nil, 则 表示 要 引用 当前 模块 。 

ProcName 是 指向 含有 函数 名 的 以 nil 结尾 的 字符 串 的 指针 ,该 字符 串 指 针 中 所 含有 的 函 
数 名 的 拼写 必须 与 动态 链接 库 文件 exports 中 的 对 应 拼写 相 一 致 ,否则 会 出 错 。 注 意 这 里 使 
用 的 是 pchar 类 型 ,而 不 是 在 Delphi XE8 中 常用 的 string 类 型 。 如 果 GetProcAddress 执行 
成 功 , 则 返回 模块 中 函数 入 口 处 的 地 址 ,否则 返回 nil。 

(3) Freelibrary(): 从 内 存 中 移出 库 模块 。 

语法 为 : 


Procedure Freelibrary(Module : THandle); 


Module 为 库 模块 的 句柄 。 这 个 值 由 Loadlibrary 返回 。 由 于 库 模 块 在 内 存 中 只 装载 一 
次 ,因而 调用 Freelibrary 首先 使 库 模块 的 引用 计数 减 1。 如 果 引 用 计数 减 为 0, 则 印 出 该 模 
块 。 每 调用 一 次 Loadlibrary 就 应 调用 一 次 Freelibrary, 以 保证 不 会 有 多 余 的 库 模 块 在 应 用 程 
序 结束 后 仍 留 在 内 存 中 。 

2. 动态 调用 的 使 用 : 


各 DL 文件 动态 油 用 
【 例 8.3】 DLL 文件 的 动态 调用 示例 。 
1) 界面 设计 角度 值 : | 
使 用 两 个 Label 组 件 、 两 个 Edit 组 件 , 一 个 Buttton 组 件 。 | 亚 度 什 : 
具体 的 界面 设计 如 图 8-3 所 示 。 


2) 属性 设置 


各 组 件 属性 如 表 8-3 所 示 。 图 8-3 动态 链接 库 动态 调用 


表 8-3 各 组 件 属性 


对 象 属性 属 性 值 说 明 
Bad Caption DLL 文件 动态 调用 窗 体 的 标题 
BorderStyle bsDialog 对 话 框 风格 
Labell Caption 角度 值 标签 的 标题 
Label2 Caption 弧度 值 标签 的 标题 
Editl Text 空 文本 内 容 为 空 
Edit2 Text 空 文本 内 容 为 空 
Buttonl Caption 动态 调用 按钮 标题 
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3) 程序 设计 


Type 
// 定 义 函 数 类 型 
TFunAngToArc = function (d:double) :double; stdcall ; // 关 键 分 析 1 
procedure Tforml. Button2Click(Sender: TObject); 
var 
pfunc:TFarProc; 
hdl :THAndle; 
begin 
// 将 指定 动态 链接 库 装 和 人 内存 ,返回 动态 链接 库 句柄 
hdl: = loadlibrary( 'AngToArcDLL. d11'); 
if hdl>32 then 


begin 
pfunc: = getprocaddress(hdl, 'FunAngToArc'); // 得 到 具体 函数 地 址 
edit2.Text: = floattostr(TFunAngToArc(pfunc) (strtofloat(editl. Text))); // 关 键 分 析 2 
end; 
freelibrary(hdl); // 释 放 动 态 链 接 库 占用 的 内 存 
end; 
4) 程序 分 析 
动态 调用 的 方法 和 静态 调用 的 方法 有 些 不 同 , 它 需要 使 用 到 三 个 API 函数 。 另 外 不 同 于 
静态 调用 的 特点 是 动态 调用 是 在 程序 运行 之 后 才 决 定 调用 的 函数 ,因此 如 果 调 用 失败 ,应 用 程 


序 仍然 可 以 运行 ,只 是 得 不 到 预期 的 结果 。 

关键 分 析 1: 该 部 分 声明 的 位 置 可 以 在 应 用 程序 的 implementation 之 后 ,当然 也 可 以 在 
其 之 前 。 主 要 作用 是 定义 一 个 函数 类 型 TfunAngToArc。 定 义 该 类 型 的 目的 是 在 后 面 得 到 函 
数 的 引用 地 址 后 ,强制 转换 为 函数 , 才 可 以 进行 参数 的 传递 和 得 到 返回 值 。 

关键 分 析 2: 因为 函数 GetProcAddress 返回 的 是 一 个 函数 指针 ,因此 必须 对 其 进行 强制 
类 型 转换 ,类 型 转换 就 使 用 前 面 定义 的 函数 类 型 ,因此 有 下 面 的 转换 形式 ， 


TFuNnAngToArc(pfunc) ( strtofloat(edit1.Text) 。 


8.2 ActiveX 编程 


ActiveX 控件 是 一 个 典型 的 COM 对 象 , 它 能 够 集成 到 支持 ActiveX 的 程序 如 C++ 
Builder,Delphi XE8,VB,VC 等 中 运行 。ActiveX 控件 可 以 是 一 个 简单 的 文本 框 , 也 可 以 是 一 
个 复杂 的 电子 表格 。Delphi XE8 使 创建 ActiveX 控件 非常 容易 ,这 是 因为 Delphi XE8 完全 支 
持 COM 的 体系 结构 。 本 节 将 介绍 如 何 基于 已 有 的 VCL 控件 创建 新 的 ActiveX 控件 ,同时 介 
绍 如 何 注册 .安装 和 使 用 新 的 ActiveX 控件 。 


8.2.1 创建 ActiveX 控件 Button 


运用 Delphi XE8 提供 ActiveX 框架 来 创建 ActiveX 控件 ,实际 上 就 是 把 已 有 的 基于 
TwinControl 的 控件 转换 为 ActiveX 控件 。 下 面 通过 将 Tbutton 控件 转换 为 ActiveX 控件 并 
添加 一 个 新 的 属性 来 介绍 创建 的 过 程 。 其 步骤 如 下 。 

(1) 从 Delphi XE8 菜单 中 选择 File| New | Other 命令 打开 New Items 对 话 框 ,打开 
ActiveX 页 ,然后 选择 ActiveX Control 图 标 ,如 图 8-4 所 示 。 


[本 
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the ActiveX control wizard to wrap any VCL control with an 
control to be hosted by any ActiveX container. An ActiveX 
must be added to an ActiveX lbrary. 


CDCeeCe| 


8-4 New Items 对 话 框 的 ActiveX 页 


(2) 单 击 OK 按钮 ,显示 ActiveX 控制 向 导 , 如 图 8-5 所 示 。 


Interface: TrButtonx 
Options 
TIndude version information 


Ce Eee 


8-5 ”ActiveX 控制 向 导 


在 Component Name 框 内 选择 组 件 模板 上 的 一 个 可 视 组 件 ,这 里 选择 TButton。 然 后 在 
CoClass Name 框 内 输入 要 创建 的 ActiveX 控件 名 ,通常 最 后 一 个 字母 是 大 写 的 X。 也 可 以 接 
受 默认 的 控件 名 ,如 : TButtonX。 

在 Component Name 列表 框 中 并 没有 包含 所 有 的 VCL 控件 ,只 有 符合 下 面 三 个 条 件 的 
VCL 控件 才 会 被 列 出 来 。 一 是 该 VCL 控件 必须 已 经 安装 到 了 组 件 面 板 上 ; 二 是 该 控件 必须 
继承 于 TwinControl; 最 后 一 个 条 件 是 该 控件 没有 调用 过 RegiserNonActiveX()。 许 多 标准 
的 ActiveX 控件 无 法 转换 为 ActiveX 控件 ,其 中 有 些 是 因为 转换 起 来 没有 意义 , 例如 
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TDBGrid, 它 需要 和 另外 一 个 控件 TdataSource 一 起 才 可 以 工作 。 另 外 一 些 是 因为 转换 起 来 
比较 费力 , 例 TtreeView ,因为 比较 难于 表现 它 的 节点 。 

在 Threading Model 中 显示 用 于 选择 线程 的 模式 ,可 以 选择 Apartment, Free, Single 或 
Both 。 

如 果 选 中 Include version information 复 选 框 ,表示 要 在 ActiveX 控制 中 包含 版 本 信息 。 

(3) 单 击 OK 按钮 。Delphi XE8 将 创建 下 面 的 文件 。 

@@ ActiveX 项 目 文件 : ButtonXControll. DPR 。 

@ 类 型 库 文件 : ButtonXControll. TLB。 

@ 类 型 库 的 接口 源 文件 : ButtonXControll_TLB. pas。 

@ ActiveX 接口 实现 单元 文件 : ButtonImpl1. PAS。 

在 上 面 这 4 个 生成 的 文件 中 ,其 中 项 目 文件 ButtonXControll. DPR 是 由 ActiveX 自动 生 
成 并 维护 的 ,一 般 不 需要 手工 修改 它 。 项 目 文 件 是 ActiveX Library 类 型 的 工程 文件 ,编译 后 
将 生成 OCX 文件 。 

类 型 库 文件 ButtonXControll. TLB 是 一 个 特殊 的 文件 ,在 IDE 中 不 能 直接 查看 该 文件 ， 
它 是 一 个 二 进 制 文件 ,需要 用 View| Type Library| Type Library 编辑 器 进行 查看 和 修改 。 类 
型 库 文 件 ButtonXControll. TLB 对 应 于 类 型 库 的 接口 源 文件 : ButtonXControll _TLB. pas。 
这 个 文件 是 类 型 库 文件 的 object Pascal 的 外 套 , 不 要 直接 修改 它 ,因为 该 文件 是 由 Type 
Library 编辑 器 进行 维护 ,即使 修改 了 这 个 文件 ,刷新 类 型 库 时 仍 会 忽略 修改 。 

ActiveX 接口 实现 单元 文件 ButtonImpl1. PAS 定义 了 ActiveX 控件 的 属性 、 方 法 和 事件 
的 实现 。 如 果 要 给 实现 的 控件 添加 新 的 属性 ,方法 或 事件 , 则 需要 修改 该 文件 。 


8.2.2 添加 新 属性 


下 面 以 添加 一 个 新 的 Mycaption 属性 为 例 , 该 属性 显示 控件 实例 的 创建 时 间 。 下 面 介绍 
如 何 为 转换 的 控件 添加 新 的 属性 。 

要 给 接口 增加 属性 或 方法 ,需要 用 View|Type Library | Type Library 编辑 器 ,同时 在 
IButtonX 上 单 击 鼠标 右键 ,选择 New|Property 命令 ,如 图 8-6 所 示 。 


伙 welcome page| 园 projedl| 国 Unitt vx 


全 司 和 让 导 村 久 和 守旧 时 | 日 


4 ett Attributes |Flags | 
令 New » | Interface Teuttonx 
S TDr cut 人 @ Dispinterface 们 34A7648-5DE9- 午 不 -9072-C266994EE3E2} 
Txh copy 态 coclass 0.0 
To Paste 名 Enum [FE 3| 
篇 PPuser| Delete 镀 Aias 
合 Record 
Expand All | Dispatch nterface for TButtonX Control 
ee All @ Module 
View Errors 
Method 
V Toolbar 
4 套 Property 
Pom 21: 40 Insert Modified Code |Design| History 


8-6 ”添加 新 属性 示意 图 
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单 击 该 菜单 项 后 ,将 弹出 如 图 8-7 所 示 的 对 话 框 。 


僵 welcome page| 加 projecti| uu [可 vx 
分 令 业 名 舌 村 字 辣 | 衣 古 "| 旧 时 | 目 


58) ParentCustomHin ^ | Attibutes |parameters | Flaos 
ParentCustomHin 
寺 SetSubComponen Name: Mycaption 
向 DisposeOf 
如 QualifiedClassNan Wid 
昌 Unitscope Type: _int54 ~ 
克 Mycaption 
名 Mycaption he Kind: | Property Put ~ 
令 ITButtonXEvents 
Help 
TButtonX 
-条 TxDragMode Help Sting: 
-入 TrlmageAlignment Help Context: 
TxCustomButton_TButto| 了 
TxMouseButton 所 Help String Context: 
篇 PPUserTypel Es 
4 WD 上 
bem 21: 40 ”Insert Modified Code |Design| History 


8-7 添加 新 属性 


添加 属性 Mycaption ,其 Type( 数 据 类 型 ) 选 择 BSTR。 相 当 于 WideString 类 型 。 可 以 看 
到 在 左 侧 的 树 型 列表 框 中 增加 了 两 个 Mycaption。 通 过 查看 ButtonXControll_TLB. pas 文 
件 , 可 以 在 IbuttonX 接口 的 声明 中 看 到 这 样 的 声明 : 


property Mycaption: WideString read Get Mycaption write Set_ Mycaption; 


其 中 ,Get_Mycaption 和 Set_Mycaption 是 属性 Mycaption 的 访问 方法 ,在 ActiveX 接口 实现 
单元 文件 ButtonImpll. PAS 中 可 以 看 到 增加 了 这 两 个 例 程 的 实现 形式 : 


function TButtonX. Get_Mycaption: WideString; 
begin 
// 可 以 添加 这 样 的 代码 : result: = ' 创 建 时 间 ' + formatdatetime('yyyy- m-d',now); 
end; 
Procedure TButtonX. Set_Mycaption(const Value: WideString); 
begin 
// 可 以 添加 这 样 的 代码 : fDelphi XE8control. Caption: = value; 
end; 
其 中 注释 的 部 分 为 响应 用 户 对 该 属性 的 改变 的 代码 。 也 可 以 添加 其 他 形式 的 代码 。 
选择 Project| Build ButtonXControll 命令 ,就 可 以 生成 ButtonXControll. ocx 文件 了 。 
此 时 可 以 选择 Run| Register ActiveX Server 将 它 注册 到 系统 注册 表 中 。 注 册 以 后 ,就 可 以 在 
Import ActiveX Control 对 话 框 中 的 组 件 表 中 看 到 它 了 。 该 对 话 框 可 以 通过 component | 
import component 命令 打开 ,如 图 8-8 所 示 。 
如 果 没 有 先 注册 ActiveX 控件 , 则 在 组 件 列表 中 看 不 到 它 , 可 以 单 击 Add 按钮 将 其 加 进 
来 ,使 用 Add 时 实际 也 是 执行 了 注册 操作 。 下 面 将 介绍 如 何 添 加 ActiveX 控件 到 应 用 程 
序 中 。 
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© Importa Type Lbrary 
® Import ActiveX Control 
© Import .NET Assembly 


8-8 Import ActiveX Control 


8.2.3 ActiveX 的 使 用 


一 般 在 下 列 两 种 情况 下 考虑 使 用 ActiveX 控件 。 

(1) 没有 合适 的 Delphi XE8 组 件 可 以 使 用 时 。 

(2) 想 使 用 多 种 编程 语言 进行 开发 , 想 在 多 个 开发 平台 间 共 享 一 些 控件 时 。 

但 需要 注意 的 是 ,尽管 ActiveX 控件 可 以 无 颖 地 集成 到 Delphi XE8 的 IDE 中 ,但 在 应 用 
程序 中 使 用 ActiveX 控件 也 有 缺点 。 最 明显 的 问题 是 ,Delphi XE8 本 身 的 组 件 可 直接 内 建 在 
应 用 程序 的 可 执行 文件 中 , 它 可 以 和 应 用 程序 中 的 其 他 组 件 直接 通信 ,但 ActiveX 控件 是 通过 
COM 与 应 用 程序 通信 的 ,所 以 它 的 速度 没有 Delphi XE8 自 带 的 组 件 快 。 

当 ActiveX 控件 安装 到 Delphi XE8 后 ,ActiveX 控件 就 会 出 现在 Delphi XE8 组 件 面板 的 
ActiveX 页 中 ,我 们 就 可 以 像 使 用 Delphi XE8 组 件 一 样 来 使 用 ActiveX 控件 。 把 ActiveX 控 
件 安装 到 Delphi XE8 组 件 面板 的 步骤 如 下 。 

(1) 单 击 菜单 component|import activex control。 

(2) 新 窗口 的 上 半 部 显示 了 在 系统 中 已 经 注册 过 的 ActiveX 控件 的 列表 。 例 如 ,如 果 前 
面 已 经 注册 了 Button XControll. ocx, 则 在 该 列表 中 会 出 现 该 控件 。 如 果 该 ActiveX 控件 还 
没有 注册 , 单 击 Add 按钮 ,然后 在 某 个 文件 夹 中 选择 这 个 控件 的 OCX 文件 , 单 击 Open 按钮 ， 
就 完成 注册 了 。 

(3) 注册 后 ,在 窗口 的 下 半 部 就 可 以 安装 已 注册 过 的 ActiveX 控件 。 首 先 在 窗口 上 半 部 
的 列表 中 选择 该 ActiveX 控件 ,在 下 半 部 指定 单元 文件 名 .组 件 面板 的 页 标签 (默认 是 
ACTIVEX 页 ) 、 搜 索 路 径 以 及 封装 OCX 的 类 名 (这 些 都 可 用 默认 值 ), 然 后 单 击 Install 或 
Create 按钮 ,会 打开 Install 对 话 框 ,选择 安装 组 件 的 包 , 这 里 可 以 选择 一 个 已 有 的 包 来 安装 该 
控件 ,也 可 创建 一 个 新 的 包 来 安装 该 控件 。 
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(4) 单 击 OK 按钮 ,该 ActiveX 控件 就 安装 到 组 件 面板 中 了 。 

当 ActiveX 控件 放 到 组 件 面板 上 后 , 它 的 用 法 就 和 普通 的 Delphi XE8 组 件 没有 什么 区 别 
了 。 可 以 拖 放 , 也 可 以 用 Object Inspector 面板 设置 ActiveX 控件 的 属性 。 

例如 , 当 将 上 面 设计 的 ActiveX 控件 Button XControll 拖 放 到 某 个 主 窗 体 上 时 ,可 以 使 用 
它 全 部 的 Button 属性 和 方法 以 及 事件 , 同 普通 的 Button 没有 区 别 。 另 外 不 同 的 是 ,该 控件 会 
比 普 通 的 Button 多 出 一 个 Mycaption 属性 ,该 属性 的 默认 值 将 显示 该 控件 的 创建 时 间 , 这 正 
是 设计 该 控件 时 所 增加 的 属性 。 也 可 以 像 修改 其 他 属性 一 样 来 修改 该 属性 的 值 。 


小 结 


本 章 重点 介绍 了 动态 链接 库 和 ActiveX 技术 。 动 态 链接 库 的 最 大 特点 是 不 用 重复 编译 或 
链接 ,其 一 旦 装 和 内存, 就 可 以 被 系统 中 的 任何 正在 运行 的 应 用 程序 所 使 用 , 它 属于 Windows 
可 执行 文件 。8. 1 节 简 要 介绍 了 DLL 文件 的 创建 与 调用 的 方法 。8. 2 节 主 要 介绍 了 如 何 基 于 
已 有 的 VCL 控件 创建 新 的 ActiveX 控件 ,以 及 ActiveX 控件 的 注册 ,安装 与 使 用 。 


习 题 


8-1 简 述 动态 链接 库 (DLL) 的 原理 。 

8-2 动态 链接 和 静态 链接 有 何 区 别 ? 动态 链接 有 什么 优点 ? 

8-3 ”如何 创建 DLL? 

8-4 如 何 调用 DLL? 

8-5 创建 动态 链接 库 sushu. dll ,要 求 在 sushu. dll 库 中 编写 一 个 函数 : 

function sushu(a: integer) :Boolean; 

begin 

end; 

此 函数 将 判断 参数 a 是 不 是 素数 ,如 果 是 将 返回 EE | 
True, 和 否则 返回 False。 编 写 一 个 程序 ,界面 设置 如 图 8-9 
所 示 ,调用 动态 链接 库 sushu. dll 中 的 sushu 函数 ,判断 任 ”|| 请 任意 答 入 一 个 型 数 
意 输入 一 个 整数 是 否 为 素数 ,要 求 使 用 静态 调用 和 动态 调 
用 两 种 方式 。 

8-6 DLL 与 EXE 文件 有 什么 区 别 ? 

8-7 在 Delphi XE8 环境 中 ,什么 情况 下 使 用 ActiveX 
控件 ? 

8-8 在 Delphi XE8 中 如 何 安装 ActiveX 控件 ? 

8-9 在 Delphi XE8 中 如 何 使 用 ActiveX 控件 ? 

8-10 在 Delphi XE8 中 如 何 创建 ActiveX 控件 ? 


8-9 动态 链接 库 的 使 用 


Delphi XE8 数据 库 编程 


数据 库 管理 系统 是 与 操作 系统 同等 重要 的 软件 平台 。 没 有 它 的 帮助 ,许多 简单 的 工作 将 
变 得 效率 低下 .错误 百出 ,甚至 难以 实现 。 无 论 是 银行 医院, 学校. 车 站 和 超市 ,还 是 日 益 火爆 
的 互联 网 线 上 服务 ,都 离 不 开 数 据 库 管理 系统 的 强大 支持 。 简 单 .快捷 ,高效 地 开发 数据 库 应 
用 系统 , 正 是 Delphi XE8 集成 开发 环境 一 贯 以 来 的 重要 特色 , 它 提供 一 种 把 信息 集中 在 一 起 
并 进行 存储 和 维护 的 管理 机 制 。 


9.1 数据 库 系统 应 用 开发 基础 


在 开发 数据 库 应 用 程序 之 前 ,对 开发 数据 库 的 基本 概念 应 当 了 解 ,对 数据 库 的 结构 .开发 
数据 库 应 用 程序 的 步 又、 开发 体系 以 及 方法 都 应 当 有 清晰 的 认识 。 

数据 库 系 统 主要 由 以 下 三 大 部 分 组 成 。 

(1) 数据 库 (Database,DB) : 按照 一 定 方式 组 织 ,存储 和 管理 的 数据 集合 。 

(2) 数据 库 管 理 系统 (Database Management System,DBMS) : 负责 组 织 和 管理 数据 的 程 
序 。 它 对 数据 库 进行 统一 管理 和 控制 ,以 保证 数据 库 的 安全 性 和 完整 性 。 

(3) 数据 库 应 用 程序 : 它 使 用 户 能 够 获取 、 显 示 和 更 新 DBMS 存储 的 数据 。 

DBMS 和 数据 库 应 用 程序 可 以 同时 驻 留 在 同一 台 计 算 机 上 运行 ,两 者 可 以 同时 结合 在 同 

-个 应 用 程序 中 ,以 前 使 用 的 大 多 数 数据 库 系 统 都 是 用 这 种 方法 设计 的 。 但 随 着 DBMS 技术 

的 发 展 , 目 前 的 数据 库 系 统 已 经 过 渡 到 客户 /服务 器 模式 ( Client/Server,C/S)。C/S 模式 的 
数据 库 可 以 将 DBMS 和 数据 库 应 用 程序 分 开 , 从 而 提高 了 数据 库 系统 的 处 理 及 维护 能 力 。 一 
般 情况 下 ,数据 库 应 用 程序 运行 在 一 个 或 多 个 用 户 工作 站 (客户 机 ) 上 ,并 且 通 过 网 络 与 运行 在 
其 他 计算 机 上 (服务 器 ) 的 一 个 或 多 个 DBMS 进行 通信 。 


9.1.1 数据 库 的 基本 概念 


1. 数据 库 

数据 库 是 由 蕴涵 着 一 定 意义 的 数据 ,按照 一 定 的 规律 组 织 起 来 的 数据 集合 。 在 数据 库 中 
除了 有 作为 外 部 信息 的 数据 之 外 ,还 有 内 部 信息 数据 。 这 些 数据 定义 了 数据 库 的 用 户 及 其 相 
应 的 权限 ,数据 库 表单 的 定义 等 ,通常 把 存放 这 些 数据 的 地 方 叫做 数据 字典 。 数 据 字 典 是 由 数 
据 库 系统 自行 创建 并 自动 维护 的 , 它 实 际 上 也 是 数据 库 的 一 组 表 和 视图 ,与 其 他 的 表单 和 视图 
并 没有 物理 结构 上 的 区 别 , 唯 一 不 同 的 是 它 的 内 容 。 

2. 关系 数据 库 

关系 数据 库 (Relational Database) 是 由 若干 个 表 组 成 的 ,每 一 张 二 维 表 对 应 着 一 种 联系 。 
表 的 每 一 行 称 为 记录 ; 表 的 每 一 列 称 为 字段 ; 域 就 是 属性 的 取 值 范围 。 在 Delphi XE8 中 , 数 
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据 库 概 念 对 应 到 物理 文件 上 是 有 一 些 不 同 的 。 对 于 dBASE、FoxPro 和 Paradox 这 三 种 数据 
库 系统 ,数据 库 对 应 于 某 一 个 子 目录 ,而 其 他 类 型 如 MS Access、Btrieve 则 是 指 某 个 文件 。 这 
是 因为 前 者 的 表 为 单独 的 文件 ,而 后 者 的 表 是 聚集 在 一 个 数据 库 文件 中 的 。 

(1) 表 (Table) : 一 个 表 就 是 一 组 相关 的 数据 按 行 列 排列 组 织 在 一 起 ,就 如 一 张 二 维 表 
格 , 它 是 构成 数据 库 的 最 直接 单元 。 

(2) 数据 集 (DataSet) : 严格 来 说 ,数据 集 并 不 是 关系 型 数据 库 系 统 中 的 概念 ,而 是 指 通 过 
对 一 个 或 多 个 数据 表 的 访问 从 数据 库 中 获得 的 数据 集合 。 

(3) 字段 (Field) : 在 表 中 ,每 一 列 称 为 一 个 字段 。 每 一 个 字段 都 有 相应 的 描述 信息 ,如 数 
据 类 型 .数据 域 等 。 

(4) 记录 (Record) : 在 表 中 ,每 一 行 称 为 一 条 记录 。 

(5) 索引 (Index) : 为 了 加 快 访问 数据 库 的 速度 ,许多 数据 库 都 使 用 索引 。 

(6) 主键 (Primary Key,PK) : 主键 是 对 于 这 张 表 的 唯一 标识 , 即 一 个 列 或 几 个 列 的 组 合 。 
主键 最 显著 的 特点 就 是 在 任何 给 定 的 条 件 下 ,没有 两 个 主键 包含 相同 的 值 , 这 称 作 主 键 的 唯一 
性 原则 。 

关系 型 数据 库 系 统 具 有 如 下 优点 。 

(1) 关系 数据 库 有 深厚 的 理论 基础 , 它 是 基于 关系 代数 和 关系 理论 的 模型 。 

(2) 以 二 维 表 的 形式 表示 数据 。 

(3) 不 需要 用 户 了 解 它 在 计算 机 中 的 物理 存储 形式 。 

(4) 用 系统 表 来 提供 其 本 身 的 内 容 和 结构 。 

(5) 可 以 通过 SQL 来 操纵 。SQL 是 专门 用 于 操作 这 种 模型 的 语言 。 

正 是 由 于 关系 数据 库 模 型 的 诸多 优点 ,使 得 它 成 为 当今 主流 的 数据 库 模 型 。 

3. 数据 库 管 理 系统 

数据 库 管 理 系统 是 一 个 用 来 管理 数据 库 的 软件 ,是 数据 库 能 够 正常 工作 的 核心 。 它 对 于 
数据 库 就 如 同 操作 系统 对 于 硬盘 ,对 数据 库 的 所 有 操作 ,包括 创建 各 种 数据 库 的 数据 类 型 、 表 
单 , 视 图 、 存 储 过 程 ,以 及 其 他 的 数据 库 应 用 程序 对 于 数据 库 中 数据 的 读 取 和 修改 ,都 是 经 由 数 
据 库 管理 系统 完成 的 。 而 前 面 所 说 的 数据 库 应 用 程序 所 接触 的 只 是 数据 库 的 接口 ,这 个 接口 
也 就 是 数据 库 管理 系统 的 接口 函数 , 当 数据 库 应 用 程序 把 对 于 数据 库 数据 的 操作 指令 通过 数 
据 库 管理 系统 的 接口 函数 发 送 给 数据 库 管理 系统 后 ,其 他 一 切 工作 都 由 数据 库 管理 系统 完成 ， 
数据 库 应 用 程序 所 要 做 的 只 是 等 候 数 据 库 管理 系统 把 它 所 需要 的 数据 给 它 , 然 后 进行 加 工 
处 理 。 

4. 数据 库 应 用 程序 

数据 库 应 用 程序 是 通过 DBMS 访问 数据 库 中 的 数据 并 向 用 户 提 供 数据 服务 的 程序 。 简 
单 地 说 ,它们 是 允许 用 户 插入 \ 删 除 和 修改 并 报告 数据 库 中 数据 的 程序 。 这 种 程序 是 由 程序 员 
使 用 通用 或 者 专用 的 程序 设计 软件 (如 Visual Studio .NET 和 Delphi XE8) 开 发 。 

使 用 一 些 计 算 功 能 全 面 的 普通 程序 设计 语言 或 软件 开发 工具 开发 应 用 程序 也 可 以 包含 数 
据 文件 ,但 这 种 应 用 程序 中 的 数据 存储 和 处 理 依 赖 于 使 用 它们 的 程序 ,数据 文件 的 设计 是 附属 
于 应 用 程序 设计 的 。 数 据 库 应 用 程序 则 不 同 .数据库 中 的 数据 要 提供 给 不 同 的 应 用 程序 共享 , 
数据 库 设 计 在 整个 系统 开发 过 程 中 是 独立 开发 的 ,一 般 需 要 在 设计 应 用 程序 之 前 完成 ,数据 库 
应 用 程序 根据 数据 库 管理 系统 提供 的 接口 来 操作 访问 数据 库 。 
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9.1.2 数据 库 的 设计 过 程 


1. 数据 库 的 建立 

创建 一 个 数据 库 的 过 程 有 以 下 几 个 步骤 。 

(1) 确定 数据 库 的 使 用 范围 。 

(2) 确定 支持 数据 库 所 需要 的 字段 。 

(3) 将 字段 划分 成 一 些 合理 的 数据 表 。 

(4) 确定 数据 表 之 间 的 关联 。 

创建 一 个 工程 时 ,首先 应 当 全 面 地 分 析 工 程 的 特点 ,根据 工程 的 需要 确定 要 建立 的 数据 
库 , 应 当 使 数据 库 的 内 容 既 能 达到 工程 的 要 求 , 同 时 内 容 上 尽 可 能 清晰 简练 。 在 确定 数据 库 的 
需求 后 ,要 将 这 些 需求 划分 成 几 个 合理 的 数据 表 。 

所 谓 合理 的 数据 表 ,通常 要 满足 以 下 几 点 。 

(1) 数据 表 中 的 字段 所 描述 的 内 容 有 一 定 的 联系 。 

(2) 数据 表 中 至 少 有 一 个 字段 的 记录 不 是 重复 的 。 

(3) 一 个 数据 表 与 数据 库 中 其 他 的 数据 表 至 少 一 个 能 够 关联 。 

(4) 一 个 数据 表 与 数据 库 中 其 他 的 同一 数据 表 不 要 有 多 对 多 的 关联 。 

2. 数据 表 的 结构 

在 划分 了 合理 的 数据 表 之 后 ,就 可 以 建立 数据 表 的 结构 了 。 在 为 字段 命名 时 ,应 使 字段 名 
能 够 反映 字段 的 内 容 。 字 段 的 数据 类 型 及 数据 宽度 的 选择 要 合理 , 既 要 满足 使 用 要 求 ,又 要 少 
占 内 存 。 在 数据 表 结 构 中 需要 一 个 关键 字段 ,数据 表 中 的 数据 就 是 按 主 关键 字段 的 顺序 存放 
的 ,而 且 利 用 主 关 键 字 能 够 高 效 地 与 其 他 数据 表 建 立 关 联 。 索引 也 是 数据 表 常 用 的 ,在 数据 库 
中 ,利用 索引 可 以 加 快 访问 速度 。 


9.1.3 数据 库 应 用 程序 的 开发 步骤 


数据 库 应 用 程序 开发 的 目标 是 建立 一 个 满足 用 户 长 期 需求 的 产品 ,在 开发 的 初期 要 分 析 
用 户 的 需求 ,程序 开发 的 步骤 有 初步 设计 、 功 能 实现 及 运行 和 维护 程序 等 。 

1. 初步 设计 

设计 阶段 要 根据 用 户 的 需求 ,定义 数据 库 和 应 用 程序 的 功能 ,确定 用 户 的 需求 功能 哪些 在 
设计 阶段 实现 ,哪些 在 程序 中 实现 。 

2. 功能 实现 

将 客户 需求 功能 分 成 几 个 合理 的 功能 块 ,分 别 进行 程序 设计 、 调 试 。 常 见 的 划分 方法 是 将 
其 分 为 如 下 4 个 功能 块 。 

(1) 信息 处 理 。 

(2) 数据 库 管 理 。 

(3) 系统 维护 。 

(4) 辅助 功能 。 

信息 处 理 是 建立 数据 库 应 用 程序 的 目的 。 设 计数 据 库 应 用 程序 的 目的 是 为 客户 提供 所 需 
要 的 信息 服务 ,辅助 管理 工作 ,提高 工作 效率 和 水 平 。 信 息 处 理 最 基本 的 功能 包括 各 类 信息 查 
询 , 统 计 报 表 等 ,对 于 特定 的 应 用 程序 还 可 以 有 特定 的 功能 。 数 据 库 管理 的 主要 功能 是 负责 
据 库 的 更 新 、 修 改 等 。 一 个 特定 的 数据 库 管理 操作 要 由 它 的 用 户 权 限 决定 ,这 个 权限 要 由 有 权 
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的 用 户 指定 。 系 统 维护 的 功能 是 保证 数据 库 应 用 程序 运行 的 可 靠 性 和 安全 性 ,一 般 包 括 用 户 
管理 .口令 设置 .各 类 系统 变量 和 数据 字典 的 维护 等 。 

3. 运行 和 维护 程序 

一 个 应 用 系统 性 能 的 优 劣 要 申 用 户 的 使 用 来 做 出 判断 。 用 户 在 使 用 应 用 程序 的 过 程 中 会 
对 应 用 程序 提出 一 些 建议 和 要 求 ,根据 用 户 的 建议 和 要 求 对 数据 库 应 用 程序 进行 适当 的 修改 
和 完善 ,从 而 提高 程序 的 性 能 。 


9.2 SQL 结构 化 查询 语言 基础 


SQL 作为 关系 数据 库 管理 系统 中 的 一 种 通用 的 结构 查询 语言 ,已 经 被 众多 的 数据 库 管理 
系统 所 采用 ,如 Oracle、Sybase 和 Informix 等 数据 库 管理 系统 ,它们 都 支持 SQL。Delphi XE8 
与 使 用 SQL 的 数据 库 管 理 系统 兼容 ,在 使 用 Delphi XE8 开发 数据 库 应 用 程序 时 ,可 以 使 用 
SQL 编程 。 支 持 SQL 编程 是 Delphi XE8 的 一 个 重要 特征 ,这 也 是 体现 Delphi XE8 作为 一 个 
强大 的 数据 库 应 用 开发 工具 的 一 个 重要 标志 。 


9.2.1 SQL 的 发 展 


1970 年 ,美国 IBM 研究 中 心 的 E. F. Codd 连续 发 表 了 多 篇 论文 ,提出 了 关系 数据 库 模型 。 
1972 年 ,IBM 开始 研制 实验 型 的 关系 数据 库 管理 系统 ,当时 配置 的 查询 语言 称 为 SQUARE 
(Specifying Queries As Relation Expression) 语 言 。 在 这 种 语言 中 使 用 了 较 多 的 数学 符号 ,并 
采用 英语 单词 表示 结构 式 的 语法 规则 ,看 起 来 像 英语 句子 ,因此 用 户 比 较 欢迎 这 种 形式 的 请 
言 ,后 来 SQUARE 简称 为 SQL( 结 构 化 查询 语言 )。1986 年 10 月 ,美国 ANSI 采 用 SQL 作为 
关系 数据 库 管 理 系统 的 标准 语言 (ABSIX3. 15 一 1986) ,后 来 被 国际 标准 化 组 织 (ISO) 采 纳 为 
国际 标准 。 目 前 ,SQL 被 广泛 使 用 ,这 说 明 它 具 有 强大 的 生命 力 , 它 使 得 所 有 数据 库 用 户 包括 
程序 员 、DBA 管理 员 和 终端 用 户 等 都 受益 匪 浅 。 

SQL 具有 以 下 优点 。 

(1) SQL 是 所 有 关系 数据 库 的 公共 语言 。 

(2) SQL 是 非 过 程 化 查询 语言 。 

过 程 化 语言 是 指 像 Pascal`.BASIC 和 C 这 样 的 语言 ,程序 员 在 使 用 这 些 语言 的 时 候 , 需 要 
把 要 执行 的 任务 编写 成 一 系列 的 模块 ,每 个 模块 完成 任务 的 一 个 部 分 。SQL 则 不 同 , 它 是 非 
过 程 化 的 ,也 就 是 说 ,不 需要 说 明 事 情 怎 么 做 ,只 要 描述 事件 是 什么 。 例 如 ,下 面 的 SQL 代码 : 

SELECT Name, Age , Sex FROM Tablename 

WHERE Name = "DengKe"; 

用 户 只 要 在 SELECT 后 写 明 需要 什么 ,然后 在 FROM 后 写 明 从 哪里 找 数据 ,以 及 在 
WHERE 后 写 明 要 找 的 数据 符合 什么 条 件 就 可 以 了 , 剩 下 的 工作 由 SQL 完成 。SQL 使 用 查 
询 优化 器 ,可 以 为 查询 配置 一 种 最 快速 存储 的 方式 , 它 提供 了 简单 而 丰富 的 命令 ,包括 查询 命 
令 .数据 更 新 命令 、 表 更 新 命令 、 数 据 和 数据 对 象 的 存储 命令 以 及 保持 完整 性 命令 等 。 

有 两 种 方式 使 用 SQL ,一 种 是 在 终端 交互 方式 下 使 用 , 称 为 交互 式 SQL; 另 一 种 是 嵌入 
在 高 级 语言 编写 的 程序 中 使 用 , 称 为 嵌入 式 SQL。 这 些 高 级 语言 作为 宿主 语言 ,可 以 是 C、 
Ada、Pascal.COBOL 或 P/L 等 。 
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9.2.2 SQL 的 基本 查询 功能 


SELECT 请 句 是 使 用 最 多 的 SQL 语句 , 它 完 成 的 是 数据 库 的 查询 功能 ,SELECT 请 句 的 
结构 看 起 来 很 直观 。SELECT 语句 用 于 从 数据 表 中 选择 符合 条 件 的 记录 ,例如 : 


SELECT Name, Age FROM Student WHERE Age > 20; 


Distinct 语句 的 作用 是 对 某 个 表 所 选择 的 字段 数据 ,忽略 重复 的 情况 。 也 就 是 说 ,针对 某 
个 字段 查询 出 来 的 记录 结果 是 唯一 的 ,例如 : 


SELECT Distinct(ID) FROM Student WHERE Age > 20; 


1. TOP 和 ORDER BY 语句 

TOP 语句 实现 从 第 一 条 或 最 后 一 条 开始 (利用 ORDER BY 条 件 子 句 ) ,返回 特定 记录 的 
数据 的 功能 。 

例如 ,需要 查询 在 2006 年 毕业 ,班级 前 25 名 的 学 生 姓 名 数据 时 ,SQL 语句 如 下 : 
SELECT TOP 25 学 生 姓 名 FROM 学 生 表 WHERE 毕业 年 份 二 2006 ORDER BY 毕业 成 绩 
平均 分 数 DESC; 

如 果 没 有 加 上 ORDER BY 条 件 , 所 得 到 的 数据 将 会 是 随机 的 数据 。 此 外 ,在 TOP 语句 
之 后 ,除了 可 以 加 上 数字 以 外 ,还 可 以 利用 保留 字 PERCENT 来 查询 。 排 序 参数 : ASC 递增 
顺序 排列 ,默认 值 ; DESC 递减 顺序 控制 。 例 如 ,下 面 的 代码 实现 在 职员 表 中 查询 职员 ,依据 
出 生 的 先后 次 序 排 列 输出 。 


SELECT LastName, FirstName FROM Employees ORDER BY Birthday ASC; 


2. IN 条 件 字句 

指定 要 查询 哪 一 个 外 部 数据 库 的 表 。 例 如 Microsoft Jet DataBase, 输 入 语句 如 下 : 
SELECT 顾客 编号 FROM 顾客 表 IN CUSTOMER. MDB WHERE 顾客 编号 LIKE "A x*"; 

3. HAVING 条 件 子 名 

指定 一 特定 的 分 组 记录 ,并 满足 HAVING 所 指定 的 条 件 或 状态 ,但 条 件 是 针对 分 组 的 条 
件 设置 ,例如 : 

SELECT 分 类 编号 , Sum( 库 存 数量 ) FROM 产品 表 GROUP BY 分 类 编号 ”HAVING Sum( 库 存 数量 )> 100 AND 产 

品名 称 LIKE " x* 纸 "; 

4. GROUP BY 条 件 子 句 

依据 指定 的 字段 ,将 具有 相同 数值 的 记录 合并 成 一 条 ,例如 : 


SELECT 姓名 ,Count( 姓 名 ) AS 职员 姓名 FROM 职员 表 WHERE 部 门 名称 = ' 业 务 部 ' GROUP BY 姓名 ; 


5. BETWEED…AND 运算 符 

决定 某 一 数值 是 否 介 于 特定 的 范围 之 内 。 如 果 要 从 职员 表 中 查询 出 所 有 年 龄 介 于 25 一 
30 岁 的 员工 ,SQL 语句 如 下 : 

SELECT 姓名 ,年 龄 BETWEEN 25 AND 30 FROM 职员 表 ; 


6. LIKE 操作 数 
用 来 将 一 字符 串 与 男 一 特定 字符 串 的 样式 进行 比较 ,并 将 符合 该 字符 串 样式 的 记录 过 滤 
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出 来 。 例 如 ,要 查询 出 所 有 以 * 张 ?为 首 的 姓氏 ,SQL 语句 如 下 : 


Like ' 张 x '; 


9.2.3 SQL 的 其 他 应 用 


1. SQL 数字 函数 
(1) AVG: 算数 平均 数 。 例 如 ,如 果 要 计算 职员 身高 超过 165cm 的 职员 平均 身高 ,可 以 利 
用 下 面 的 SQL 语句 完成 。 


SELECT AVG AS 平均 身高 FROM 职员 表 WHERE 身高 > 165; 


(2) COUNT: 统计 记录 条 数 。 如 果 要 统计 出 业务 部 门 的 职员 人 数 , 并 查询 出 职员 的 姓 
名 ,可 以 利用 下 面 的 SQL 语句 完成 。 

SELECT COUNT( 姓 名 ) AS 职员 姓名 FROM 职员 表 WHERE 部 门 名 称 = "业务 部 "; 

(3) FIRST 与 LAST: 返回 某 字段 的 第 一 条 数据 与 最 后 一 条 数据 。 

(4) MAX 与 MIN: 返回 某 字段 的 最 大 值 与 最 小 值 。 

(5) SUM: 返回 某 特定 字段 或 是 运算 的 总 和 数值 。 

2. SQL 查询 的 谋 套 

嵌 套 SQL 查询 的 含义 在 于 : 在 一 个 SQL 语句 中 可 以 包含 另 一 个 SQL 查询 语句 ,形成 内 
部 嵌 套 的 查询 类 型 ,SELECT 语句 构成 的 多 层 SQL 查询 ,必须 用 “( ) "将 该 语句 括 起 来 。 例 
如 , 先 从 订单 表 当 中 ,查询 出 所 有 单位 ,再 将 产品 表 中 的 单位 与 订单 表 中 的 单位 一 一 对 比 ,查询 
出 所 有 高 于 订单 表 的 单位 价格 的 记录 。 


SELECT x* FROM 产品 表 WHERE 单位 价格 > ANY(SELECT 单位 价格 FROM 订单 表 WHERE 折扣 >= .25); 

3. SQL 与 数据 库 的 维护 

(1) CREATE TABLE 语句 : 可 以 利用 这 个 命令 建立 一 个 全 新 的 表 , 但 前 提 是 数据 库 必 
须 已 经 存在 。 例 如 ,建立 一 个 拥有 职员 姓名 与 部 门 的 字段 的 表 。 

CREATE TABLE 职员 表 ( 姓 名 TEST, 部 门 TEST, 职员 编号 INTEGER CONTRAINT 职员 字段 索引 PRIMARY KEY) ; 

在 这 一 实例 中 ,建立 了 一 个 表 , 名 称 为 “职员 表 ”, 并 且 定 义 了 该 表 的 主键 值 以 限制 数据 不 
能 重复 输入 。 

(2) CREATE INDEX 语句 : 这 个 命令 主要 是 对 一 个 已 经 存在 的 表 建 立 索 引 。 例 如 ,在 职 
员 表 中 建立 一 个 索引 。 

CREATE INDEX 新 索引 名 称 ON 职员 表 ( 姓 名 部 门 ); 

(3) DELETE 语句 : 可 以 利用 DELETE 语句 ,将 表 中 的 记录 删除 。 例 如 ,要 将 职员 表 中 
姓名 为 * 李 四 ”的 记录 删除 。SQL 语句 如 下 : 

DELETE * FROM 职员 表 WHERE 姓名 = ' 李 四 '; 

说 明 : 记录 被 删除 后 ,无 法 再 复原 ,所 以 条 件 设置 要 正确 。 


(4) SELECT…INTO 语句 : 可 以 通过 这 个 命令 ,利用 已 经 存在 的 表 查 询 , 来 建立 一 个 新 
表 。 例 如 ,可 以 通过 下 面 的 SQL 语句 ,建立 一 个 新 的 “训练 名 册 ” 表 。 
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SELECT 职员 表 .姓名 ,职员 表 . 部门 INTO 训练 名 册 FROM 职员 表 WHERE 职称 = ' 新 进 和 人员 '; 

(5) INNER JOIN 操作 数 : 当 某 一 个 共同 的 字段 数据 相等 时 ,将 两 个 表 的 记录 加 以 组 合 。 
例如 ,把 分 类 表 与 产品 表 作 组 合 。SQL 语句 如 下 : 

SELECT 分 类 名 称 ,产品 名 称 FROM 分 类 表 INNER JOIN 产品 表 ON 分 类 表 . 分 类 编号 = 产品 表 . 分 类 编号 ; 


(6) UNION 操作 数 : 可 以 通过 UNION 操作 数 建立 连接 的 查询 条 件 ,UNION 操作 数 可 
以 将 两 个 以 上 的 表 或 是 查询 的 结果 组 合 起 来 。 例 如 ,利用 SQL 语句 ,将 订单 数量 超过 100 的 
顾客 表 记 录 与 新 客户 表 作 UNION 的 操作 。SQL 语句 如 下 : 


TABLE 新 客户 表 UNION ALL SELECT x FROM 顾客 表 WHERE 订单 数量 > 100; 

(7) ALTER 语句 : 在 一 个 表 建 立 后 ,利用 ALTER 语句 ,可 以 去 修改 表 的 字段 设计 。 例 
如 ,在 职员 表 中 新 建 一 个 “薪水 ”字段 。SQL 语句 如 下 : 

ALTER TABLE 职员 表 ADD COLUM 薪水 CURRENCY; 

而 要 在 职员 表 中 删除 一 个 “薪水 ?字段 ,可 使 用 如 下 SQL 语句: 

ALTER TABLE 职员 表 DROP COLUM 薪水 ; 

(8) DROP 语句 : 针对 所 指定 的 表 或 字段 加 以 删除 ,或 是 把 索引 删除 。 例 如 ,从 职员 表 中 
删除 标号 索引 。SQL 语句 如 下 : 

DROP INDEX MyIndex ON Employees; 

而 从 数据 库 中 删除 整个 表 , 可 使 用 如 下 SQL 语句 : 

DROP TABLE 职员 表 ; 

(9) INSERT INTO 语句 : 新 建 一 条 数据 到 表 当 中 。 例 如 ,在 客户 数据 表 中 ,从 新 的 表 插 
入 数据 ,可 使 用 如 下 SQL 语句 : 

INSERT INTO 客户 数据 表 SELECT 新 客户 数据 表 . * FROM 新 客户 数据 表 ; 

(10) UPDATE 语句 : 建立 一 个 UPDATE 的 查询 ,通过 条 件 的 限制 来 修改 特定 的 数据 。 
例如 ,要 把 订单 表 中 的 订单 数量 修改 成 1.1 倍 ,运费 为 1.3 倍 。SQL 语句 如 下 : 

UPDATE 订单 表 SET 订单 数量 = 订单 数量 * 1.1, 运 费 = 运 费 *1.3 WHERE 运 达 地 点 = ' 上 海 '; 


9.3 数据 库 开 发 常用 组 件 


数据 库 应 用 程序 的 功能 是 : 使 用 数据 访问 组 件 ,通过 数据 引擎 (提供 数据 库 驱 动 程序 ) , 建 
立 与 数据 源 ( 数 据 库 ) 的 连接 ,并 使 用 数据 控制 组 件 来 创建 用 户 界面 ,以 便 用 户 存 取 和 操纵 数据 
库 中 的 数据 。 

Delphi XE8 操作 数据 库 主要 是 利用 BDE(Borland Database Engine) 数 据 库 引 擎 来 进行 ， 
当然 通过 其 他 方式 绕 过 BDE 直接 访问 数据 库 在 Delphi XE8 中 也 可 以 实现 。 不 过 ,对 于 本 地 
数据 库 来 说 ,通过 BDE 存 取 数据 效率 还 是 很 高 的 。BDE 是 负责 用 户 和 数据 库 打交道 的 中 间 
媒介 。 事 实 上 ,应 用 程序 是 通过 数据 访问 组 件 和 BDE 连接 ,再 由 BDE 去 访问 数据 库 来 完成 对 
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数据 库 的 操作 的 ,并 非 直 接 操 作 BDE。 这 样 用 户 只 需 关 心 数据 组 件 即 可 ,不 用 去 直接 和 BDE 
打交道 。 通 过 BDE 几乎 可 以 操作 目前 所 有 类 型 的 数据 库 。 数 据 库 组 件 主要 有 数据 访问 组 件 
和 数据 控制 组 件 ,它们 和 数据 库 的 关系 可 用 下 面 的 示意 图 来 表示 : 

用 户 一 一 数据 控制 组 件 二 一 数据 访问 组 件 一 一 数据 集 组 件 呈 一 BDE<- 一 数据 库 

Delphi XE8 环境 的 数据 读 写 组 件 是 可 视 化 的 ,它们 都 具备 一 定 的 属性 ,可 以 在 设计 过 程 
中 通过 程序 来 设置 组 件 的 各 种 属性 。 

在 数据 应 用 程序 中 ,通常 包含 三 种 数据 库 组 件 ,如 图 9-1 所 示 。 


BDE Edi 
TTable =| TDBEdit 
BDE | 一 一 一 TDataSet [=—™| TDataSource 上 一 一 下 下 TDBMemo 
BDE 方 式 连接 TQuery 
DATA 
BASE 
=| TDBGrid 
数据 库 TADOTable ADO 
ADO TADODataSet [=—™| TDataSource (i—— TDBChart 
ADO 方 式 连 接 
TADOQuery 
数据 集 组 件 数据 访问 组 件 数据 控制 组 件 


9-1 数据 库 应 用 程序 开发 框架 


9.3.1 数据 集 组 件 


为 了 在 Delphi XE8 环境 中 访问 数据 库 , 通 常 需要 数据 源 , 用 DataSource 组 件 描 述 数据 
源 。 但 该 组 件 不 能 直接 表示 数据 ,而 是 引用 数据 库 表 ,查询 结果 或 在 pase 一 一 
储 过 程 。Table、Query 和 StoredProc 三 个 常用 组 件 也 称 为 数据 集 组 TTable 
件 ,它们 直接 与 数据 库 连接 ,从 中 获取 数据 。 因 此 常 称 为 数据 集 组 件 。 加 Te 
(DataSet Component) ,它们 通过 BDE 为 应 用 程序 提供 与 数据 库 的 连 日 TDatabase 
接 。 当 要 创建 一 个 数据 库 应 用 程序 时 , 先 在 窗 体 上 放 一 个 数据 集 组 二 
件 ( 如 图 9-2 所 示 ) ,然后 为 数据 集 组 件 设 置 有 关 的 属性 ,指定 要 访问 略 TupdatesQL 
的 数据 库 、 数 据 表 以 及 表 中 的 记录 等 。 se 

(1) Table 组 件 是 通过 数据 库 引 擎 BDE 来 存 取 数 据 库 中 的 数据 图 9-2 BDE 数据 集 组 件 
的 ,并 通过 BDE 将 用 户 对 数据 库 的 操作 如 添加 、 删 除 、 修 改 等 传递 回 
数据 库 , 这 是 非常 重要 的 一 个 组 件 。 

(2) Query 组 件 是 利用 结构 化 查询 语言 (Structured Query Language,SQL) 通 过 BDE 来 操作 
数据 库 的 ,和 Table 组 件 完成 的 功能 基本 一 样 . 只 是 采用 了 SQL 来 实现 ,是 重要 的 组 件 之 一 。 

(3) StoredProc 组 件 是 通过 BDE 对 服务 器 数据 库 进行 操作 的 ,常用 于 客户 /服务 器 结构 
的 数据 库 应 用 程序 。 
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(4) Database 组 件 一 般 用 于 建立 远程 的 数据 库 服务 器 一 一 客户 /服务 器 结构 的 数据 库 应 
用 程序 和 数据 库 之 间 的 连接 。 

(5) Session 组 件 是 用 于 控制 数据 库 应 用 程序 和 数据 库 连 接 的 ,主要 用 于 复杂 的 功能 , 比 
如 多 线程 数据 库 程序 编程 。 

(6) BatchMove 组 件 用 于 大 批 数据 的 转移 、 复 制 等 。 


9.3.2 数据 控制 组 件 


数据 控制 组 件 (Data Control Component) 的 主要 功能 是 和 数据 访问 组 件 配合 供用 户 对 数 
据 进 行 浏览 ,编辑 等 操作 。 由 于 数据 集 组 件 是 不 可 见 的 ,所 以 ,还 必须 使 用 可 见 的 数据 控制 组 
件 来 提供 数据 库 的 显示 ,它们 通过 数据 访问 组 件 DataSource 相互 连接 。 
数据 控制 组 件 也 称 为 数据 感知 (Data-aware) 组 件 或 数据 浏览 组 


Er 
件 ,这 些 组 件 位 于 组 件 面板 的 DataControl 页 上 ,共有 14 个 组 件 ,如 ” 恬 TpBend 
图 9-3 所 示 。 A 


(1) TDBGrid 用 网 格 的 形式 显示 数据 库 表 中 的 记录 信息 ,网 格 中 ToBEdt 
的 各 列 可 以 在 设计 阶段 使 用 字段 编辑 器 创建 ,也 可 以 在 运行 过 程 中 用 。 四 TPaeme 


入 TDBImage 
程序 设 定 。 ee 
(2) TDBNavigator 提供 了 一 组 按钮 用 于 数据 库 表 中 的 导航 ,编辑 用 Tree 
修改 .插入 .删除 记录 以 及 刷新 数据 的 显示 。 Sn TBradoGrou 
TDBNavigator 中 包含 的 控制 按钮 在 设计 阶段 可 以 进行 选择 。 a 
(3) TDBText 用 于 显示 数据 库 表 中 当前 记录 的 字段 值 。 图 TDBRichEd 
(4) TDBEdit 用 于 显示 和 编辑 数据 库 表 中 当前 记录 指定 的 字 ”四 TPeerend 
段 值 。 图 9-3 数据 控制 组 件 


(5) TDBMemo 用 于 显示 数据 库 表 中 的 备注 型 字段 ,备注 型 字段 
中 可 以 包含 多 行 字符 甚至 可 以 是 BLOB( 大 二 进 制 对 象 ) 数 据 。 

(6) TDBImage 用 于 显示 数据 库 表 中 的 图 像 字段 和 BLOB 数据 。 

(7) TDBListBox 当 用 户 编辑 修改 表 中 当前 记录 的 某 个 字段 时 ,该 部 件 是 一 个 包含 多 个 选 
择 项 的 列表 框 , 用 户 可 以 从 中 选择 一 个 项 作为 字段 的 值 。 

(8) TDBComboBox 是 一 个 组 合 框 , 当 用 户 编辑 修改 表 中 当前 记录 的 一 个 指定 字段 时 ,可 
以 直接 在 该 部 件 中 输入 字段 值 ,也 可 以 单 击 该 部 件 从 下 拉 列 表 框 中 选择 一 个 字段 值 。 

(9) TDBCheckBox 用 于 显示 数据 库 中 的 字段 信息 的 检查 框 , 当 表 中 字段 的 值 与 该 检查 框 
的 ValueChecked 属性 值 相 匹配 时 ,该 检查 框 被 选中 。 

(10) TDBRadioGroup 可 以 为 用 户 提 供 一 组 选择 项 ,但 用 户 只 能 从 中 选择 一 个 可 选项 。 

(11) TDBLookupListBox 当 用 户 要 编辑 修改 数据 库 表 当前 记录 的 指定 字段 时 ,使 用 该 部 件 
提供 多 个 可 选项 ,这 多 个 可 选项 是 从 相关 的 其 他 表 中 读 取 的 , 且 以 列表 框 的 形式 提供 给 用 户 。 

(12) TDBLookupComboBox 结合 了 TDBEdit 部 件 和 TDBComboBox 部 件 的 功能 ,用 户 
可 以 直接 向 该 部 件 中 输入 字段 值 ,也 可 以 从 下 拉 列 表 框 中 选择 一 个 可 选项 ,只 是 下 拉 列 表 框 中 
的 可 选项 是 从 相关 的 其 他 的 数据 库 表 中 读 取 来 的 。 


9.3.3 数据 访问 组 件 
数据 访问 组 件 (Data Access Component) 在 组 件 面板 的 Data Access 组 件 页 上 , 它 是 数据 
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集 组 件 和 数据 控制 组 件 的 连接 媒介 ,如 图 9-14 所 示 。 
ES Table 组 件 与 数据 库 相 连 ,通过 BDE 来 访问 数据 库 , 但 Table 组 
Bs ToataSource 件 不 能 显示 数据 库 中 的 数据 ; DBGrid 组 件 与 用 户 相连 ,提供 可 视 化 的 
入 Jes。 界面, 显示 数据 库 中 的 数据 ,但 不 具备 访问 数据 库 的 能 力 而 数据 访问 
组 件 DataSource 负责 双方 数据 的 收发 ,使 用 户 交 互 式 地 对 数据 库 进行 
查询 .修改 ,插入 和 删除 等 操作 。 在 同一 个 窗 体 上 , 几 个 数据 控制 组 件 
可 以 连接 同一 个 DataSource 组 件 , 这 几 个 数据 控制 组 件 可 以 保持 同 
步 , 因 为 数据 控制 组 件 总 是 显示 当前 记录 的 数据 。DataSource 组 件 最 好 放 在 数据 模块 上 ,与 
用 户 界面 分 开 ,这 样 易于 统一 管理 程序 中 所 有 的 数据 源 。 
DataSource 组 件 的 主要 属性 的 意义 如 下 : 
(1) DataSet 属性 : 指定 相连 的 数据 集 组 件 ,如 一 个 Table 或 一 个 Query 组 件 。 
(2) AutoEdit 属性 : 确定 连接 的 数据 集 组 件 是 否 自动 处 于 编辑 状态 。 


9.4 三 种 常见 的 数据 库 连 接 方式 


数据 库 应 用 程序 不 能 直接 访问 它 所 引用 的 数据 库 资 源 ,而 是 通过 数据 库 引 擎 来 建立 与 数 
据 库 的 联系 。 下 面 介绍 三 种 常见 的 Delphi XE8 IDE 与 数据 库 连接 的 方式 。 


9.4.1 基于 ODBC 的 数据 库 连 接 方式 


为 了 解决 对 不 同 种 类 数据 库 的 访问 问题 ,Microsoft、Sybase、Digital 公司 于 1992 年 共同 
制定 了 ODBC(Open DataBase Connectivity, 开 放 的 数据 库 连 接 ) 标 准 接 口 ,提供 独立 于 数据 库 
的 驱动 支持 。 时 至 今日 ,ODBC 已 经 成 为 标准 的 数据 存 取 技术 ,可 以 访问 目前 流行 的 几乎 所 有 
的 关系 数据 库 。 

因为 BDE 只 能 连接 一 部 分 数据 库 ,如 果 要 连接 BDE 不 支持 的 数据 库 ( 如 Btrieve 等 ) ,可 
考虑 使 用 ODBC。 下 面 以 Access 数据 库 为 例 说 明 创建 ODBC 数据 源 的 方法 (实际 上 BDE 也 
支持 Access 数据 库 ) 。 

具体 操作 步骤 如 下 。 

(1) 打开 ODBC 数据 源 管理 器 , 在 ODBC 管理 器 窗口 中 ,执行 Object | ODBC 
Administrator 命令 ,或 使 用 Windows 控制 面板 中 的 ODBC 对 象 ,打开 “ODBC 数据 源 管理 器 ” 
对 话 框 ,如 图 9-5 所 示 。 

为 了 便于 访问 数据 ,Windows 系统 提供 了 ODBC 数据 源 管 理工 具 ,该 工具 用 来 设置 数据 
源 的 名 字 (Data Source Name,DSN)。 所 谓 DSN 只 不 过 是 一 个 数据 源 的 标志 ,设置 它 的 目的 
是 便于 应 用 程序 访问 数据 。 也 就 是 说 ,只 要 某 个 数据 设置 了 相应 的 DSN, 应 用 程序 就 不 必 理 
会 该 数据 库存 储 的 位 置 和 驱动 程序 ,可 以 按 DSN 直接 访问 数据 库 。DSN 有 如 下 三 种 类 型 。 

@ 用 户 DSN, 只 对 设置 它 的 用 户 可 见 , 而 且 只 能 在 设置 了 该 DSN 的 机 器 上 使 用 。 

@ 系统 DSN, 对 机 器 上 的 所 有 用 户 都 是 可 见 的 ,包括 NT 服务 。 

@ 文件 DSN, 指 将 DSN 的 配置 信息 存在 一 个 文件 里 ,这 样 的 文件 就 叫 文件 DSN。 

(2) 在 该 对 话 框 中 选择 “用 户 DSN” 选 项 卡 , 然 后 单 击 “ 添 加 ”按钮 ,打开 如 图 9-6 所 示 的 
“创建 新 数据 源 ” 对 话 框 。 在 驱动 程序 列表 中 选择 Microsoft Access Driver( * .mdb) 驱 动 程 
序 , 并 单 击 “ 完 成 ”按钮 ,打开 如 图 9-7 所 示 的 “ODBC Microsoft Access 安装 ”对 话 框 。 


图 9-4 数据 访问 组 件 
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字 0DBC 数据 源 管理 器 


用 户 D5N | 系统 DSN 


文件 DSN 


驱动 程序 | 跟踪 


连接 池 


ER 
Excel 


Files 


MyDBDENWOS 


驱动 程序 
Microsoft Access dBASE Driver (*.d| 
Microsoft Excel Driver (*.xls, *.x 
NS Access Database Microsoft Access Driver (*.mdb, 
Microsoft Access Driver (*.mdb) 配置 | | | 


ci) 加 


| 滞 ee 


图 9-5 “ODBC 数据 源 管理 器 ”对 话 框 


选择 您 想 为 其 安装 数据 源 的 驱动 程序 (5) 。 


名 称 


Driver do Microsoft Access (*.mdb) 
Driver do Microsoft dBase (*. dbf) 
| Driver do Microsoft Excel(*,x1s) 
Driver do Microsoft Paradox (*.db ) | 
Driver para o Microsoft Yisual FoxPro 
Microsoft Access dBASE Driver (*.dbf, *.ndy 
Microsoft Access Driver (*.mdb) 


Microsoft Access Driver (*.mdb, *.accdb) 


ee 


上 = 步 @) 


一 


一 


9-6 


“创建 新 数据 源 " 对 话 杠 


(3) 在 打开 的 对 话 框 中 通过 “选择 ”按钮 可 以 选择 数据 库 , 通 过 “创建 ”按钮 可 以 创建 新 数 
据 库 , 还 可 以 修复 和 压缩 数据 库 , 通 过 “高 级 ”按钮 设置 登录 名 称 和 密码 。 在 这 里 单 击 “ 选 择 ” 按 
钮 ,选择 一 个 已 经 存在 的 Access 数据 库 C: \ book. mdb 数据 库 ( 用 户 也 可 选择 自行 创建 的 其 


他 Access 数据 库 ) 。 


(4) 在 “数据 源 名 ”文本 框 中 输入 *CCZYTest”,“ 说 明 ” 文 本 框 中 输入 一 些 对 所 创建 的 数据 
源 进行 描述 的 文字 ,也 可 不 输入 。 设 置 之 后 , 单 击 “ 确 定 ” 按 钮 保存 设置 ,这 样 就 配置 好 了 


DSN ,关闭 ODBC 数据 源 管理 器 。 


关闭 所 有 使 用 ODBC 引擎 的 应 用 程序 .打开 ODBC 管理 器 窗口 ,切换 到 Databases 选项 
卡 , 即 可 看 到 新 建 的 ODBC 数据 源 CCZYTest。 
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ODBC Microsoft Acce 安 装 | 2 lm 
数据 源 名 (WD: 。 CCzYTest 和 
说 明 加 ): 
炽 据 库 
数据 库 : Cc:\book. ndb 
rm fe Ci 
| 涂 9...] [创建 ] [和 ] [ES ] 二 
系统 数据 库 
| 无 @) 
四 数据 库 (TD): 
系统 数据 库 0-… es 


9-7 “ODBC Microsoft Access 安装 ”对 话 框 


9.4.2 基于 BDE 的 数据 库 连 接 方式 


Delphi XE8 的 Borland 数据 引擎 (BDE) 可 直接 访问 某 些 本 地 数据 库 , 包 括 dBASE、 
Paradox、FoxPro、Microsoft Access 等 ,Delphi XE8 安装 程序 自动 为 这 些 数据 库 安 装 了 驱动 程 
序 ,并 建立 了 相应 的 配置 ,这 对 于 开发 原型 或 小 型 系统 十 分 方便 。 如 果 将 BDE 与 Borland 的 
SQL Link 驱动 程序 连接 ,可 以 访问 Oracle、Sybase、Informix、InterBase 和 IBM DB2 数据 库 。 

Delphi XE8 数据 库 应 用 程序 是 通过 BDE 来 获取 它们 所 需 的 数据 的 。Delphi XE8 环境 首 
先 通过 数据 集 组 件 与 BDE 联系 ,然后 通过 BDE 与 数据 库 联系 。 

在 安装 Delphi XE8 系统 时 ,对 于 数据 库 的 选择 就 已 经 配置 了 默认 的 数据 库 环境 。 一 般 情 
况 下 ,安装 完成 后 ,使 用 默认 配置 即 可 使 数据 库 应 用 程序 正常 运行 。 但 当 要 操纵 的 数据 库 与 默 
认 配 置 的 种 类 存储 位 置 和 连接 方式 等 有 所 不 同时 ,就 应 该 调用 BDE 配置 工具 来 重新 设 定 配 
置 参 数 ,并 对 应 用 程序 进行 配置 管理 。 

1，BDE 管理 器 

BDE 管理 器 是 管理 Windows 注册 表 中 的 BDE 系统 配置 信息 和 BDE 配置 文件 (IDAPI. 
cfg) 中 的 别名 信息 的 可 视 化 工具 。 选 择 菜单 项 “开始 ”| “程序 ”| Borland Delphi XE8 | BDE 
Administrator, 即 可 打开 如 图 9-8 所 示 的 BDE 管理 器 。 


获 BDE Administrator C\program Files\Common Files\Borland Shared\BDE\IDAPI32. CFG ll El) 
| Object_Edit_ View Options Help 


巴 X 定局 
| AlDatabase Aliases ~ [Definition of DBDEMOS 
Databases | Configuration | Defintion | 
日 国 Databases Type STANDARD 
四 - 百 dBASE Fles DEFAULT DRIVER PARADOX 
EE ENAME BOD Ee 
由- 牢 Excel Fies PATH Ci\Program Files\Common Fies\CodeGear Shared\Dala 


由 - 百 MyDBDEMOS 
由 -到 qdz 
日 号 

由 


图 9-8 BDE 管 理 器 
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在 BDE 管理 器 窗口 的 Databases 选项 卡 中 , 列 出 了 可 以 使 用 的 所 有 数据 库 别名 ,以 类 似 
于 Windows 资源 管理 器 的 树 状 结构 显示 出 来 。 在 Databases 窗 格 列表 中 选择 一 个 别名 , 即 可 
在 Definition 窗 格 查看 和 修改 它 的 定义 。 

2. 数据 库 别名 

在 实际 应 用 中 ,计算 机 尤其 是 文件 服务 器 会 经 常 更 换 。 相 应 地 ,各 种 数据 库 操 作 也 要 转移 
到 新 数据 库 服务 器 上 进行 ,因此 需要 对 数据 库 重 新 定位 。BDE 通过 数据 库 别名 (数据 源 ) 解 决 
这 个 问题 。 在 数据 库 应 用 程序 中 , 当 数 据 从 一 个 地 方 转移 到 另 一 个 地 方 时 ,只 要 修改 别名 重新 
定位 数据 库 位 置 即 可 , 源 程 序 不 必修 改 。 

Delphi XE8 中 预先 配置 好 的 数据 库 别 名 是 DEDEMOS, 并 在 其 中 为 数据 访问 组 件 Table 
选择 了 数据 表 。 在 实际 应 用 中 ,用 户 可 根据 数据 库 的 种 类 和 存储 位 置 等 来 创建 自己 的 数据 库 
别名 ,以 便 为 设计 阶段 创建 一 个 方便 的 数据 库 连接 方式 ,同时 为 数据 库 应 用 程序 开发 完成 后 建 
立 安装 程序 做 好 准备 。 

3. 配置 数据 库 驱 动 程序 

BDE 管理 器 的 Configuration 选项 卡 用 于 显示 和 配置 相关 数据 库 的 驱动 程序 ,这 些 驱 动 
程序 可 分 为 Native 驱动 和 ODBC 驱动 两 类 。Native 驱动 是 由 Borland 公司 提供 的 ,ODBC 了 驱 
动 是 由 Microsoft 公司 提供 的 ,同一 种 数据 库 既 可 以 有 Native 驱动 ,也 可 以 有 ODBC 驱动 ,使 
用 时 按 需要 选择 一 种 即 可 。 在 Configuration 窗 格 的 驱动 程序 列表 中 选择 一 个 驱动 程序 , 它 的 
设置 参数 便 会 显示 在 右 侧 Definition 窗 格 中 ,以 便 查看 和 修改 ,如 图 9-9 所 示 。 


" 钱 BDE Administrator CNProgram Files\Common Files\Borlang Shared\BDE\IDAPL.. l= Ell 


Object Edit View |Options| Help 
SXon 
Diivers and System Defiriion of MSSOL 
Databases ”Configuration | Defniion 
EE- Configuration VERSION 40 
日 - 团 Drivers TYPE SERVER 
By Naive DLL32 SQLMSS32DLL 
® PARADOX VENDOR INIT 
® 082 CONNECT TIMEOUT 60 
@ DEASE TIMEOUT 300 所 
© FoxPRO DRIVER FLAGS 
@@ INFORMKX TRACE MODE 0 
@ INTRBASE MAX DBPROCESSES |] 
@ MSACCESS APPLICATION NAME 
© ET BATCH COUNT 200 
@ ORACLE BLOB EDIT LOGGING 
@ SYBASE BLOB SIZE 32 
四 -6 0DBC BLOBS TO CACHE 4 
日 - 国 System DATABASE NAME 
| INIT DATE MODE 0 
四 -是 Fomats ENABLE BCD FALSE 
ENABLE SCHEMA CACHE FALSE 于 
Ditems n M5SQL. 


图 9-9 BDE 中 的 Configuration 选项 卡 


配置 好 了 了 驱动 程序 之 后 ,执行 Object | Apply 命令 ,将 配置 保存 起 来 。 然 后 切换 到 
Databases 选项 卡 , 即 可 使 用 配置 好 的 驱动 程序 来 建立 数据 源 。 

4. 建立 BDE 数据 源 

在 BDE 管理 器 中 建立 数据 源 (数据 库 别 名 ) 的 步骤 如 下 。 

(1) 右 击 Databases 选项 卡 ,在 弹出 的 快捷 菜单 中 选择 New 命令 ,打开 如 图 9-10 所 示 的 
New Database Alias 对 话 框 。 
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僵 BDE Administrator C:\Program Files\Common Files\Borland shared\BDEND. = 
Object Edit View Options Help 
le XxX < 


Al Database Alases 


Databases | Corfiguration | 
日 -By Dalabases | 


由 - 彰 dBASE Fies 
确 DBDEMOS New Database Alias 
由 - 百 ExcalFies 
由 - 百 MS Access Dalabase Dolabose Diiver Name 
由 -至 MyDBDEMOS TANDAPD - 
本 国 S70An0 | 
由 - 彰 qdiaJQTeacher DB2 = 
由 百 Xteme Sample Dalabase 2008 四 国 | 
由 - 百 Xheme Sample Dalabase 2008 CHS WIESE Di 
Microsoft dBase Driver [.dbf} 
Microsoft Excel Diiver [ xls} 
MSACCESS 
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(2) 在 该 对 话 框 的 Database Driver Name 下 拉 列 表 框 中 选择 一 种 数据 库 驱 动 程序 ,然后 
单 击 OK 按钮 ,生成 一 个 数据 源 。 如 果 选 择 的 是 STANDARD, 则 自动 生成 名 为 Standardl 的 
数据 源 , 并 显示 在 Databases 选项 卡 的 树 状 数据 库 别名 表 中 。 

(3) 根据 需要 修改 数据 源 的 名 称 ,配置 右 侧 Definition 选项 卡 中 的 参数 值 ,如 数据 库 名 、 打 
开 方 式 和 用 户 名 等 。 对 于 不 同 种 类 的 数据 源 ,Definition 选项 卡 中 的 参数 种 类 可 能 不 同 , 一 般 
来 说 需要 定位 数据 库 , 其 余 参 数 可 采用 默认 值 。 

(4) 右 击 刚 创 建 的 数据 库 别 名 ,在 弹出 的 快捷 菜单 中 选择 Apply 命令 , 按 提示 保存 数据 库 
别名 配置 。 打 开 一 个 数据 源 后 ,就 与 数据 库 建 立 了 连接 。 

特别 提醒 : 在 Delphi 7 等 早期 版 本 中 ,BDE 管理 器 会 出 现在 “开始 ”菜单 的 Delphi 列表 
内 ,用 户 可 以 直接 单 击 并 运行 。 而 现在 本 教材 所 使 用 的 Delphi XE8 版 本 中 默认 不 出 现在 “ 开 
始 " 菜 单列 表 项 中 ,需要 用 户 在 XE8 安装 完毕 后 自行 去 如 图 9-11 所 示 的 路 径 中 寻找 
bdeadmin. exe 文件 并 运行 ,用 户 也 可 创建 一 个 快捷 图 标 在 桌面 上 供 后 续 使 用 。 


名 称 
BDE32.TOC 
bdeadmin.cnt 
蕊 bdeadmin.exe 
各 BDEADMINHLP 


] 芍 位 置 


图 9-11 BDE 管理 器 的 安装 路 径 


9.4.3 基于 ADO 的 数据 库 连接 方式 


ADO(ActiveX Data Object) 是 Microsoft 公司 提供 的 数据 库 应 用 程序 设计 接口 ,已 经 发 
展 成 为 Windows 平台 存 取 数据 的 标准 技术 。ADO 的 主要 功能 是 实现 与 OLE DB( 提 供 对 低 
层 数 据 源 的 连接 ) 兼 容 的 数据 源 , 如 Access、SQL Server 数据 库 等 的 连接 。Delphi XE8 具有 
直接 访问 ADO 的 能 力 。 

ADO 的 主要 优点 是 易于 使 用 、 高 速度 \ 低 内 存 支 出 和 占用 磁盘 空间 较 少 。ADO 支持 用 于 
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建立 基于 客户 /服务 器 和 Web 应 用 程序 的 主要 功能 。ADO 同时 具有 远程 数据 服务 (RDS) 功 
能 ,通过 RDS 可 以 在 一 次 往返 过 程 中 实现 将 数据 从 服务 器 移动 到 客户 端 应 用 程序 或 Web 页 ， 
在 客户 端 对 数据 进行 处 理 然后 将 更 新 结果 返回 服务 器 的 操作 。 

1. ADO 组 件 介绍 

ODBC 技术 能 很 好 地 处 理 关系 数据 库 以 及 传统 的 数据 库 数据 类 型 , 却 难以 适应 用 表格 表 
示 的 数据 ,因此 ,Microsoft 公司 于 1996 年 提出 了 UDA(Universal Data Access, 通 用 数据 访 
问 ) 策 略 。UDA 可 以 高 性 能 地 访问 各 种 格式 的 数据 ,包括 关系 数据 库 和 非 关系 数据 库 , 传 统 
的 数据 源 ( 如 Jet 和 SQL Server) 和 非 传 统 的 数据 源 ( 如 电子 邮件 、 文 件 目录 和 视频 )。 

UDA 的 核心 是 一 系列 COM (Component Object Model, 构 件 对 象 模型 ) 接 口 ,命令 为 
OLE DB。 这 些 接口 允许 开发 人 员 创 建 数 据 提供 者 ,数据 提供 者 能 灵活 地 表达 各 种 格式 存储 
的 数据 。 由 于 OLE DB 过 于 底层 化 ,使 用 非常 复杂 ,因此 ,Microsoft 公司 以 COM 技术 将 其 中 
的 大 部 分 功能 封装 为 ADO 对 象 ,大 大 简化 了 数据 存 取 工作 。 

ADO 本 身 是 一 些 数 据 对 象 ,使 用 这 些 数 据 对 象 ,应 用 程序 可 以 访问 许多 类 型 的 数据 库 。 
Delphi XE8 封装 了 ADO 数据 对 象 的 功能 ,使 这 些 功 能 可 以 在 Delphi XE8 环境 中 使 用 。 最 常 
使 用 的 ADO 对 象 是 Connection (连接 ) .Command (命令 ) 和 Recordset (数据 集 ) 对 象 ,这 些 
ADO 对 象 在 Delphi XE8 中 相应 的 组 件 是 ADOConnection、ADOCommand 和 多 个 ADO 数据 
集 组 件 。 将 它们 与 Delphi XE8 的 数据 感知 组 件 ,如 DBGird、DBEdit 等 结合 ,可 以 进行 基于 
ADO 的 数据 库 应 用 程序 设计 。 

说 明 : ADO 使 用 了 一 种 通用 程序 设计 模型 来 访问 数据 ,而 不 是 某 一 种 数据 库 引 擎 , 它 需 
要 OLE DB 提供 对 低层 数据 源 的 连接 。 因 此 ,使 用 ADO 连接 数据 库 IEaaaaal 


的 方式 就 与 通过 BDE 连接 的 方式 有 所 区 别 。 TADOConnecion 
ADO 中 拥 绑 了 几 个 数据 提供 者 ,包括 针对 SQL Server、Jet( 访 。 遍 TAoDRRR 
问 Access 数据 库 ) 和 Oracle 等 的 提供 者 。 图 TADOTable 
感 TApoQuem 


ADO 组 件 (Delphi XE8 中 称 为 dbGo 组 件 ) 位 于 Delphi XE8 组 冠 Tapostoredproc 
件 面板 上 的 dbGo 页 ,如 图 9-12 所 示 。 这 些 组 件 可 用 于 连接 ADO 数 。 吧 TRDscomecton 
据 存 储 、 执 行 命令 、 检 索 基 于 ADO 机 制 的 数据 库 表 中 的 数据 。ADO 图 9-1? ADO 组 件 页 面 
组 件 的 使 用 方法 也 类 似 于 BDE 中 的 同类 组 件 。 

dbGo 页 面 共有 7 个 组 件 ,如 表 9-1 所 示 。 

表 9-1 ADO 组 件 用 途 
ADO 组 件 主要 用 途 相似 BDE 组 件 
ADOConnection ”主要 用 于 建立 数据 库 的 连接 Database 


ADODataSet ADO 提取 和 操作 数据 库 的 主要 数据 集 , 可 以 直接 连接 到 数据 库 , 也 
可 以 通过 ADOConnection 连接 到 数据 库 


ADOTable 主要 用 于 操作 和 提取 单个 基 表 的 数据 ,可 以 直接 连接 到 数据 库 ,也 Table 

可 以 通过 ADOConnection 连接 到 数据 库 
ADOQuery 通过 SQL 提取 数据 ,其 连接 数据 库 的 方式 和 前 两 种 一 样 Query 
ADOStoredProc 用 于 运行 数据 库 中 的 存储 过 程 StoredProc 


ADOCommand 用 于 运行 一 些 SQL 命令 ,这 个 组 件 可 以 和 支持 数据 集 的 组 件 一 起 
使 用 ,也 可 以 直接 从 一 个 基 表 中 提取 一 个 数据 集 
RDSConnection 一 个 进程 或 一 台 计 算 机 传递 到 另 一 个 进程 或 计算 机 的 数据 集合 
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(1) ADOConnection 组 件 调用 Execute 方法 执行 命令 。 

(2) ADOCommand 组 件 调用 Execute 方法 直接 执行 SQL 命令 。 

(3) ADOTable 组 件 调用 Open 方法 执行 命令 。 

(4) ADOQuery 组 件 调 用 Open 方法 或 ExecSQL 方法 执行 命令 。 

为 了 连接 数据 绑 定 控件 ,ADO 组 件 往 往 要 和 处 于 Data Access 中 的 DataSource 配合 
使 用 。 

1) ADOConnection 

ADOConnection 组 件 用 于 与 数据 库 建立 连接 。 当 应 用 程序 需要 提取 数据 时 会 向 它 发 出 
指令 ,然后 它 在 数据 库 中 提取 数据 并 返回 给 应 用 程序 ; 当 应 用 程序 需要 对 修改 或 者 添加 、 删 除 
的 数据 进行 保存 时 也 会 向 它 发 出 连接 指令 ,这 个 连接 指令 是 用 ConnectionString 属性 驱动 的 。 
在 其 他 的 ADO 组 件 中 也 可 以 实现 上 述 的 功能 。 不 过 ,在 用 ADO 写 比 较 复 杂 的 数据 库 程 序 时 
最 好 还 是 用 ADOConnection 组 件 。 因 为 ADOConnection 组 件 起 到 了 一 个 共享 桥梁 的 作用 ， 
其 他 各 个 组 件 都 可 以 通过 它 来 操作 数据 库 ,这 样 就 避免 了 每 个 组 件 都 要 建立 自己 的 连接 字符 
串 。 其 实 ,ADOConnection 组 件 对 其 他 各 个 组 件 来 说 相当 于 数据 库 别 名 。 即 车 后 台数 据 库 的 
连接 变化 了 ,那么 在 程序 里 只 需 改 变 ADOConnection 组 件 的 连接 属性 即 可 。 

现在 说 明 一 下 ConnectionString 属性 设 定时 Use Data Link File 的 意义 。 

Connection String 属性 值 是 一 个 连接 字符 串 ,为 了 便于 程序 移植 ,特别 是 当 程序 已 经 发 布 
后 需要 修改 连接 数据 库 信 息 时 ,再 重新 编译 发 布 执行 文件 比较 麻烦 ,这 时 便 用 到 一 个 数据 连接 
文件 (Data Link File) 。 它 是 一 个 以 udl 为 扩展 名 的 文本 文件 ,该 文件 中 存放 了 设置 的 连接 信 
息 , 用 户 修改 一 下 这 个 文件 就 可 达到 目的 ,无 须 再 更 新 EXE 文件 。UDL 文件 通常 在 记事 本 程 
序 中 建立 一 个 空 文本 文件 ,例如 ,保存 为 cczuTest. udl 后 关闭 窗口 ,双击 cczuTest. udl 文件 会 
自动 打开 “数据 链接 属性 ”窗口 , 设 定 完毕 退出 后 ,再 用 记事 本 打开 cczuTest. udl 文件 。 

TADOConnection 组 件 中 还 有 CommandTimeout 和 ConnectionTimeout 属性 。 这 两 个 
属性 主要 用 于 连接 远程 数据 库 时 相关 参数 的 设 定 。 当 连接 字符 串 中 指定 的 数据 库 路 径 不 正确 
或 者 不 存在 时 ,如 果 是 本 地 数据 库 , 系 统 会 直接 抛 出 异常 通知 程序 数据 库 不 存在 。 而 当 远 程 调 
用 时 ,本 地 计算 机 将 向 远程 计算 机 发 送 相应 指令 ,然后 一 直 等 待 远程 计算 机 处 理 后 返回 信息 。 
那么 如 果 远 程 计算 机 连接 不 上 时 ,就 必须 通过 设 定 CommandTimeout 和 ConnectionTimeout 
属性 的 值 来 解决 这 个 问题 。 这 两 个 属性 表示 当 本 地 计算 机 向 远程 计算 机 发 送 操作 数据 库 指 
令 ,连接 数据 库 指令 后 等 待 多 少 秒 没有 回应 ,就 认为 连接 失败 而 不 再 等 待 , 并 给 程序 抛 出 一 个 
连接 超时 的 异常 。 

ADOConnection 组 件 和 BDE 组 件 面 板 中 的 Database 组 件 功 能 相似 。 

2) ADOCommand 

ADOCommand 组 件 有 CommandType 和 CommandText 两 个 重要 属性 ,属性 的 设 定 方法 
和 上 述 ADODataSet 组 件 的 这 两 个 属性 类 似 。 不 过 ,需要 指出 ADOCommand 组 件 不 是 数据 
集 组 件 ,所 以 它 无 法 与 DataSource 组 件 相 连 , 属 性 设 定好 之 后 可 以 用 其 ExecSQL 方法 执行 。 
实际 上 ,ADO 本 身 有 Command 对 象 ,但 是 Delphi XE8 为 了 把 这 种 Command 对 象 对 应 于 
VCL, 才 引入 的 ADOCommand 组 件 。 所 以 , 它 只 是 提供 了 另外 一 种 操作 方式 而 已 。 
ADOCommand 组 件 主要 用 于 数据 定义 操作 ,而 且 大 部 分 功能 都 可 以 通过 别 的 组 件 来 实现 ,所 
以 该 组 件 并 不 常用 。 

其 中 的 ADOCommand 组 件 也 能 执行 SQL 命令 并 返回 结果 集 ,只 不 过 结果 集 要 通过 
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ADO 数据 集 组 件 来 操纵 。 例 如 ,下 面 的 代码 可 以 将 ADOCommand 组 件 的 查询 结果 输入 一 个 
ADODataSet 组 件 中 。 


ADODataSet. RecordSet : = ADOCommand. Execute; 


在 BDE 组 件 面板 中 没有 直接 与 ADOCommand 组 件 对 应 的 组 件 ,其 功能 是 ADO 中 独 
有 的 。 

3) ADODataSet 

通过 ADODataSet 组 件 , 可 以 直接 与 一 个 表 进行 连接 ,也 可 以 执行 SQL 语句 ,还 可 以 执行 
存储 过 程 。 可 以 说 该 组 件 的 功能 是 集 ADOTable.ADOQuery 和 ADOStoreProc 三 者 的 功能 
于 三 身 。 

在 使 用 时 ,首先 设 定 其 Connection 属性 为 ADOConnection 组 件 ,没有 ADOConnection 组 
件 就 直接 设 定 ConnectionString 属性 。 接 着 有 两 个 重要 属性 CommandType 与 CommandText 需 
要 设 定 ,CommandType 属性 用 于 决定 采用 哪 种 方式 (如 存储 过 程 . 数 据 表 或 是 用 户 编写 的 
SQL 语句 ) 获 取 数 据 , 其 中 有 cmdTable .cmdText 和 cmdStoredProc 三 种 方式 可 供 选 择 。 随 
后 ,就 可 以 设 定 CommandText 属性 了 。 例 如 , 设 定 CommandType 属性 为 cmdTable, 那 么 
CommandText 就 会 列 出 所 有 的 数据 表 供 选择 ; 如 果 设 定 CommandType 属性 为 cmdStoredProc， 
则 CommandText 将 会 列 出 所 有 的 存储 过 程 供 选择 ; 如 果 设 定 CommandType 属性 为 
cmdText, 那 么 单 击 CommandText 属性 后 的 *…” 按 钮 将 会 打开 CommandText Editor, 在 这 
里 用 户 可 以 自己 编写 SQL 语句 。 上 述 属 性 设 定 完毕 后 将 Active 属性 改 为 True, 那 么 在 相应 
的 数据 感知 组 件 中 即 可 显示 ADODataSet 组 件 所 操作 的 数据 中 的 数据 了 。 

在 BDE 组 件 面板 中 没有 直接 与 ADODataSet 组 件 对 应 的 组 件 ,但 ADODataSet 组 件 的 许 
多 功能 与 Table 和 Query 相同 。 

4) ADOQuery 

ADOQuery 组 件 和 TADOTable 组 件 同 样 都 是 Delphi XE8 为 了 提供 数据 库 连 接 接口 一 
致 化 所 提出 来 的 数据 集 组 件 。 其 使 用 方法 和 TADOTable 组 件 类 似 , 所 不 同 的 是 二 者 获取 数 
据 的 方式 。TADOTable 组 件 通过 TableName 属性 来 制定 数据 表 ; TADOQuery 组 件 则 通过 
SQL 属性 获取 某 些 数据 ,该 属性 是 一 个 Tstrings 型 属性 ,其 满足 SQL 语句 的 语法 格式 。 用 户 
还 可 以 在 应 用 程序 中 通过 对 该 属性 的 动态 加 载 ,实现 数据 集 的 动态 更 新 与 维护 。 

ADOQuery 组 件 与 BDE 组 件 面板 中 的 Query 组 件 对 应 。 

5) ADOTable 

ADOTable 组 件 和 前 面 所 讲 到 的 Table 组 件 非常 类 似 , 许 多 属性 .事件 和 方法 相同 。 如 果 
程序 中 使 用 ADOConnection 连接 组 件 ,那么 ADOTable 组 件 的 ConnectionString 属性 就 不 需 
要 重复 设 定 了 ,直接 设 定 该 组 件 的 Connection 属性 为 ADOConnection 组 件 即 可 。ADOTable 
组 件 的 另外 一 个 重要 属性 是 Active 属性 ,该 属性 用 来 设置 打开 或 关闭 与 该 组 件 相 连 的 数据 
表 。 其 值 若 为 True, 则 打开 数据 表 ; 若 值 为 False, 则 关闭 数据 表 。 

ADOTable 组 件 与 BDE 组 件 面 板 中 的 Table 组 件 对 应 。 

6) ADOStoredProc 

ADOStoredProc 组 件 用 于 完成 数据 存储 过 程 ,无 论 它 是 否 返 回 结果 值 。 可 直接 连接 ,也 
可 通过 ADOConnection 组 件 连接 数据 存储 。 

存储 过 程 主 要 是 对 客户 /服务 器 两 层 数据 库 或 多 层 数据 库 而 言 的 。 存 储 过 程 就 是 存放 在 
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数据 库 服务 器 上 的 一 段 程序 代码 ,用 户 程序 可 直接 调用 ,从 而 无 须 在 用 户 程序 中 再 做 更 多 的 工 
作 。 之 所 以 要 把 存储 过 程 放 在 数据 库 服务 器 上 ,是 因为 放 在 服务 器 上 的 代码 在 执行 时 效率 高 ， 
能 减少 网 络 数据 流量 ,防止 出 现 网 络 阻塞 。 比 如 ,在 查询 数据 时 ,调用 存储 过 程 可 以 只 把 结果 
传递 回来 而 无 须 先 传递 数据 到 本 地 然后 再 查询 结果 。 

一 般 来 说 ,因为 存储 过 程 是 放 在 数据 库 服务 器 上 的 ,所 以 建议 直接 在 数据 库 服 务 器 上 编写 
存储 过 程 , 当 然 也 可 以 有 其 他 办 法 进行 。 存 储 过 程 的 语法 规则 : 包含 一 个 过 程 头 和 过 程 体 。 
存储 过 程 头 包含 一 个 过 程 名 ,一 个 可 选 的 参数 表 以 及 一 个 可 选 的 输出 参数 表 。 过 程 体 中 包含 
局 部 变量 以 及 执行 具体 逻辑 的 SQL 语句 。 这 些 语 句 组 成 了 一 个 块 ,从 BEGIN 开始 ,以 END 
结束 。 存 储 过 程 也 可 以 谋 套 。 存 储 过 程 分 为 两 类 : 选择 型 过 程 , 它 能 够 返回 一 个 结果 集 , 数 据 
来 自 一 个 或 多 个 数据 库 表 或 视图 ; 执行 型 过 程 , 它 不 返回 结果 集 , 但 它 可 以 对 服务 器 端的 数据 
进行 某 种 逻辑 操作 。 

ADOStoredProc 组 件 与 BDE 组 件 面板 中 的 StoredProc 组 件 对 应 。 

2. 通过 ADO 连接 数据 库 

基于 ADO 的 数据 库 应 用 程序 与 基于 BDE 的 程序 相同 ,也 是 由 包括 数据 控制 组 件 的 用 户 
界面 .用 于 连接 数据 库 的 数据 集 组 件 ,以 及 用 于 连接 数据 集 组 件 和 数据 控制 组 件 的 
DataSource 组 件 构成 的 。 在 建立 了 用 户 界 面 与 应 用 程序 的 连接 之 后 ,数据 库 操纵 的 方法 与 前 
面 见 到 过 的 程序 相同 ,所 以 本 节 只 介绍 使 用 ADO 的 数据 库 连 接 方式 。 

1) 构造 连接 字符 串 

与 BDE 的 数据 库 别名 不 同 ,ADO 使 用 连接 字符 串 连接 和 访问 数据 库 ,连接 字符 串 实现 连 
接 参数 的 配制 。ADOConnection 及 其 他 ADO 访问 组 件 都 包括 一 个 ConnetctionString 属性 ， 
用 于 指定 一 个 与 ADO 数据 存储 和 属性 的 连接 。 在 将 ADO 的 数据 集 组 件 ( 如 ADOTable、 
ADOQuery 和 ADODataSet 等 ) 放 到 窗 体 上 后 ,可 按 以 下 操作 方法 构造 连接 字符 串 。 

(1) 在 对 象 观察 器 中 选择 数据 集 组 件 的 ConnectionString 属性 , 单 击 属性 项 右 侧 的 符号 
按钮 ,打开 连接 字符 串 对 话 框 ,如 图 9-13 所 示 。 


DataModule2.ADOTablel ConnectionString 区 本 
Source of Connection 
Use Data Link Fle 


加 Use Connection String 
BDASOL.1.persist Security Info=False:Data Source=MyDBDEMOS 


OK Cancel Hep 


图 9-13 连接 字符 串 对 话 框 


(2) 连接 字符 串 对 话 框 中 有 如 下 两 个 单 选项 ,提供 了 两 种 不 同 的 连接 方式 。 

Q@ 使 用 数据 链接 文件 : 数据 链接 文件 是 一 个 扩展 名 为 . UDL 的 文件 ,其 中 存放 了 一 个 连 
接 字 符 , 用 户 可 以 预先 建立 数据 链接 文件 ,以便 连接 字符 串 能 够 重复 利用 。 

@ 使 用 连接 字符 串 : 选择 该 项 后 需要 自己 创建 一 个 连接 字符 串 。 可 以 在 相应 的 文本 框 
中 输入 一 个 连接 字符 串 ,但 一 般 来 说 ,还 要 进行 数据 引擎 的 选择 ,所 以 应 单 击 Build 按钮 ,打开 
“数据 链接 属性 ”对 话 框 ,如 图 9-14 所 示 。 
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EE [x] 
提供 程序 | 连接 “| 高 级 | 所 有 
选择 您 希望 连接 的 数据 : 
0LE DB 提供 程序 = 
Microsoft Jet 4.0 OLE DB Provider 
LI Microsoft Office 12.0 Access Database Engine OLE DB P| 


Microsoft OLE DB Provider for Analysis Services 10.0 
Microsoft OLE DB Provider For Data Mining Services 
Microsoft OLE DB Provider for DTS Packages E 
Microsoft OLE DB Provider for Indexing Service 

区 Et OLE or rers 
| Microsoft OLE DB Provider for Olap Services 8.0 
Microsoft OLE DB Provider for Oracle | 
Microsoft OLE DB Provider for Search 
Microsoft OLE DB Provider for SQL Server 
Microsoft OLE DB Sinple Provider | 


NMSDataShape ~ | 
“ | 6 I 
下 一 步 (8) > 
[CL 胡 ][ 取消] [部 有 


9-14 “数据 链接 属性 ”对 话 框 


(3) 选择 数据 库 引 擎 。 在 对 话 框 的 “提供 程序 ”选项 卡 中 ,选择 要 连接 的 OLE DB 提供 程 
序 。 例 如 ,如 果 要 连接 Access 2000 数据 库 , 则 应 选择 Microsoft Jet 4.0 OLE DB Provider for 
ODBC Drivers。 


(4) 选择 了 数据 提供 程序 后 ,可 以 单 击 “ 下 一 步 ”按钮 或 选择 “连接 ”选项 卡 , 该 选项 卡 会 按 
前 面 选 择 的 数据 提供 者 的 不 同 而 显示 不 同 的 设置 项 。 如 图 9-15 所 示 为 选择 了 Microsoft Jet 
4.0 OLE DB Provider 后 的 “连接 ”选项 卡 。 


号 数据 链接 属性 [| 
给 供 程序 | 连接 “| 高 级 “| 所 有 | 
指定 下 列 设 置 以 连接 到 Access 数据 : 
1 选择 或 输入 数据 库 名 称 0) : 
C:\Progran Files\Connon Files\Borland Share 世 中 
2。 输入 登录 数据 库 的 信息 : 
| 用 户 名 称 (0): 。 Admin 


密码 (P 


国 空白 密码 6) ”加 人 允许 保存 密码 (5) 


到- 


[ET 


9-15 “数据 链接 属性 ”对 话 框 中 的 “连接 ”选项 卡 
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该 页 有 如 下 两 个 设置 项 。 

J 选择 或 输入 数据 库 名称 : 可 直接 在 相应 的 文本 框 中 输入 数据 库 文件 的 路 径 名 ,也 可 单 
击 按钮 ,在 打开 的 选择 Access 数据 对 话 框 中 选择 一 个 数据 库 , 然 后 返回 “连接 ”选项 卡 , 则 文本 
框 中 将 出 现 自动 形成 的 数据 库 文件 路 径 名 。 

G@ 输入 登录 数据 库 的 信息 : 在 相应 的 “用 户 名 称 ” 和 “密码 ”文本 框 中 输入 用 户 名 和 
密码 。 

该 页 设置 完成 后 ,可 单 击 “ 测 试 连接 ”按钮 ,测试 连接 是 否 成 功 。 然 后 单 击 “ 确 定 ” 按 钮 , 返 
回 连接 字符 串 对 话 框 ,相应 文本 中 将 出 现 设置 好 的 连接 字符 串 。 例 如 ,选择 了 Microsoft Jet 
4.0 OLE DB Provider 数据 提供 程序 和 D: \Program Files\Common Files\Borland Shared\ 
Data\ dbdemos. mdb 数据 库 后 形成 的 连接 字符 串 为 : Provider 二 Microsoft Jet 4. 0; Data 
Source= D: \Program Files\Common Files\Borland Shared\ Data\dbdemos. mdb; Persist 
Security Info 二 False。 在 设计 阶段 ,可 通过 连接 字符 串 对 话 框 为 ConnectionString 属性 设 定 
一 个 连接 字符 串 ( 也 可 在 程序 中 设 定 ) 。 

2) 连接 本 地 数据 库 

【 例 9.1】 通过 ADO 连接 Microsoft Access 数据 库 。 本 例 通 过 Microsoft Access 示例 数 
据 库 Dbdemos 的 连接 来 说 明 使 用 ADO 连接 本 地 数据 库 的 方法 。 

具体 操作 步骤 如 下 。 

(1) 界面 设计 。 

创建 一 个 新 的 工程 ,在 窗 体 中 添加 一 个 DBNavigator, 一 个 DBGrid 组 件 , 然 后 执行 Filel 
New|Data Module 命令 再 创建 一 个 数据 模块 Data Madule2 ,在 Data Module2 上 添加 一 个 
ADOTable 组 件 和 一 个 DataSource 组 件 ,用 户 界面 如 图 9-16 所 示 。 


回 ADO 连 按 数 据 库 l= 
Continent Area 区 
South America 2777815 司 
South America 1098575 
South America 8511196 
North America 9976147 
South America 756943 。 


+ 


«| < [mss ”| * ee 


图 9-16 ADO 连接 数据 库 


(2) 属性 设置 。 
在 Unitl 单元 文件 中 添加 DataModule2 所 对 应 的 单元 文件 Unit2。 代 码 如 下 。 


implementation 
uses unit2; 


各 组 件 的 属性 设置 如 表 9-2 所 示 。 
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表 9-2 窗 体 及 组 件 的 属性 设置 


对 象 属 性 属 性 值 说 明 
ADOTable ConnectionString & Provider= Microsoft. Jet OLEDB. 4.0; 所 访问 的 数据 库 表 
DataSource=D:\ProgramFiles 
\Common Files\Borland 
Shared\Data\dbdemos. mdb; 
Persist Security Info= False 


DataSourcel DataSet ADOTablel 访问 和 操纵 表 

DBNavigatorl Align alButtom 撑 满 窗 体 底部 

DBNavigatorl DataSource Datasourcel 连接 数据 源 

DBGridl Align alTop 撑 满 窗 体 项 部 

DBGridl DataSource Datasourcel 连接 数据 源 
(3) 程序 设计 。 


本 例 通 过 数据 库 DBDEMOS 的 连接 来 说 明 使 用 ADO 连接 本 地 数据 库 的 方法 。 


9.5 数据 库 操纵 


对 数据 库 的 存 取 和 控制 称 为 数据 库 操 纵 , 包 括 数 据 的 查询 . 读 取 、 搬 入、 删除 和 更 新 等 各 种 
操作 。 在 Delphi XE8 数据 库 应 用 程序 中 , 既 可 利用 Delphi XE8 本 身 的 功能 进行 数据 库 操纵 ， 
也 可 使 用 通用 数据 库 的 结构 化 查询 语言 (SQL) 来 进行 。 


9.5.1 字段 的 操作 


Delphi XE8 用 字段 对 象 CTField 组 件 ) 来 表示 数据 集中 的 字段 。 字 段 对 象 附属 于 数据 集 
组 件 (Table、Query 或 StoredProc 组 件 的 一 个 属性 ) ,在 程序 设计 和 运行 过 程 中 都 是 不 可 见 
的 。 每 当 数据 集 组 件 从 数据 库 中 获得 数据 时 ,就 将 其 (当前 记录 ) 放 和 字段 对 象 中 。 利 用 字段 
对 象 可 取得 当前 字段 的 值 , 设 置 它 的 值 ,而且 能 够 通过 修改 字段 对 象 的 属性 来 改变 数据 集 。 

字段 对 象 的 创建 有 如 下 两 种 方式 。 

(1) 在 应 用 程序 打开 数据 集 时 自动 创建 。 也 就 是 说 ,将 数据 集 组 件 的 Active 属性 设 为 
True, 或 执行 它们 的 Open 方法 , 即 可 创建 字段 对 象 。 这 种 方式 称 为 动态 创建 ,这 样 创建 的 字 
段 对 象 在 单元 文件 中 没有 声明 语句 。 当 数据 集 关 闭 , 即 当 数据 集 组 件 的 Active 属性 设 为 
False, 或 执行 它们 的 Close 方法 时 , 便 会 自动 撤销 。 

(2) 通过 字段 编辑 器 创建 字段 对 象 。 这 种 方式 创建 的 字段 对 象 称 为 静态 字段 对 象 ,在 关 
闭 数 据 集 时 不 会 撤销 。 

【 例 9.2】 利用 字段 对 象 操纵 共享 数据 库 DBDEMOS 中 的 customer. db 表 。 

具体 操作 步骤 如 下 。 

(1) 界面 设计 。 

创建 一 个 新 的 工程 ,在 窗 体 中 添加 一 个 Table 组 件 、 一 个 DataSource 组 件 、 一 个 
DBNavigator 和 一 个 DBGrid 组 件 , 用 户 界 面 如 图 9-17 所 示 。 

(2) 属性 设置 。 

各 组 件 的 属性 设置 如 表 9-3 所 示 。 
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9 Eee 区 本 
CustNo Company Addrl 
Ely 1221 Kauai Dive Shoppe 4976 Sugarloaf Hwy 国 
1231 Unisco PO BoxZ.547 
1351 Sight Diver 1 Neptune Lane 
1354 Cayman Divers World Unimied PO Box 541 
1356 Tom Sawyer Diving Centre 632-1 Thrd Frydenhol 
1380 Blue Jack Aqua Center 23.738 Paddington Lane 
1384 VIP Divers Club 32 ManSt 


加 » 


eaeeee 时 . 尘 . 


9-17 操纵 customer. db 表 的 窗 体 


表 9-3 各 组 件 的 属性 设置 


对 象 属性 属 性 值 说 明 
DatabaseName DBDEMOS 所 访问 的 数据 库 
Tablel TableName customer. db 所 访问 的 数据 库 表 
Active True 打开 数据 库 表 
DataSourcel DataSet Tablel 访问 和 操纵 的 数据 集 
DBNavigatorl DataSource Datasourcel 与 数据 源 组 件 连接 
DBGridl DataSource Datasourcel 与 数据 源 组 件 连接 


利用 数据 集 组 件 的 FieldDefs 属性 可 查看 动态 字段 对 象 ,这 是 一 个 数组 ,其 中 每 个 元 素 都 
代表 一 个 字段 ,这 样 就 可 按 序号 (从 0 开始 ) 来 访问 某 个 字段 的 值 。 例 如 , 例 9. 2 中 的 动态 字段 
对 象 列表 ( 单 击 FieldDefs 属性 格 右 侧 的 按钮 打开 ) 如 图 9-18 所 示 。 


属 Object Inspector el 
TablelCompany TstrnoFied 


Properties| Events| 
CustomConstraint 
DefauktExpression 
DisplayLabel |Company 
DispayWidth |33 
EditMask 
FieldKind 
FieldName 
FxedChar 
HasConstrants 
ImportedConstral 
Index I1 
KeyFields | 王 
LveBindings Desg LveBindings Designer 

ne- 


et 
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回回 


Forml.Tablel 


»| 


CustNo 


[Data 
(Company 
可 pake 


Fake 


加 


1. 字段 的 数据 类 型 

一 般 来 说 ,一 个 字段 对 象 用 来 表示 数据 集中 一 列 的 特征 ,如 数据 类 型 和 大 小 等 。 它 也 用 于 
表示 字段 的 显示 特征 ,如 排列 对 齐 方式 .显示 格式 和 编辑 格式 等 。 另 外 , 当 在 数据 集 的 记录 之 
间 滚 动 时 ,字段 对 象 将 更 新 当前 字段 的 值 , 并 显示 给 用 户 查 看 。 

数据 集中 的 字段 有 多 种 数据 类 型 ,每 种 数据 类 型 都 有 一 个 独立 的 TField 类 型 与 之 对 应 。 
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常用 的 TField 类 型 有 TBooleanField( 布 尔 型 )、TCurrencyField( 货 币 型 )、TStringField( 字 符 
串 型 ) TIntegerField( 整 数 )\TFloatField( 浮 点 型 ) 和 TBLOB( 二 进 制 对 象 ) 。 

使 用 最 多 的 是 TStringField 和 TIntegerField 类 型 的 字段 对 象 。 从 程序 设计 的 角度 来 看 ， 
不 必 关 心 字 段 对 象 的 实际 类 型 。 

Delphi XE8 所 创建 的 字段 对 象 与 字段 的 数据 类 型 有 关 。 例 如 ,对 于 字符 串 类 型 的 字段 ， 
创建 的 是 TStringField 对 象 ; 对 于 浮 点 类 型 的 字段 ,创建 的 是 TFloatField 对 象 。 对 于 不 同类 
型 的 字段 对 象 来 说 ,它们 的 属性 大 部 分 是 相同 的 ,如 DisplayWidth 等 。 但 也 有 一 些 属性 是 专 
用 的 ,例如 TFloatField 的 Precision 属性 就 是 其 他 字段 对 象 所 没有 的 。 

2. 字段 对 象 的 访问 

利用 字段 对 象 ,可 以 存 取 数据 集中 字段 的 值 。 对 于 静态 字段 对 象 ,与 自动 生成 的 动态 字段 
对 象 的 存 取 方法 有 所 不 同 。 下 面 几 种 方法 适合 于 存 取 动态 字段 对 象 的 值 。 

(1) 数据 集 组 件 有 一 个 默认 的 数组 属性 FieldValues, 这 个 数组 以 Variant 类 型 返回 字段 
的 值 ,利用 它 可 以 存 取 字段 值 。 因 为 FieldValues 是 隐 含 的 默认 属性 ,因此 在 代码 中 不 必 写 
出 。 例 如 ,下 面 的 语句 读 取 例 9. 1 中 与 Tablel 相连 的 数据 集中 company 字段 的 当前 值 。 


Edit1. text : = Tablel['company']; 
设 VarArr 变量 的 定义 为 : 
Var VRrr: variant; 
则 下 面 几 个 语句 读 取 例 9. 1 中 三 个 字段 的 值 , 并 将 其 显示 在 消息 框 中 。 


Vrrr : = VarArrayCreate([0,2],VarVariant) // 关 键 分 析 

Vrrr : = Tablel[ 'company; city; state']; 

Showmessage(VRarr[0] + Varr[1] + varr[2]); 

关键 分 析 : VarArrayCreate([0,2],VarVariant) 用 于 创建 下 标 在 [0,2] 之 内 ,元 素 类 型 为 
VarVariant 的 数组 。 

(2) 利用 数据 集 组 件 的 数组 属性 Fields 也 可 以 存 取 字段 的 值 。Fields 属性 的 每 个 元 素 都 
代表 一 个 字段 ,这样 就 可 以 按 序号 (从 0 开始 ) 来 访问 字段 的 值 。 例 如 ,下 面 的 请 句 可 以 读 取 
company 字段 的 值 。 


Editl. text : = tablel. fields[1].value; 


其 中 ,value 是 字段 对 象 的 一 个 属性 ,原则 上 ,value 属性 可 以 访问 任何 数据 类 型 的 字段 值 ,但 所 
读 取 的 字段 值 必须 赋 给 与 它 的 数据 类 型 相 匹 配 的 变量 。 如 果 类 型 不 匹配 , 则 要 经 过 一 定 的 转 
换 才能 相互 赋值 。 字 段 对 象 包含 一 些 执行 转换 功能 的 属性 ,如 AsBoolean( 布 尔 型 )、AsFloat 
( 双 精 度 浮 点 数 )、AsInteger( 长 整数 )、AsString( 字 符 串 )、AsDateTime( 日 期 时 间 型 ) 和 Value 
(可 变 类 型 ) 。 

例如 ,下 面 的 语句 按 字符 串 类 型 来 访问 数字 型 的 city 字段 的 值 。 


Editl. text : = Tablel. field[4].asstring; 


按 序号 来 访问 字段 的 值 在 使 用 For 循环 对 列 号 进行 迭代 时 用 处 很 大 。 
(3) 利用 数据 集 组 件 的 FieldByName 方法 ,通过 列 名 也 可 访问 字段 对 象 。FieldByName 
方法 以 数据 集 的 字段 名 作为 参数 (用 引号 ) 。 例 如 ,下 面 的 语句 也 是 按 字符 串 类 型 来 访问 数字 
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型 的 state 字段 的 值 。 
Editl. text : = tablel.fieldbyname( 'state').asstring; 


(4) 编辑 当前 记录 中 的 一 个 字段 ,其 操作 步骤 如 下 。 

Q@ 调用 数据 集 组 件 的 Edit 方法 ,使 数据 集 处 于 编辑 状态 。 

@ 给 当前 字段 赋 新 值 。 

@ 调用 Post 方法 将 数据 的 变化 提交 给 数据 集 。 如 果 未 做 这 一 步 而 直接 转 入 下 一 步 ,对 
数据 的 修改 也 会 自动 提交 给 数据 集 。 

例如 ,下 面 的 语句 修改 了 custno 字段 的 当前 值 。 

tablel. Edit; 

tablel. [ 'custno'] : = 1224; 

tablel. post; 

(5) 在 数据 集中 插入 或 删除 记录 时 需要 以 下 操作 。 

QO@ 调用 insert 或 append 方法 ,使 数据 集 处 于 相应 模式 。 

@ 对 数据 集中 的 字段 赋值 。 

@ 调用 方法 将 数据 的 变化 提交 给 数据 。 也 可 以 不 调用 它 , 当 指针 转 到 下 一 个 记录 时 , 数 
据 的 变化 会 自动 提交 。 

可 以 利用 Cancel 方 法 取消 当前 对 数据 集 的 修改 。 例 如 : 

tablel. Edit; 

tablel. [ 'custno'] : = 1224; 

tablel. cancel; 

Cancel 方法 不 但 取消 了 对 数据 的 修改 ,也 同时 取消 了 当时 数据 集 的 模式 状态 , 回 到 了 浏 
览 模式 。 

3. 创建 静态 字段 

与 动态 字段 对 象 比较 ,静态 字段 对 象 最 明显 的 特点 在 于 设计 时 可 设置 属性 。 此 外 ,它们 还 
具有 可 选择 部 分 字段 ,增加 新 字段 (如 计算 字段 ) ,删除 要 保护 (避免 访问 ) 的 字段 ,以 及 改变 原 
有 字段 的 显示 和 编辑 属性 等 特点 。 所 以 经 常用 静态 字段 对 象 来 代替 动态 对 象 。 
创建 静态 对 象 要 用 到 字段 编辑 器 。 下 面 以 例 9. 2 为 


也 Sm er [Ex 例 来 说 明 具 体 的 操作 方法 。 
ee (1) 双击 Table 组 件 ,打开 字段 编辑 器 ,如 图 9-19 
1 Company 所 示 。 
2 (2) 右 击 字段 编辑 器 ,在 弹出 的 快捷 菜单 中 选择 
ee ADD Fields 命令 .打开 Add Fields 对 话 框 。 
7 (3) 在 Add Fields 对 话 框 中 选 定 要 创建 静态 字段 对 
ee 象 的 字段 , 单 击 OK 按钮 ,将 选 定 的 字段 添加 到 字段 编辑 
器 中 。 本 例 中 选择 将 所 有 字段 添加 进去 , 即 为 customer. 
12 -UstmvokeDate db 表 中 的 所 有 字段 都 创建 相应 的 字段 对 象 。 也 可 利用 快 
捷 菜 单 中 的 命令 删除 已 创建 的 静态 字段 对 象 。 
图 9-19 创建 静态 字段 时 的 对 话 框 


创建 完 静态 字段 对 象 后 ,程序 中 将 出 现 它们 的 声明 ， 
代码 如 下 。 
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type 
TForml = class(TForm) 


TablelCustNo: TFloatField; 
TablelCompany: TStringField; 
TablelAddr1: TStringField; 
TablelAddr2: TStringField; 
TablelCity: TStringField; 
TablelState: TStringField; 
TablelZip: TStringField; 


End; 


字段 编辑 器 有 一 个 特点 : 其 中 列 出 的 字段 对 象 可 以 直接 拖 放 到 窗 体 上 ,这 时 , 窗 体 上 将 出 
现 相应 的 数据 控制 组 件 ( 如 DBEdit) 和 配套 的 标签 。 

4. 访问 静态 字段 

字段 对 象 虽然 不 可 变 ,但 它 也 有 很 多 属性 ,可 以 在 程序 设计 阶段 进行 设置 。 例 如 ,设置 上 
述 静态 字段 对 象 的 属性 的 操作 方法 是 : 双击 窗 体 上 的 Tablel 标签 ,打开 字段 编辑 器 , 如 
图 9-20 所 示 。 选 择 要 设置 属性 的 字段 ,在 对 象 观察 器 中 修改 字段 对 象 的 属性 。 


大 objed Inspector [DE 
TablelCompany TstrngField ry 
Properties| Events| Forml.Tablel 
[Aionment [taLeftustify 
AutoGenerateValarNone 
ConstraintErrorMe 
CustomConstrant 
DefaukExpression 
DisplayLabel Company 至 
DspayWidth |33 
EditMask 

FieldKind fkData 


FieldName Company 
FxedChar 加 pake 
HasConstrants False 
ImportedConstrai 

Index 1 

KeyFields 

®|LveBindings Desk LveBindings Desioner 
LookupCache [四 |False 国 


LastInvoiceDate 
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选 定 已 有 的 静态 字段 对 象 , 即 可 在 对 象 观 察 器 中 看 到 如 下 属性 。 

Alignment: 设置 字段 在 数据 控制 组 件 中 的 对 齐 方式 ,包括 左 对 齐 、 右 对 齐 和 居中 。 
Display Label: 说 明 字 段 对 象 在 DBGrid 组 件 中 显示 的 标题 ,默认 为 字段 对 象 名 称 。 
Display Width: 字段 对 象 在 DBGrid 组 件 中 显示 的 列 的 宽度 。 

FileName: 字段 对 象 对 应 的 字段 名 称 。 

Index: 字段 对 象 在 DataSet 组 件 中 的 索引 号 ,从 0 开始 。 

Name: 字段 对 象 名 。 

ReadOnly: 相应 字段 是 否 能 修改 。 

Visible: 相应 字段 是 否 在 DBGrid 中 显示 。 

EditMask: 设置 扼 码 编辑 格式 。 
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MaxValue 和 MinValue: 设置 字段 的 最 大 值 和 最 小 值 , 超 范 围 时 产生 EdatabaseError 
异常 。 
静态 字段 对 象 的 访问 相对 于 动态 字段 对 象 来 说 要 简单 得 多 ,在 程序 中 可 以 直接 通过 字段 
对 象 的 名 称 ( 即 Name 属性 ) 来 访问 。 例 如 ,下 面 的 语句 将 TablelName 字段 的 标题 (可 与 字段 
名 不 同 ) 改 为 “公司 名 称 ”。 


TablelCompany.DisplayLabel : = ' 公 司 名 称 '; 
下 面 的 语句 将 TablelCity 字段 宽度 改 为 14。 


TablelCity. DisplayWith : =14; 


9.5.2 使 用 Table 组 件 的 记录 查找 


使 用 Table 组 件 可 访问 数据 集中 的 所 有 记录 和 所 有 字段 。 在 操纵 数据 集 过 程 中 , 既 可 以 
显示 和 编辑 其 中 的 所 有 记录 、 所 有 字段 ,也 可 以 选择 一 定 范围 的 记录 ,或 采用 过 滤 技 术 检 索 一 
部 分 记录 。 

说 明 : Table 组 件 用 于 引用 单个 数据 库 表 , 如 果 想 使 用 单个 组 件 访问 多 张 表 ,或 只 访问 一 
个 表 或 多 个 表 中 的 部 分 记录 和 字段 , 则 应 使 用 Query 组 件 。 

在 数据 集中 检索 记录 有 以 下 几 种 方式 : 一 是 使 用 Locate 函数 或 Lookup 函数 进行 检索 ; 
二 是 使 用 GotoKey 方法 或 FindKey 方法 ,基于 索引 关键 字 进 行 检索 ; 三 是 使 用 GotoNearest 
方法 或 FindNearest 方法 ,执行 非 精 确 匹 配 检索 。 

1. 使 用 Locate 方法 的 通用 查找 

Table 组 件 的 Locate 方法 和 Lookup 方法 可 以 在 任何 数据 表 中 按 任何 类 型 的 字段 来 搜索 
记录 ,数据 表 不 必 建 立 索引 。 

Locate 方法 用 来 在 数据 表 中 搜索 一 条 符合 条 件 的 记录 ,如 果 找 到 ,该 记录 即 可 成 为 当前 
记录 。 在 使 用 Locate 方法 执行 查询 之 前 , 先 要 调用 SetKey 方法 ,将 连接 表 的 Table 组 件 设置 
成 查询 状态 。 

2. 使 用 GotoKey 方法 的 索引 查找 

Table 组 件 的 GotoKey 方法 可 以 基于 索引 中 的 字段 搜索 匹配 的 记录 ,并 使 找到 的 记录 成 
为 当前 记录 。 使 用 GotoKey 方法 查找 的 步 又 如 下 。 

(1) 确保 待 查 字 段 是 关键 字段 (索引 中 的 字段 ) 或 已 经 为 它 定义 了 辅助 索引 。 

(2) 调用 SetKey 方 法 ,将 连接 表 的 Table 组 件 设 置 成 为 查询 状态 。 

(3) 为 每 个 待 查 字 段 设置 目标 值 。 

(4) 调用 GotoKey 方法 实现 查询 ,并 测试 它 的 返回 值 ,判断 查询 是 否 成 功 。 

说 明 : 对 于 dBASE 表 和 Paradox 表 来 说 ,只 能 基于 定义 了 索引 的 字段 进行 查找 。 

3. 使 用 FindKey 方法 的 索引 查找 

FindKey 方法 为 数据 查找 提供 了 一 个 简单 的 方法 , 它 将 设置 查找 状态 .设置 查找 值 以 及 执 
行 查找 这 三 个 步骤 的 功能 集中 在 一 个 方法 调用 中 实现 。FindKey 方法 和 GotoKey 方法 的 最 
大 区 别 在 于 : 前 者 的 查找 值 要 作为 参数 传递 给 方法 ; 而 后 者 是 不 带 参 数 的 , 它 假定 用 户 已 经 
把 查找 值 赋 给 了 代表 着 被 查找 到 的 字段 的 查找 缓冲 区 。 

FindKey 方法 接收 的 参数 是 放 在 方 括号 中 的 ,是 用 逗号 分 开 的 查找 值 数 组 。 数 组 中 的 每 
个 值 都 对 应 于 特定 字段 的 查找 值 , 即 参数 中 允许 有 多 个 查找 值 ,FindKey 允许 用 户 同时 查找 数 
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据 集中 的 多 个 字段 。 例 如 ,下 面 的 代码 查找 第 一 个 字段 值 为 custno, 第 二 个 字段 值 为 1221 的 


记录 。 


If not Tablel. findkey( 'custno', 1221) then 
showmessage( ' 对 不 起 ,没有 您 要 找 的 记录 ! '); 


4. 使 用 GotoNearest 和 FindNearest 方法 的 近似 查找 

Delphi XE8 提供 了 GotoNearest 和 FindNearest 两 个 近似 查找 方法 ,它们 不 要 求 查 找 结 
果 与 查找 值 精确 匹配 。 如 果 找 到 与 指定 值 匹配 的 记录 , 则 将 记录 指针 指向 该 记录 处 ; 否则 ,将 
会 找 出 与 指定 值 最 接近 的 记录 并 将 记录 指针 指向 它 。 可 见 ,这样 的 查找 不 会 失败 ,总 会 查找 出 
一 个 结果 来 (两 个 函数 都 返回 Boolean 值 ) ,尽管 这 个 结果 可 能 不 是 用 户 需要 的 。 

GotoNearest 和 FindNearest 的 使 用 方法 相同 ,但 使 用 GotoNearest 方法 时 ,指定 的 查找 
值 可 以 是 不 完整 的 。 例 如 ,如 果 要 查找 '20809', 则 在 指定 查找 值 时 ,可 以 使 用 '20809'、'208' 等 作 
为 查找 值 。FindNearest 与 FindKey 的 使 用 方法 相同 ,但 使 用 FindNearest 方法 时 ,指定 的 查 


找 值 可 以 是 不 完整 的 ,例如 : 


Tablel. setkey; 


tablel. FieldByName( 'Custno'). AsString : = inputbox( ' 请 输入 查找 的 条 件 ', ' 请 输入 您 要 查找 的 顾客 


号 : '，"); 

tablel. GotoNearest; 
【 例 9.3】 
具体 操作 步骤 如 下 。 
(1) 界面 设计 。 


用 Locate 方法 和 GotoKey 方法 数据 检索 。 


创建 一 个 新 的 工程 ,在 窗 体 中 添加 一 个 Tabel 组 件 、 一 个 DataSource 组 件 、 一 个 
DBNavigator, 一 个 DBGrid 组 件 、 一 个 Button 组 件 和 两 个 Edit 组 件 。 用 户 界 面 如 图 9-21 


所 示 。 
| @ 用 Locate 方法 和 GotoKey 方 法 数据 从 过 [=le| ¥ 
CustNo Company A *| 国家 : 
区 国 
城市 : 
Ee | 
“< eee se) econga) 
请 输入 查找 的 条 件 
请 输入 您 要 查找 的 顾客 号 : ”1221| 
9-21 Locate 方 法 和 GotoKey 方法 数据 检索 
(2) 属性 设置 。 


各 组 件 的 属性 设置 如 表 9-4 所 示 。 
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表 9-4 各 组 件 的 属性 设置 


对 象 属 性 属 性 值 说 明 

DatabaseName DBDEMOS 所 访问 的 数据 库 

Tablel TableName customer. db 所 访问 的 数据 库 表 
Active True 打开 数据 库 表 

DataSourcel DataSet Tablel 访问 和 操纵 的 数据 集 

DBNavigatorl DataSource Datasourcel 与 数据 源 组 件 连接 

DBGridl DataSource Datasourcel 与 数据 源 组 件 连 接 

Buttonl Caption Locate 查询 按钮 标题 

Button2 Caption GotoKey 查询 按钮 标题 


(3) 程序 设计 ,代码 如 下 。 


procedure TForm1. Button1Click(Sender: TObject); 
begin 
Tablel. SetKey; 
tablelcustno. RsString : = inputbox( "请 输入 查找 的 条 件 ， ' 请 输入 您 要 查找 的 顾客 号 :'，"'); 
if tablel. Locate( 'custno', tablelcustno. AsString, [locaseinsensitive]) then 
begin 
editl. Text : = tablelcountry. AsString; 
edit2. Text : = tablelcity. AsString; 


end 

else 

showmessage( ' 对 不 起 ,没有 您 要 找 的 记录 !'); 
end; 


Procedure TForm]. Button2Click(Sender: TObject); 

begin 
Tablel. SetKey; 
tablelcustno. AsString : = inputbox( ' 请 输入 查找 的 条 件 ', ' 请 输入 您 要 查找 的 顾客 号 :',''); 
if tablel. GotoKey then 


begin 
editl. Text : = tablelcountry. AsString; 
edit2. Text : = tablelcity. AsString; 
end 
else 
showmessage( ' 对 不 起 ,没有 您 要 找 的 记录 ! '); 
end; 
(4) 程序 分 析 。 


程序 执行 后 ,只 要 单 击 两 个 不 同 按钮 ,用 户 在 打开 的 对 话 框 中 输入 顾客 号 ,就 可 实现 两 种 
不 同 的 方法 来 查找 该 顾客 所 在 的 国家 和 城市 ,并 在 Editl 和 Edit2 中 显示 处 理 。 


9.5.3 使 用 Query 组 件 的 SQL 查询 


Query 组 件 是 基于 SQL, 专 门 用 于 查询 数据 库 中 数据 的 组 件 。 由 于 Query 组 件 使 用 SQL 
建立 与 数据 库 表 的 连接 并 实现 数据 操纵 ,因此 包含 许多 Table 组 件 所 不 具有 的 功能 。 利 用 
Query 组 件 可 以 一 次 访问 数据 库 中 的 一 个 或 多 个 表 , 还 可 以 自动 将 访问 范围 限制 在 表 中 部 分 
数据 内 。 而 且 , 它 所 访问 的 表 既 可 来 自 于 本 地 数据 库 ( 如 dBASE、Paradox 等 ) ,也 可 来 自 于 远 
程 数据 库 服 务 器 (如 SyBase、SQL Server、Oracle、Informix、DB2 和 InterBase 等 ), 还 可 来 自 于 
ODBC 数据 库 。 在 开发 范围 可 变 的 数据 库 应 用 程序 时 .Query 组 件 非 常 重要 。 
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1. 连接 数据 库 表 

使 用 Query 组 件 构造 数据 库 应 用 程序 和 使 用 Table 组 件 有 相似 之 处 ,它们 都 需要 一 个 
DataSource 组 件 来 和 数据 控制 组 件 相连 ,而 且 都 要 通过 DataBaseName 属性 指定 数据 库 名 称 
或 目录 路 径 。 前 面 提 到 的 移动 当前 记录 位 置 、 插 入 处 修改 记录 等 方法 也 适用 于 Query 组 件 。 
但 Query 组 件 和 Table 组 件 的 不 同 之 处 在 于 : Query 组 件 没 有 TableName 属性 ,而 是 用 SQL 
属性 编写 语句 和 某 个 数据 集 相连 并 选择 要 显示 的 域 。 

【 例 9.4】 通过 Query 组 件 实现 对 共享 数据 库 DBDEMOS 中 的 customer. db 表 的 操纵 。 

具体 操作 步骤 如 下 。 

(1) 界面 设计 。 

创建 一 个 新 的 工程 ,在 窗 体 中 添加 一 个 Query 组 件 .一 个 DataSource 组 件 .一 个 DBNavigator 
和 一 个 DBGrid 组 件 。 用 户 界面 如 图 9-22 所 示 。 


Damr 广 

CustNo Company Addrl < 
1221 Kauai Dive Shoppe 4976 Sugaloaf Hw| 司 
1231 Unisco PO Box2Z.547 3 
1351 Sight Diver 1 Neptune Lane 


1354 Cayman Divers World Unimied PO Box 541 


:|:::::: 略 


DataSourcel : . :Queryl 


图 9-22 “用 SQL 方法 连接 数据 库 ? 界 面 


(2) 属性 设置 。 
各 组 件 的 属性 设置 如 表 9-5 所 示 。 


表 9-5 窗 体 及 组 件 的 属性 设置 


对 象 属 性 属性 值 说 明 
DatabaseName “| DBDEMOS 所 访问 的 数据 库 
Queryl SQL 语句 
SQL Select * from customer 查询 customer 表 
DataSourcel DataSet Queryl 访问 和 操纵 的 数据 集 
DBNavigatorl DataSource Datasourcel 与 数据 源 组 件 连 接 
DBGrid DataSource Datasourcel 与 数据 源 组 件 连 接 
(3) 程序 分 析 。 
Query 组 件 连 接 数据 表 的 过 程 如 下 。 


选 定 Query 组 件 并 选择 它 的 SQL 属性 ,打开 字符 串 列表 编辑 器 (String List Editor) ,如 
图 9-23 所 示 。 
编写 SQL 语句 。 本 例 中 输入 Select 请 句 , 指 定数 据 源 为 customer. db 数据 库 表 。 


Select * from customer 
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@ string List Editor x 


1ine 
Select ™ from customer 


» 


(Code Edtor.. Eo J][ en |[ eb 


9-23 String List Editor 


这 条 Select 语句 将 显示 customer. db 表 中 所 有 的 记录 和 字段 。 

(4) 激活 Query 组 件 。 本 例 中 直接 在 对 象 观察 器 中 将 其 Active 属性 设置 为 True, 则 
Select 语句 指定 的 customer 表 将 打开 ,并 显示 在 DBGrid 控件 中 。 

如 果 该 SQL 语句 要 对 它 所 连接 的 数据 集 进行 修改 ,还 必须 将 RequeseLive 属性 值 设 为 
True, 和 否则 只 能 浏览 该 数据 集 。 

2. SQL 命令 文本 的 编写 

进行 数据 库 查 询 时 ,必须 设置 查询 条 件 , 即 需要 编写 SQL 命令 文本 。 这 项 工作 可 在 程序 
设计 期 间 完 成 ,也 可 在 程序 运行 期 间 完 成 。 

(1) 使 用 字符 串 列 表 编 辑 器 编写 。 利 用 Query 组 件 的 SQL 属性 打开 字符 串 列表 编辑 器 ， 
输入 SQL 语句 后 , 单 击 OK 按钮 可 将 编辑 器 中 的 SQL 命令 文本 装 入 SQL 属性 中 。 也 可 右 击 
编辑 器 ,在 弹出 的 快捷 菜单 中 选择 Save 命令 ,将 编写 好 的 SQL 命令 保存 到 一 个 文件 中 供 以 后 
使 用 。 

打开 字符 串 列表 编辑 器 之 后 ,还 可 右 击 编辑 器 ,在 打开 的 快捷 菜单 中 选择 Load 命令 ,从 
一 个 SQL 命令 文件 中 调和 SQL 命令 。 

(2) 使 用 SQL 构造 器 (SQL Builder) 可 编写 Select 语句 。 右 击 Query 组 件 , 在 弹出 的 快 
捷 菜 单 中 选择 SQL Builder 命令 ,打开 SQL Builder 窗口 ,如 图 9-24 所 示 。 

SQL 构造 器 的 上 半 部 用 于 选择 数据 .数据 表 ( 一 次 可 以 选择 多 个 表 ) ,以 及 表 中 的 字段 等 ; 
下 半 部 用 于 选择 性 地 构造 查询 条 件 ,如 选择 字段 名 ,构造 逻辑 表达 式 ,选择 表 与 表 之 间 的 连接 
条 件 , 以 及 设置 分 组 、 排 序 等 。 在 SQL 构造 器 中 组 织 好 一 个 查询 并 退出 构造 器 时 ,其 中 的 
SQL 命令 会 自动 写 人 相应 SQL Builder 组 件 的 SQL 属性 。 

注 : 启动 SQL Builder 的 方法 是 ,选中 Query 组 件 , 在 对 象 观 察 器 底 端 的 状态 栏 单 击 
Excute SQL Builder, 如 图 9-25 所 示 。 

3. 静态 查询 

在 Delphi XE8 数据 库 应 用 程序 中 使 用 的 SQL 语句 有 静态 SQL 语句 和 动态 SQL 语句 两 
种 。 静 态 SQL 语句 在 程序 设计 阶段 就 已 经 固定 了 。 而 动态 SQL 语句 则 在 语句 中 加 入 了 一 些 
参数 ,在 程序 运行 过 程 中 ,可 以 改变 参数 的 值 , 即 可 以 动态 地 给 SQL 语句 中 的 参数 赋值 。 
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Properties 
Actve Balrve 加- 
AutoCakcFields «|W | True 
Criteria| Selection [Grouping | Group Criteria | Soring | Joins AutoRefresh 。 上 Fake | 
四 Remov Duplicalss CachedUpdates | False 
‘Constrained |False 
re Constraints (TCheckConstraints) 
DatabaseName = DBDEMOS 
Company customer. Company DataSource 
Addr1 customerAddr1 | 
Addr2 customer Addr2 
city customer.Clty i 四 Pass 
State FRR et LveBndings D: 
Zip customer Zip Re ee 
Es ome Doty ObjectView 站 Fake 国 
pammcheck __| 太 |Tnie 
FAX customer FAX 加 Fields Edtor... Execute SQL Buider.… 
TavRate metnmer TaxRate Bind Visualy... Add BindSource 


9-24 SQL Builder 窗口 图 9-25 启动 SQL Builder 的 方法 


例如 ,下 面 的 语句 就 是 一 条 静态 SQL 语句 。 
Select * from Customer Where CustNo = 1983; 


将 这 样 的 语句 作为 Query 组 件 的 SQL 属性 值 , 在 程序 中 执行 语句 。 如 果 是 SQL 中 的 查 
询 命令 ,将 Query 组 件 通过 DataSource 组 件 与 数据 控制 组 件 相连 ,查询 的 结果 会 显示 在 数据 
控制 组 件 上 。 这 样 的 查询 称 为 静态 查询 。 

【 例 9.5】 使 用 静态 SQL 语句 ,将 应 用 程序 的 功能 从 查询 Customer 表 的 所 有 记录 和 字 
段 改 为 查询 Country 表 中 Name 字段 的 值 为 Cuba 的 记录 。 即 将 Query 组 件 中 SQL 属性 原 有 
的 值 Select * from Customer 改 为 Select * from Country Where Name 一 'Cuba'。 

具体 操作 步骤 如 下 。 

(1) 界面 设计 。 

创建 一 个 新 的 工程 ,在 窗 体 中 添加 一 个 Query 组 件 、 一 个 DataSource 组 件 、 一 
组 件 .一 个 DBNavigator 和 一 个 DBGrid 组 件 。 用 户 界 面 如 图 9-26 所 示 。 


个 Button 


全 数据 择 纵 en 
Name Capial Continent Area 
PiCuba i Havana North America 114524 ”106 
:加 
jl< eley* [=a [xe SQL 


9-26 ”静态 SQL 查询 
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(2) 属性 设置 。 
各 组 件 的 属性 设置 如 表 9-6 所 示 。 


表 9-6 窗 体 及 组 件 的 属性 设置 


对 象 属 性 属性 值 说 明 
Queryl DatabaseName DBDEMOS 所 访问 的 数据 库 
DataSourcel DataSet Queryl 访问 和 操纵 的 数据 集 
DBNavigatorl DataSource Datasourcel 与 数据 源 组 件 连接 
DBGrid1 DataSource Datasourcel 与 数据 源 组 件 连接 
Buttonl Caption SQL 按钮 标题 栏 


(3) 程序 设计 ,代码 如 下 。 


procedure TForm1. Button1Click(Sender: TObject); 


begin 
Query1. Close; // 关 键 分 析 1 
Query1.SQL. Clear; // 关 键 分 析 2 


Query1.SQL. Add( 'Select * from country'); 
Query1. SQL. Add( 'where Name = ''Cuba'''); 
Try // 关 键 分 析 3 
Query1l1. Open; 
except 
Query1. ExecSQL; 
end; 
end; 
(4) 程序 分 析 。 
关键 分 析 1: Queryl 的 Close 方法 用 于 关闭 数据 集 。 
关键 分 析 2: Queryl 的 Clear 方法 用 于 清除 SQL 属性 现 有 的 SQL 命令 。 如 果 不 清 除 , 则 
Add 方 法 设置 的 SQL 命令 将 追加 到 现 有 SQL 命令 之 后 。 
关键 分 析 3: Queryl 的 Open 方法 将 使 用 数据 集 的 Active 属性 设置 为 True, 从 而 允许 数 
据 的 读 / 写 操作 。 同 时 , 它 还 将 执行 SQL 的 Select 命令 ,如 果 调 用 Open 方法 而 没有 查询 结 
果 ,就 会 出 错 , 这 时 应 该 调用 ExceSQL 方法 来 代替 Open 方法 。ExceSQL 方法 还 能 执行 其 他 
的 SQL 命令 ,如 Insert、Update 和 Delete 等 。 如 果 无 法 确定 Query 组 件 中 的 SQL 是 否 会 返 
回 结果 ,可 用 Try…Except 结构 设计 程序 。 
4. 动态 查询 
静态 查询 是 在 应 用 程序 设计 期 间 设置 好 查询 条 件 ,程序 运行 期 间 则 根据 固定 的 条 件 进 行 
查询 。 这 种 方法 比较 简单 ,但 实用 性 差 。 对 于 较 复 杂 的 查询 ,一般 采用 动态 查询 , 即 在 程序 运 
行 期 可 以 改变 查询 条 件 的 查询 。 
动态 SQL 语句 就 是 参数 化 的 语句 , 即 在 SQL 语句 中 包含 着 表示 字段 名 或 表 名 的 参数 。 
例如 ,在 例 9.4 中 的 Queryl 的 SQL 中 增加 下 面 一 条 动态 SQL 语句 。 
Select * from Customer Where Name = : Country; 
其 中 的 变量 Country 是 一 个 参数 变量 ,由 “: ”引导 ,在 程序 运行 过 程 中 ,必须 为 该 参数 赋值 ,这 
条 SQL 语句 才能 正确 执行 ,每 次 应 用 程序 运行 时 可 以 赋予 参数 不 同 的 值 。 
动态 SQL 语句 的 编写 方式 与 静态 SQL 语句 相同 ,可 通过 参数 编辑 器 赋值 。 方 法 是 : 在 
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对 象 观 察 器 中 ,找到 Query 组 件 的 Parames 属性 ,打开 参数 编辑 器 。 在 其 中 的 参数 列表 中 选 
择 一 个 参数 ,对 象 观 察 器 便 会 显示 参数 属性 。 其 中 , DataType 属性 表示 参数 的 数据 类 型 ， 
ParamType 属性 表示 参数 的 使 用 类 型 ,Value 属性 具有 参数 的 值 (Value) 和 类 型 (Type) 两 个 
子 属 性 。 本 例 中 ,上 述 属 性 分 别 设置 为 ftString、ptInputOutput、Columbia 和 String。 

设置 完 参数 后 ,关闭 参数 编辑 器 ,打开 Query 组 件 所 连接 的 数据 库 , 则 在 与 Query 组 件 相 
连接 的 数据 控制 组 件 中 会 显示 出 查询 结果 。 

除了 在 设计 阶段 用 参数 编辑 器 为 参数 赋值 的 方法 外 ,还 可 在 应 用 程序 运行 过 程 中 为 参数 
赋值 ,这 是 使 用 可 变 参 数 的 主要 方法 。 这 种 赋值 方法 分 为 以 下 三 种 情况 。 

1) 使 用 Parems 属性 按 序号 访问 参数 

Query 组 件 的 Params 属性 在 设计 时 不 可 用 ,在 程序 运行 过 程 中 可 用 而 且 是 动态 建立 的 。 
在 为 Query 组 件 编写 动态 SQL 语句 时 ,Delphi XE8 自动 建立 一 个 数组 Params, 数 组 从 0 下 标 
开始 ,依次 对 应 SQL 语句 中 的 参数 。 也 就 是 说 ,命令 中 第 一 个 参数 对 应 Params[0], 第 二 个 参 
数 对 应 Params[1] ,以 此 类 推 。 本 例 中 ,在 窗 体 上 添加 一 个 按钮 ,并 编写 单 击 事件 过 程 。 

【 例 9.6】 按 序号 输入 参数 动态 SQL 查询 。 

具体 操作 步骤 如 下 。 

(1) 界面 设计 。 

创建 一 个 新 的 工程 ,在 窗 体 中 添加 一 个 Query 组 件 、 一 个 DataSource 组 件 .一 个 Button 
组 件 .一 个 DBNavigator 和 一 个 DBGrid 组 件 。 用 户 界面 如 图 9-27 所 示 。 


图 按 序 号 输入 参数 动态 SQL 音 询 = 习 
请 输入 国家 各 称 | 
国家 名 称 : US 
| Ce 


图 9-27 “ 按 序号 输入 参数 动态 SQL 查询 "界面 


(2) 属性 设置 。 
各 组 件 的 属性 设置 如 表 9-7 所 示 。 


表 9-7 窗 体 及 组 件 的 属性 设置 


对 象 属 性 属性 值 说 明 
Queryl DatabaseName DBDEMOS 所 访问 的 数据 库 
DataSourcel DataSet Queryl 访问 和 操纵 的 数据 集 
DBNavigatorl DataSource Datasourcel 与 数据 源 组 件 连接 
DBGrid1 DataSource Datasourcel 与 数据 源 组 件 连接 


Buttonl Caption 输入 参数 按钮 标题 栏 
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(3) 程序 设计 ,代码 如 下 。 


procedure TForm1. buttonlclick(Sender: TObject); 
begin 
queryl. Close; 
queryl. Params[0].AsString : = inputbox( ' 请 输入 国家 名 称 ', ' 国 家 名 称 :',''); 
queryl. Open; 
end; 


(4) 程序 分 析 。 


程序 运行 后 , 单 击 Buttonl 按钮 ,打开 输入 对 话 框 ,在 其 中 的 文本 框 中 输入 一 个 国名 , 则 
DBGrid 中 显示 相应 的 记录 ,如 图 9-28 所 示 。 


国 按 序 输入 参数 动态 SQL 理 鹿 ese 

Add2 Cy Tr Co jphone EE 

Pb Sule103 KapaaKauai HI 94766-1234 US 808555| 司 
Suite 310 Wapahu HI 99776 Us 401.609. 
KailuaKona HI 94756 Us 808.555. 
Marathon FL 35003 Us 800.555. 
Giibaldi on 91187 Us 610.772. 
KailuaKona HI 94756 Us 317.649. 


Sarasota FL 32274 us 813-870. 
+ 


m4 时 i=i 和 wx 
eey 


图 9-28 ” 按 序号 输入 参数 动态 SQL 查询 结果 


2) 使 用 ParemByName 函数 按 名 称 访问 参数 

ParemByName 是 一 个 函数 ,用 动态 SQL 语句 中 的 参数 作为 调用 ParemByName 函数 的 
参数 ,这 样 便 可 为 其 赋值 。 例 如 ,本 例 中 也 可 使 用 以 下 语句 为 参数 Country 赋值 。Query1. 
ParamByName('County'). AsString : 二 InputBox(' 请 输入 国家 名 称 ', ' 国 家 名 称 : ',''); 

3) 使 用 DataSource 属性 从 另 一 个 数据 集 获 得 参数 

使 用 上 述 两 种 方法 的 前 提 是 用 户 预 先知 道具 体 的 参数 值 ,而 在 有 些 程序 中 ,参数 值 是 无 法 
确定 的 。 例 如 ,参数 值 来 自 于 另 一 个 查询 的 结果 。 这 就 需要 设置 Query 组 件 的 DataSource 属 
性 值 ,其 值 为 另 一 个 DataSource 组 件 的 名 字 。 应 用 程序 运行 时 ,会 自动 将 未 赋值 的 参数 与 
DataSource 组 件 中 的 字段 比较 ,并 将 相应 的 字段 值 赋 给 与 其 匹配 的 参数 。 利 用 这 种 方法 也 能 
实现 所 谓 的 连接 查询 。 


9.6 人力 资源 管理 系统 的 开发 


开发 数据 库 应 用 程序 ,除了 要 掌握 Delphi XE8 提供 的 数据 库 组 件 和 一 些 辅 助 工 具 的 使 用 
外 ,还 需要 根据 软件 工程 的 思想 对 具体 的 任务 进行 分 析 。 下 面 简 单 介绍 一 个 人 事 管理 系统 的 
设计 过 程 ,通过 这 个 实例 来 了 解 开 发 数据 库 应 用 程序 的 一 般 方 法 。 


9.6.1 需求 分 析 
人 事 管理 系统 就 是 要 实现 对 某 单位 的 职工 进行 管理 ,整个 系统 包括 人 事 资料 录入 ,资料 查 
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询 和 资料 删除 等 功能 。 

在 应 用 系统 使 用 中 ,为 保证 系统 的 安全 ,必须 设置 用 户 检 测 程序 。 合 法 用 户 可 进入 ,非法 
用 户 拒绝 登录 。 同 时 要 能 够 设置 用 户 的 使 用 权限 ,用 户 登 录 后 只 能 进行 其 权限 所 允许 的 操作 。 
用 户 可 以 修改 本 人 密码 ,系统 管理 员 可 以 修改 、 冻 结 或 删除 普通 用 户 。 经 分 析 后 ,本 系统 具有 
以 下 三 个 功能 模块 。 

1. 系统 功能 

(1) 用 户 管 理 模块 。 主 要 实现 操作 用 户 的 增加 、 删 除 和 修改 。 

(2) 密码 修改 模块 。 主 要 实现 各 操作 用 户 修改 自己 的 操作 密码 ,系统 管理 用 户 可 以 修改 
其 他 用 户 的 密码 。 

(3) 系统 初始 化 模块 。 主 要 实现 初始 化 功能 , 即 清除 所 有 数据 表 中 的 信息 ,只 在 
Operator. db 数据 表 中 保留 一 条 默认 的 管理 员 信息 。 

(4) 退出 模块 。 实 现 系统 退出 。 

2. 人 事 管 理 

实现 人 事 信息 的 增加 、 修 改 和 删除 等 功能 。 

3. 人 事 查 询 

实现 按 各 种 条 件 进 行 查询 ,并且 实现 打印 查询 结果 。 


9.6.2 数据 库 分 析 


为 了 让 人 事 管理 系统 正常 运行 ,需要 创建 两 个 数据 表 , 一 个 是 操作 用 户 数据 表 Operator 
表 , 如 表 9-8 所 示 ; 另 一 个 是 人 事 信 息 数 据 表 Info 表 , 如 表 9-9 所 示 。 
表 9-8 ”Operator 数据 表 


序号 字段 名 说 明 序号 字段 名 说 明 
1 Username 用 户 名 .主键 5 Right2 权限 二 : 操作 
2 Password 密码 6 Right3 权限 三 : 查询 
3 Department 所 在 部 门 各 Stamp 最 后 操作 时 间 
4 Rightl 权限 一 : 管理 


表 9-9 Info 数据 表 


序号 字段 名 说 明 序号 字段 名 说 明 
1 No 职工 编号 9 Salary 工资 
2 Name 职工 姓名 10 Startwork 参加 工作 时 间 
3 Sex 性 别 11 Duty 职务 
4 Birth 出 生年 月 12 Speciality 专业 
5 Id 身份 证 号 13 Memo 备注 
6 Addr 地 址 14 Operator 操作 人 
7 Tel 联系 电话 15 Stamp 最 后 操作 时 间 
8 Unit 单位 


9.6.3 ”数据 库 与 数据 源 创 建 
本 系统 数据 库 连 接 方式 采用 了 BDE 方式 。 在 BDE 方式 中 本 系统 数据 库 采用 Paradox 驱 
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动 ,具体 操作 步骤 如 下 。 


(1) 选择 “开始 ”| “程序 ”| Borland Delphi 71BDE Administrator 命令 


所 示 的 BDE 管理 器 。 


, 即 可 打开 如 图 9-29 


蓝 BDEAdministrator CNprogram Files\Common Files\Borland shared\BDEUDAPB2CFG lea 


EO 


Object Edit View Options Help 


Xx - 
AI Database Alases | Definiton of DBDEMOS 
Databases | Configuration | Defniion | 


Type STANDARD 
DEFAULT DRIVER PARADOX 
ENABLE BCD FALSE 
PATH 


Xtreme Sample Database 2008 
Xeme Sample Database 2008 CHS 


C:\Program Files\Common Files\CodeGear Shared\Data 


DRems in DBDEMOS. 


图 9-29 BDE 管理 器 


(2) 执行 Object | New 命令 ,打开 New Database 


Alias 对 话 框 ,开始 创建 一 个 新 的 BDE 数据 库 别 名 。 首 


先 要 选择 数据 库 驱 动 程序 名 ,因为 选择 采用 Paradox 数 
据 库 格式 , 所 以 选择 STANDARD 驱动 ,如 图 9-30 
所 示 。 

(3) 单 击 OK 按钮 ,增加 了 一 个 默认 名 为 
STANDARD1 的 设置 项 。 将 STANDARDI1 改名 为 
RLZYGL, 并 且 在 该 项 中 修改 路 径 值 ,该 值 为 将 要 建立 


数据 表 的 存储 路 径 。 可 在 D 盘 中 建立 一 个 Database 文件 夹 ,然后 将 该 路 径 值 设 置 为 F， 


newbookNcodeN9. 7\Database( 用 户 可 自行 定义 ) ,如 图 9-31 所 示 。 


9-30 New Database Alias 对 话 框 


\ 


BDE 
Object Edit View Options Help 
SXom 
Al Dalabase Alases | Definiion of RLZYGL 
Databases | Confiouation | Definiton 
Type STANDARD 
DEFAULT DRIVER PARADOX 
ENABLE BCD FALSE 
PATH CMO7Database + 
四 -路 DBDEMOS 
由 - 吾 ExcelFies 
困 - 牢 MS Access Database 
四- 百 MyDBDEMOS 
由 - 宇 qd 
由 - 吾 qdfaJQTeacher 
EA | 
田 - 定 xmeme Sample Database 2008 
田 - 牢 Xtreme Sample Dalabase 2008 CHS 
Database Locaton, 


图 9-31 建立 RLZYGL 数据 
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(4) 要 使 由 RLZYGL 别名 驱动 的 数据 表 能 正常 支持 中 文 输入 ,必须 要 修改 Paradox 驱动 
设置 。 选 择 Configuration 页 进行 数据 库 驱 动 设置 ,选择 Native | PARADOX 命令 ,出 现 


PARADOX 数据 表 驱 动 的 配置 项 ,修改 LANGDRIVER 中 的 值 为 Paradox China 936, 如 
图 9-32 所 示 。 


Object Edit_ View Options Help- 


NETDIR 
VERSION 
TYPE 
LANGDRIVER 
BLOCK SIZE 
FILL FACTOR E23 


ALE 
Paradox Chna936 了 | 
2048 


7 
STRICTINTEGRTY TRUE 


| [Language diver used for creating tables, soring. colaling sequences, etc.. 
图 9-32 ”驱动 设置 


(5) 到 此 为 止 ,已 经 设置 好 了 数据 库 别 名 RLZYGL, 要 使 该 别名 立即 生效 , 则 执行 Object| 
Apply 命令 ,这 样 别名 就 设置 完毕 了 。 

(6) 接 下 来 创建 Operator 数据 表 。 

此 处 需要 注意 的 是 : 在 Delphi 7 等 早期 版 本 中 ,可 直接 使 用 菜单 列表 项 的 Database 
Desktop 来 新 建 Paradox 表 , 用 户 可 以 直接 单 击 并 运行 。 而 现在 本 教材 所 使 用 的 Delphi XE8 
版 本 中 默认 不 安装 Database Desktop, 需 用 户 借 用 Delphi 7 版 本 中 的 文件 夹 中 的 可 执行 程序 ， 
可 直接 将 文件 夹 复制 到 桌面 上 使 用 ,路 径 如 图 9-33 所 示 ,在 其 中 寻找 DBD. exe 文件 并 运行 。 


[CA\Program Files\Common Files\Borland Shared\Database Desktop| 


打开 新 建文 件 夫 


局 名称 


修改 日 期 
Bb PrivDir 2012/4/20 20:32 
] 的 位 置 bb WorkDir 2015/8/13 21:19 
人 DBCOED32.DLL 1996/2/2 15:00 
加 DBD32.EXE 2002/5/16 17:43 


9-33 ”Database Desktop 路 径 


(7) 执行 DBD. exe 后 执行 File| New |Table 命令 ,打开 Create Table 对 话 框 ,在 Table 
type 下 拉 列 表 框 中 选择 Paradox 7 ,然后 创建 如 图 9-34 所 示 的 Operator 表 基 本 结构 。 

(8) 单 击 Save As 按钮 ,保存 已 创建 的 数据 表 结 构 , 这 时 提示 输入 数据 表 名 。 可 以 通过 
Alias 下 拉 列 表 选 择 已 定义 的 别名 ,并 且 在 “文件 名 ”文本 框 中 输入 要 命名 的 文件 名 ,此 处 输入 


[2 
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Enter afield name up to 25 characters long 


厂 Pack Table 


| 


图 9-34 创建 Operator 表 


“operate. db”。 

(9) 单 击 “ 保 存 ” 按 钮 ,保存 创建 的 Operator 表 。 可 以 通过 执行 Database Desktop 数据 库 
管理 器 中 的 File| Open|Table 命令 浏览 刚 创 建 的 空 数据 表 。 

(10) 用 同样 的 方法 创建 数据 表 Info. db, 如 图 9-35 所 示 。 


Table propertes 
Valdty Checks = 


Defme 


[1. Required Field 
2 Mirimum value: 


3. Maximum value: 
4. Default value: 


IEnter a field name up lo 25 characters ong 


rs 
厂 Pack Table 
人 


图 9-35 创建 Info 表 


9.6.4 系统 的 代码 实现 


前 面 已 经 进行 了 数据 库 的 设计 及 数据 库 的 连接 等 相关 工作 ,下 面 进行 程序 代码 设计 。 

1. 程序 主 窗 体 设计 

1) 界面 设计 

创建 一 个 新 的 工程 文件 ,保存 源 程 序 文件 名 为 main. pas ,工程 文 件 名 为 rlzygl. dpr, 在 窗 
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体 中 添加 一 个 MainMenu 组 件 ,一 个 ToolBar 组 件 ,在 ToolBar 组 件 中 添加 6 个 ToolButton 
组 件 ,一 个 ImageList 组 件 ,双击 ImageList 组 件 打开 如 图 9-36 所 示 的 窗口 添加 6 个 图 片 , 程 
序 设计 界面 如 图 9-37 所 示 。 


@ Main_FormJmagelistl Imagelist 


EN 
Pe Tansparent cobr [sks 


a Defauk ~ 
Cobor 
Defaul * 
Options 
@ Crop Stretch Center 
Jmages 
党 他 名 Gi ii 四 
0 1 2 3 4 号 
[a ] [Repacew |[ Deete |[ Cear |[ Eport. | 


上 


oF 
JmageList1 ManMenul 


9-37 程序 的 主 窗 体 


2) 属性 设置 
主要 组 件 的 属性 设置 如 表 9-10 所 示 。 


表 9-10 窗 体 及 组 件 的 属性 设置 


宋体 属性 属 性 值 说 明 
Name Main_Form 窗 体 名 称 
Forml 未 
Caption 人 力 资 源 管理 系统 窗 体 标 题 
ToolBarl Images JImageListl 工具 栏 图 标 
ToolButtonl 人 a 
Show Hint True 显示 提示 
ToolButton2 We 人 有 要 i 
ShowHint True 显示 提示 
ToolButton3 本 系 先 轨 区 入 党 
ShowHint True 显示 提示 
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宋体 属性 


续 表 
属 性 值 说 明 


Hint 
ShowHint 


ToolButton4 


人 事 管理 提示 
True 显示 提示 


Hint 
ShowHint 


ToolButton5 


信息 查询 提示 
True 显示 提示 


Hint 
ShowHint 


ToolButton6 


关闭 提示 
True 显示 提示 


MainMenu Items 


3) 程序 设计 
代码 如 下 。 


Var 
Main Form: TMain Form; 
username: string; 
password: string; 
R1, R2, R3: boolean; 
implementation 
{ $R*.dfm} 
procedure TMain Form. FormActivate(Sender 
begin 
username : ; 
password : = ""; 
BR: false; 
R2 false; 
R3 : =false; 
F_login. ShowModal( ); 
if username <>'' then 
begin 
if R1 = true then 
begin 
nd4. Enabled : = true; 
n6. Enabled : = true; 
toolbutton1.Enabled : = true; 
toolbutton3. Enabled : = true; 
end 
else 
begin 
n4. Enabled : = false; 
n6. Enabled : = false; 
toolbutton]l. Enabled : = false; 
toolbutton3. Enabled : = false; 
end; 
if R2 = true then 
begin 
n2. Enabled : = true; 
toolbutton4. enabled : = true; 
end 
else 
begin 
n3. Enabled : = false; 
toolbutton4. enabled : = false; 


见 窗 体 菜单 项 


// 操 作 员 权限 


: TObject); 


// 初 始 化 


// 启 动 登录 窗口 
// 用 户 登录 ,根据 操作 员 权 限 ,设置 相应 的 菜单 项 


// 管 理 员 权限 


// 操 作 员 权限 
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end; 
if R3 = true then 
begin 
n3. Enabled : = true; 
toolbutton5. enabled : = true; 
end 
else 
begin 
n3. Enabled : = false; 
toolbutton5. enabled : = false; 
end; 
end 
else 
close; 
end; 


procedure TMain Form. N4Click(Sender 
begin 

F_operator. ShowModal( ); 
end; 


procedure TMain Form. N6Click(Sender 
var 
Tablel: TTable; 
begin 
Tablel : = TTable. createl( self); 
Tablel. DatabaseName : = 'RLZYGL'; 
Tablel. TableName : = 'Operator.db' 
Tablel. EmptyTable; 
Tablel. open; 
Tablel. Append; 


// 查 询 权 限 


: TObject); 


: TObject); 


; // 以 下 初始 化 Operator. db 


Tablel. FieldByName( 'username').asstring : 

Tablel. FieldByName( 'password').asstring : 

Tablel. FieldByName( 'department').asstring : 

Tablel. FieldByName( 'stamp').asdatetime : = date(); 

Tablel. FieldByName( 'right1').asboolean : = true; 

Tablel. FieldByName( 'right2').asboolean : = true; 

Tablel. FieldByName( 'right3').asboolean : 

Tablel. post; 

Tablel. Close; 

Tablel. TableName : = 'info. db'; 

Tablel. EmptyTable; 

Application. MessageBox( ' 初 始 化 结束 ! ', ' 提 示 信 息 ', mb_ok); 
end; 


= true; 


// 以 下 初始 化 Info. db 


procedure TMain Form. N8Click(Sender: TObject); 
begin 

Close; 
end; 


Procedure TMain Form. N2Click(Sender: TObject); 
begin 

F_rsInfo. ShowModal( ); 
end; 
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Procedure TMain_Form. N3Click(Sender: TObject); 
begin 

F_check. ShowModal( ); 
end; 


procedure TMain Form. NS5Click(Sender: TObject); 
begin 
F_changepw. ShowModal( ); 

end; 

2. 操作 员 管 理 设计 

1) 界面 设计 

在 操作 员 界 面 添 加 一 个 ToolBar 组 件 ,两 个 SpeedButton 组 件 ,三 个 GroupBox 组 件 , 在 
GroupBoxl 组 件 中 添加 4 个 Label 组 件 和 4 个 Edit 组 件 , 在 GroupBox2 组 件 中 添加 三 个 
CheckBox 组 件 ,在 GroupBox3 中 添加 三 个 RadioButton 组 件 , 组 件 的 属性 设置 如 图 9-38 
所 示 。 


[es i 

EE) : 

”操作 员 信息 操作 员 权 限 

上 口 管理 员 权 限 

本 本 口 操作 员 权 限 
部 ， 准 a 

E 日 期 口 查 询 权限 
方式 


3 新 增 操作 员 日 修改 操作 员 日 删除 操作 员 


图 9-38 “操作 员 管 理 ” 窗 口 


2) 程序 设计 
代码 如 下 。 


Var 
F_operator: TF_operator; 
Tablel: TTable; 

implementation 

{ $R*.dfm} 

Procedure TF_operator. FormActivate( Sender: TObject); 

begin 
Editl. Text : 
Edit2. Text : 
Edit3. Text : 
Edit4. Text : ="" 
Edit4. ReadOnly : = true; 
Edit4. TabStop : = false; 
Checkbox1. Checked : = false; 


Checkbox3. Checked : = false; 
edit4. text : = datetostr(date()); 
Tablel : = TTable. create( self); 
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tablel. DatabaseName : = 'RLZYGL'; 
tablel. TableName : = 'operator. db'; 
tablel. Open; 
if not Tablel. Eof then 
LoadFromTable; 
Tablel. Close; 
Radiobutton2.Checked : = true; 
end; 


procedure TF_ operator. SpeedButton1Click(Sender: TObject); 
begin 
Tablel : = TTable. create( self); 
tablel. DatabaseName : = 'RLZYGL'; 
tablel. TableName : = 'operator. db'; 
tablel. Open; 
tablel. setkey; 
Tablel. FieldByName( 'name').asstring : = editl. text; 
if tablel. gotokey then 
begin 
if RadioButton1. Checked then 
begin 
Application. MessageBox( ' 用 户 名 相同 ,请 检查 !', ' 提 示 信 息 ', mb_ok); 
editl. text : 
edit2. Text : 
edit3.Text : = ""'; 
editl, SetFocus; 
end 
else 
if RadioButton2. Checked then 
begin 
Tablel. edit; 
savetotable; 
tablel. post; 
end 
else 
begin 
tablel. edit; 
tablel. Delete; 
tablel. first; 
loadfromtable; 
end; 
end 
else 
begin 
if RadioButton1. Checked then 
begin 
Tablel. Append; 
tablel. edit; 
savetotable; 
tablel. post; 
end 
else 
begin 
Application. MessageBox( ' 没 有 该 用 户 ,请 检查 !', ' 提 示 信 息 ', mb_ok); 
editl, text : 二 
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edit2.Text : 
edit3.Text : = ""; 
edit1. SetFocus; 
end; 
end; 
tablel .close; 
end; 
Procedure TF _operator. LoadFromtable; 
begin 
Editl. text : = Tablel.FieldByName( 'username').asstring; 
Edit2. text : = Tablel.FieldByName( 'password').asstring; 
Edit3. text : = Tablel.FieldByName( 'department').asstring; 
Edit4. Text : = datetostr(tablel.FieldByName( 'stamp').asdatetime); 
heckbox1. Checked : = tablel.FieldByName( 'right1').asboolean; 
checkbox2. Checked : = tablel.FieldByName( 'right2').asboolean; 
checkbox3. Checked : = tablel. FieldByName( 'right3').asboolean; 
end; 
procedure TF _ operator. SaveToTable; 
begin 
Tablel. FieldByName( 'username').asstring : = editl. text; 
Tablel. FieldByName( 'password').asstring : = edit2. text; 
Tablel. FieldByName( 'department').asstring : = edit3. text; 
tablel. FieldByName( 'stamp').asdatetime : = strtodate(edit4. text); 
tablel. FieldByName( 'right1').asboolean : = checkbox1. Checked; 
tablel. FieldByName( 'right2').asboolean : = checkbox2.Checked; 
tablel. FieldByName( 'right3').asboolean : = checkbox3. Checked; 
end; 
procedure TF_operator. SpeedButton2Click( Sender: TObject); 
begin 
Close; 
end; 


Procedure TF_operator. RadioButtonlClick(Sender: TObject); 

begin 
editl. text : 
edit2. Text : 
edit3. Text : 
edit4. Text : = datetostr(date( )); 
checkbox1. Checked : = false; 
checkbox2. Checked : = false; 
checkbox3. Checked : = false; 
editl. SetFocus; 

end; 


Procedure TF_operator. EditlExit(Sender: TObject); 
begin 
if not RadioButton1. Checked then 
begin 
tablel. open; 
tablel. SetKey; 
Tablel. FieldByName( 'name').asstring : = editl. text; 
if not tablel. gotokey then 
begin 
Application. MessageBox( ' 没 有 该 用 户 , 请 检查 !', ' 提 示 信 息 ', mb_ok); 
edit1. SetFocus; 
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end 
else 
loadfromtable; 
end; 
Tablel. Close; 
end; 


3. 修改 密码 设计 

1) 界面 设计 

在 窗 体 中 加 入 三 个 Label 组 件 和 三 个 Edit 组 件 ,一 个 
ToolBar 组 件 , 在 ToolBar 组 件 上 添加 两 个 SpeedButton 组 件 。 
各 个 组 件 的 属性 设置 如 图 9-39 所 示 。 

2) 程序 设计 

代码 如 下 。 


procedure TF_changepw. FormActivatel( Sender: TObject); 
begin 9-39 “修改 密码 ”窗口 
if R1 then 
edit1. SetFocus 
else 
begin 
editl, text : = username; 
editl. ReadOnly : = true; 
editl.TabStop : = false; 
edit2. SetFocus; 
end; 
end; 


procedure TF_changepw. Edit1Exit(Sender: TObject); // 关 键 分 析 1 
var 
tablel: TTable; 
begin 
tablel : = TTable. Create( self); 
tablel. DatabaseName : = 'RLZYGL'; 
tablel. TableName : = 'operator. db'; 
tablel. open; 
tablel. setkey; 
tablel. Fieldbyname( 'username') .asstring : = editl. text; 
if not tablel. gotokey then 
begin 
Application. MessageBox( ' 没 有 该 用 户 , 请 检查 ! ', ' 提 示 信 息 ', mb_ok); 
edit1. SetFocus; 
end; 
tablel. Close; 
end; 


procedure TF_changepw. SpeedButton2Click(Sender: TObject); // 关 键 分 析 2 
begin 

Close; 
end; 


Pprocedure TF changepw. SpeedButtonlClick(Sender: TObject); 
var 


Delphi 程序 设计 教程 (第 3 版 ) 


Tablel: TTable; 
begin 
Tablel : =TTable.Create(self); 
Tablel. DatabaseName : = 'RLZYGL'; 
Tablel. TableName : = 'Operator.db'; 
Tablel. open; 
tablel. SetKey; 
tablel. Fieldbyname( 'username').asstring : = editl. text; 
if tablel. gotokey then 
begin 
if edit2. text = edit3. Text then 
begin 
Tablel. edit; 
Tablel. fieldByName( 'Password').asstring : = edit2. text; 
Tablel. post; 
end 
else 
begin 
Application. MessageBox( ' 两 次 输入 的 密码 不 一 致 ,请 检查 !', ' 提 示 信息 ,nb_ok); 
edit2. SetFocus; 
end; 
end; 
tablel. Close; 
if R1 then 
begin 
editl, text : = ""; 
edit2. Text : 
edit3. Text : 
edit1. SetFocus; 
end 
else 
begin 
edit2. Text : = 
edit3. Text : = "7 
edit2. SetFocus; 
end; 
end; 


3) 程序 分 析 

关键 分 析 1: 当 操作 员 进 入 修改 密码 界面 时 ,首先 输入 用 户 名 ,EditlExit 事件 在 操作 员 输 
入 完 用 户 名 后 , 当 光 标 离开 Editl 组 件 时 触发 ,主要 完成 查找 输入 的 用 户 名 是 否 存在 的 功能 。 

关键 分 析 2: SpeedButtonlClick 事件 ,主要 完成 根据 输入 的 操作 员 名 ,判断 两 次 输入 的 密 
码 信息 是 否 一 致 , 并 且 保存 修改 好 的 密码 信息 。 

4. 系统 初始 化 设计 

系统 初始 化 主要 用 来 对 应 用 系统 的 数据 库 进 行 初始 化 操作 ,Operator. db 表 初 始 化 后 ,将 
增加 一 个 默认 的 管理 员 记录 ; Info. db 表 初 始 化 后 ,将 删除 所 有 的 信息 。 在 主 窗 体 菜 单 中 的 
“系统 初始 化 ”菜单 项 触发 此 事件 ,程序 设计 如 下 。 

Procedure TMain Form. N6Click(Sender: TObject); 

a TTable; 

begin 

Tablel : = TTable. create( self); 
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tablel. DatabaseName : = 'RLZYGL'; 

// 初 始 化 Operator. db 

Tablel. TableName : = 'Operator. db'; 

tablel. EmptyTable; 

Tablel. open; 

Tablel. Append; 

Tablel.FieldBYName( 'username').asstring : 

Tablel. FieldByName( 'password').asstring : 

Tablel. FieldByName( 'department'). asstring : = ' 计 算 机 系 '; 

Tablel. FieldByName( 'stamp').asdatetime : = date(); 

Tablel. FieldByName( 'right1').asboolean : = true; 

Tablel. FieldByName( 'right2').asboolean : = true; 

Tablel. FieldByName( 'right3').asboolean : = true; 

Tablel. post; 

Tablel. Close; 

// 初 始 化 Info. db 

Tablel. TableName : = 'info. db'; 

Tablel. EmptyTable; 

Application. MessageBox( "初始化 结束 !', ' 提 示 信 息 ', mb_ok); 
end; 


5. 人 事 信息 设计 

本 部 分 主要 完成 人 事 信息 管理 ,包括 人 事 信 息 增 加 、 删 除 和 修改 等 功能 ,主要 对 Info. db 
表 进 行 存 取 , 在 主 窗 体 菜 单 中 的 “人事 管理 "菜单 项 触发 此 事件 。 

具体 操作 步 又 如 下 。 

1) 界面 设计 

在 窗 体 中 加 入 一 个 ToolBar 组 件 , 在 ToolBar 组 件 上 添加 4 个 SpeedButton 组 件 ; 再 添加 
一 个 GroupBox 组 件 ,在 GroupBox 组 件 中 添加 15 个 Label 组 件 ,11 个 Edit 组 件 ,一 个 
ComboBox 组 件 ,三 个 MaskEdit 组 件 ; 再 添加 一 个 Table 组 件 ,一 个 DataSource 组 件 和 一 个 
DBGrid 组 件 , 其 中 Tablel 组 件 中 的 DatabaseName 组 件 的 属性 为 RLZYGL,TableName 的 
属性 为 Info. db,Datasourcel 组 件 的 DataSet 属性 为 Tablel ,DBGridl 组 件 的 Datasource 属性 
为 Datasourcel ,其 他 各 个 组 件 的 属性 设置 如 图 9-40 所 示 。 


gag Ey 


Tablel DataSourcel 


人 事 信息 
职工 编号 职工 姓名 
性 别 了 联系 电话 
SEERIL 一 一 一 号 
工作 部 门 工资 
; 参 jnI 作 时 间 -一 /一 /一 职务 
专业 备注 - 
操作 员 飞人 时间- // 
通信 地 址 


图 9-40 “人 事 管理 ”窗口 
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2) 程序 设计 
代码 如 下 。 


Procedure TF_rsInfo. FormActivate(Sender: TObject); // 关 键 分 析 1 
begin 
TablelNo. displaylabel : = ' 员 工 编号 '; 
TablelName. DisplayLabel : = 
Tablel sex. DisplayLabel : 
TablelBirth. DisplayLabel : = ' 出 生年 月 '; 
TablelId. DisplayLabel : = ' 身 份 证 号 '; 
Tableladdr. DisplayLabel : = ' 通 信和 地 址 '; 
Tableltel. DisplayLabel : = ' 联 系 电话 '; 
TablelUnit. DisplayLabel : = ' 所 在 单位 '; 
Tablelsalary. DisplayLabel : = ' 工 资 '; 
TablelStartwork. DisplayLabel : = ' 参 加 工作 时 间 '; 
TablelDuty. DisplayLabel : = ' 职 务 '; 
TablelSpeciality. DisplayLabel : = ' 专 业 '; 
Tablelmemo. DisplayLabel : = ' 备 注 '; 
TablelOperator. DisplayLabel : = ' 操 作 员 '; 
TablelStamp. DisplayLabel : = ' 最 后 操作 时 间 '; 
Tablel. open; 
initiate; 
if not Tablel. Eof then 
loadfromtable 
else 
SpeedButton3. Enabled : = false; 
new_ type : = false; 
end; 


Precedure TF_rsInfo. initiate; // 关 键 分 析 2 

begin 
Editl. Text : = 
Edit2. Text : 
Edit3. Text : 
Edit4. Text : 
Edit5. Text : 
Edit6. Text : 
Edit7. Text : 
Edit8. Text : 
Edit9. Text : 
Edit9. Text : 
Editll. Text : = username; 
Maskeditl1. Text : 
Maskedit2. Text : = ""; 
Maskedit3. Text : = DatetoStr(Date()); 
combobox1. Items. Clear; 
combobox1. Items. Add( ' 男 '); 
combobox1. Items.add( ' 女 '); 
combobox1l. text : = comboboxl. Items[0]; 
Edit1. SetFocus; 

end; 


Procedure TF _rsInfo. SaveToTable; // 关 键 分 析 3 
begin 
Tablel. edit; 
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Tablel. FieldByname( 'no').asstring : = editl. text; 

Tablel. FieldBynamel( 'name').asstring : = edit2. text; 

Tablel. FieldByname( 'sex').asstring : = ComboBox!1. text; 

Tablel. FieldByname( 'id').asstring : = edit3. text; 

Tablel. FieldByname( 'birth').asdatetime : = StrtoDate(maskedit1. text); 
Tablel.FieldByname( 'tel').asstring : = edit4. text; 

Tablel. FieldByname( 'addr').asstring : = edit5. text; 

Tablel. FieldByname( 'unit').asstring : = edit6. text; 

Tablel. FieldByname( 'salary').asfloat : = StrToFloat(edit7. text); 
Tablel. FieldByname( 'startwork').asdatetime : = StrToDate(maskedit2. text); 
Tablel. FieldByname( 'duty').asstring : = edit8. text; 

Tablel. FieldByname( 'speciality').asstring : = edit9. text; 

Tablel. FieldByname( 'memo').asstring : = edit9. text; 

Tablel. FieldByname( 'operator').asstring : = edit11.text; 

Tablel. FieldByname( 'stamp').asdatetime : = StrToDate(maskedit3. text); 


Tablel. post; 
end; 
procedure TF_rsInfo. LoadFromTable; // 关 键 分 析 4 
begin 

Editl. Text : = Tablel.FieldByname( 'no').asstring; 


Edit2. Text : = Tablel.FieldByname( 'name').asstring; 

ComboBox1. Text : = Tablel.FieldByname( 'sex').asstring; 

edit3. text : = Tablel.FieldByName( 'id').asstring; 

Maskedit1. text : = DateToStr(Tablel.FieldByname( 'birth').asdatetime); 


Edit4, Text : = Tablel.FieldByname( 'tel').asstring; 
Edit5.Text : = Tablel.FieldByname( 'addr').asstring; 
Edit6. Text : = Tablel.FieldByname( 'unit').asstring; 


Edit7. Text : = FloatToStr(Tablel.FieldByname( 'salary').asfloat); 

MaskEdit2. Text : = DateToStr(Tablel. FieldByname( 'starwork').asdatetime); 

Edit8. Text : = Tablel.FieldByname( 'duty').asstring; 

Edit9. Text : = Tablel.FieldByname( 'speciality').asstring; 

Edit9. Text : = Tablel.FieldByname( 'memo').asstring; 

Edit11.Text : = Tablel.FieldByname( 'operator').asstring; 

MaskEdit3. Text : = DateToStr(Tablel. FieldByname( 'stamp').asdatetime); 
end; 


procedure TF_rsInfo. EditlExit(Sender: TObject); // 关 键 分 析 5 
begin 
if new_type then 
begin 
Tablel. setkey; 
Tablel. FieldByName( 'number').asstring : = Editl. Text; 
if Tablel. GotoKey then 
begin 
Application. MessageBox( ' 新 建 员工 编号 重复 ,请 修改 ! ', ' 提 示 信 息 ', mb_ok); 
Editl. SetFocus; 
end; 
end; 
end; 


procedure TF rsInfo.TablelAfterScroll(DataSet: TDataSet); 
begin 
if not new type then 
LoadFromTable; 
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end; 


Procedure TF_rsInfo. SpeedButton1Click(Sender: TObject); 
begin // 保 存 人 事 信息 
if new_type then 
Tablel .append; 
SaveToTable; 
new type : = false; 
if tablel. RecordCount > 0 then 
speedbutton3. Enabled : = true; 
end; 


Procedure TF _rsInfo.SpeedButton2Click(Sender: TObject); 


begin // 新 增 人 事 信息 
Initiate; 
edit1. SetFocus; 
new_type : = true; 

end; 


Procedure TF _rsInfo. SpeedButton3Click(Sender: TObject); 
begin // 删 除 当前 记录 信息 
Tablel. delete; 
if tablel. RecordCount <> 0 then 
Tablel. first 
else 
SpeedButton3. Enabled : = false; 
end; 


procedure TF_rsInfo. SpeedButton4Click( Sender: TObject); 
i .Close; 
Close; 

end; 

3) 程序 分 析 

关键 分 析 1: 该 事件 在 ”人事 管理 "窗口 启动 时 触发 ,主要 用 于 模块 的 初始 化 ,将 表 的 字段 
各 以 中 文 形式 显示 。 

关键 分 析 2: 自 定义 过 程 主要 用 于 “人 事 管理 ”窗口 界面 的 初始 化 。 注 意 , MaskEdit3 的 
Text 属性 为 字符 型 ,需要 对 日 期 变量 进行 转换 。 

关键 分 析 3: 该 过 程 主要 完成 将 当前 窗 体 界面 信息 保存 到 数据 表 的 当前 数据 指针 的 记录 
中 ,注意 各 变量 对 应 的 字段 变量 的 类 型 转换 。 

关键 分 析 4: 该 过 程 主要 用 来 从 表 中 读 取 当前 数据 指针 所 指 的 记录 ,并 在 窗 体 上 显示 
出 来 。 

关键 分 析 5: 该 过 程 主要 检测 在 新 增 人 事 信息 时 ,检查 职工 编号 是 否 相同 ,如 果 相 同 , 必 须 


小 结 


数据 库 处 理 功能 是 Delphi 重要 的 功能 之 一 。 本 章 重点 介绍 了 Delphi 数据 库 处 理 的 相关 
技术 ,详细 介绍 了 Delphi 中 数据 访问 组 件 及 数据 感知 组 件 的 常用 属性 与 方法 ,BDE、ODBC 和 
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ADO 数据 访问 技术 以 及 SQL 编程 的 相关 知识 。 
习 题 


9-1 什么 是 DBMS、DBS、DBAY? 

9-2 简 述 TTable 和 TQuery 组 件 的 功能 。 

9-3 ”什么 是 数据 表 、 字 段 . 记 录 和 索引 ? 

9-4 使 用 TDBNavigator 组 件 是 否 可 以 向 数据 库 中 插入 记录 ? 

9-5 简 述 TQuery 组 件 和 TTable 有 什么 区 别 ? 

9-6 什么 是 SQL? 在 Delphi 中 如 何 使 用 SQL? 

9-7 ADO 和 BDE 组件 有 什么 区 别 ? 

9-8 使 用 Delphi 中 的 桌面 数据 库 程序 Database Desktop 创建 一 个 学 生 信 息 的 Paradox 
数据 库 。 


Delphi XES8 串口 通信 编程 


RS-232C(RS 本 是 Recommend Standard 的 缩写 ) 是 一 种 历史 悠久 的 计算 机 接口 标准 , 它 
于 1969 年 被 国际 组 织 认可 。 

用 Delphi XE8 实现 串口 通信 ,最 常用 的 几 种 方法 为 : 使 用 API 函数 .使 用 组 件 (如 
MSComm 等 ) 或 者 在 Delphi XE8 中 调用 其 他 串口 通信 程序 。 

本 章 主要 介绍 了 串 行 通信 标准 中 的 RS-232C 标准 .串口 通信 API 函数 和 MSComm。 


10.1 RS-232C 标准 


所 谓 串 行 通信 接口 标准 ,是 指 串 行 通信 接口 与 外 设 的 信号 连接 标准 。 

实际 中 常用 的 串 行 通信 接口 标准 有 三 种 : RS-232C,RS-422A/423A 和 20mA 电流 环 。 常 
用 的 PC 都 配置 了 RS-232C 标准 接口 。RS-232C 标准 常 简称 为 RS-232 。 

下 面 介绍 一 下 RS-232C 标准 接口 。RS-232C 的 定义 包括 电气 特性 (如 电压 值 )、 机 械 特 性 
(如 接头 形状 ) 及 功能 特性 (如 脚 位 信号 ) 等 。 它 允许 一 个 发 送 设备 连接 到 一 个 接收 设备 以 传送 
数据 ,其 原始 规范 的 最 大 传输 速度 为 20kb/s。 但 事实 上 ,现在 的 应 用 早已 超过 这 个 速度 范围 。 
RS-232C 可 以 说 是 相当 简单 的 一 种 通信 标准 ,车 不 使 用 硬件 流量 控制 , 则 只 需 利 用 三 根 信 号 
线 , 便 可 做 到 全 双 工 的 传输 作业 。RS-232C 的 电气 特性 属于 非 平衡 传输 方式 , 抗 干 扰 能 力 较 
弱 , 故 传输 距离 较 短 , 约 为 15m 左右 。 

串 行 通 信 接 口 的 基本 功能 是 : 在 发 送 时 ,把 CPU 送 来 的 并 行 码 转换 成 串 行 码 , 逐 位 地 依 
次 发 送出 去 ; 在 接收 时 ,把 发 送 过 来 的 串 行 码 逐 位 地 接收 ,组 装 成 并 行 码 ,并行 地 发 送 给 CPU 
去 处 理 。 这 种 串 行 到 并 行 转换 的 功能 ,当然 可 以 用 软件 来 实现 ,但 是 这 样 会 降低 CPU 的 利用 
率 , 所 以 常用 硬件 电路 来 实现 这 种 功能 ,这 种 硬件 电路 叫做 串 行 通信 接口 。 

普通 的 Modem 通常 都 是 通过 RS-232C 串 


行 口 信号 线 与 计算 机 连接 。RS-232C 标准 说 明 ssP， 

的 是 DTE 与 DCE 之 间 的 连接 规定 ,包括 两 设备 DTR4。 Caers 

接口 电路 的 机 械 性 、 信 号 线 功能 描述 以 及 电信 号 TD 于 orprs 

特性 。 Dep ll 06 DSR 
根据 RS-232C 标准 规定 ,接口 电路 采用 一 ey 

对 物理 D 型 连接 器 : DTE 设备 应 该 有 一 个 D 型 


插头 接口 ,DCE 设备 应 该 有 一 个 D 型 插座 接口 。 
D 型 连接 可 以 是 25 局 (简称 为 DB25) ,也 可 以 是 
9 芯 ( 简 称 为 DB9)。RS-232C 引 脚 分 配 如 图 10-1 图 10-1 DB25 与 DB9 引 脚 分 配 
所 示 。 
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10.1.1 信号 连接 


RS-232C 规定 使 用 一 种 DB25 连接 器 ,其 中 20 个 脚 做 了 定义 ,9、10、11、18、25 未 做 定义 。 
各 引 脚 上 的 信号 规定 详 见 表 10-1。 表 中 的 反 向 信道 在 一 般 串 行 通信 中 很 少 用 到 。 


表 10-1 各 引 脚 上 的 信号 说 明 


引 脚 信号 名 称 信号 方向 简称 信号 功能 
1 保护 地 PG 作为 设备 的 保护 接地 
2 发 送 数 据 DTE-~DCE TxD DTE 向 DCE 发 送 串 行 数据 
3 接收 数据 DCE-~>DTE RxD DTE 从 DCE 接收 串 行 数据 
4 请 求 数据 DTE~DCE RTS ”打开 DCE 的 发 送 器 
5 清除 数据 DCE 一 DTE CTS ”响应 DTE 请 求 ,提示 DCE 开始 发 送 
6 数据 设备 准备 就 绪 DCE 一 DTE DSR 提示 DCE 已 接 上 信道 ,不 处 于 测试 ,对话 或 拨号 模式 
信号 地 SG 整个 电路 的 公共 信号 地 
8 数据 载波 检测 DCE-~~DTE DCD DCE 接收 到 远程 载波 ,通信 链 路 已 连接 
12 ” 反 向 信道 载波 检测 “DCE-~~DTE DCE 接收 到 远程 载波 ,通信 和 链 路 已 连接 
13 ” 反 向 信道 清除 检测 。 DCE 一 DTE 响应 DTE 请 求 ,提示 DCE 开始 发 送 
14 ” 反 向 信道 发 送 检测 DTE>DCE 发 送 低速 率 数据 
15 ”发 送 器 定时 时 钟 DCE-~DTE 给 DTE 提供 发 送 时 钟 
16 ， 反 向 信道 接收 数据 。 DCE 一 DTE 接收 低速 率 数据 
17 ”接收 器 定时 时 钟 DCE-~~DCE 给 DTE 提供 接收 时 钟 
19 ， 反 向 信道 请 求 发 送 DTE>DCE 打开 DTE 的 发 送 器 
20 ”数据 终端 就 绪 DTE-~DCE DTR 表明 DTE 已 准备 就 绪 
21 信和 号 质量 检查 DCE-~~DTE 指示 接收 的 误 码 率 合格 
22 振 铃 指示 DCE-~DTE RI 线路 上 有 振 铃 
23 ”数据 信号 速率 检测 ”DTE 一 DCE DSRD 选择 较 高 的 速率 ,双向 通知 
24 发 送 器 定时 时 钟 给 DCE 提供 发 送 时 钟 


RS-232C 串 行 口 信号 分 为 三 类 : 传送 信和 号、 联络 信号 和 信号 地 。 

1. 传送 信号 

传送 信号 (TxD 和 RxD) 是 经 由 (发 送 数据 信号 线 , 引 脚 2) 传 送 和 (接收 数据 信号 线 , 引 脚 
3) 接 收 的 信息 格式 , 即 一 个 传送 单位 ( 字 节 ) 由 起 始 位 ,数据 位 .奇偶 校 验 和 停止 位 组 成 。 

2. 联络 信号 

RTS、CTS、DTR、DSR、DCD 和 RI 等 6 个 信和 号 各 自 功能 如 下 。 

RTS( 请 求 传送 , 引 脚 4), 是 PC 向 Modem 发 出 的 联络 信和 号。 高 电压 表示 PC 请 求 向 
Modem 传送 数据 。 

CTS( 清 除 发 送 , 引 脚 5) ,是 Modem 向 PC 发 出 的 联络 信号 。 高 电压 表示 Modem 响应 
PC 发 出 的 RTS 信号 , 且 准 备 向 远 端 Modem 发 送 数据 。 

DTR( 数 据 终 端 就 绪 , 引 脚 ) ,是 PC 向 Modem 发 出 的 联络 信号 。 高 电压 表示 PC 处 于 就 
绪 状态 ,本 地 Modem 和 远 端 Modem 之 间 可 以 建立 通信 信道 。 若 为 低 电 平 , 则 强迫 Modem 终 
止 通信 。 

DSR( 数 据 装置 就 绪 , 引 脚 ) ,是 Modem 向 PC 发 出 的 联络 信号 。 它 指出 本 地 Modem 的 工 
作 状 态 ,高 电压 表示 Modem 没有 处 于 测试 通话 状态 ,可 以 和 远 端 Modem 建立 通道 。 
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DCD( 传 送 检测 , 引 脚 ) ,是 Modem 向 PC 发 出 的 状态 信号 ,高 电压 表示 本 地 DCE 接收 远 
端 Modem 发 来 的 载波 信号 。 

RI( 铃 指示 , 引 脚 ), Modem 向 PC 发 出 的 状态 信号 。 高 电压 表示 本 地 Modem 收 到 远 端 
Modem 发 来 的 振 铃 信号 。 

3. SG 

SG( 信 号 地 , 引 脚 ) 为 相连 的 PC 和 Modem 提供 同一 电势 参考 点 。 


10.1.2 握手 


由 上 述 可 知 DTE 和 DCE 之 间 如 果 要 实现 双向 通信 ,至 少 需要 三 条 信号 线 : TxD 使 数据 
从 DTE 到 ECE,RxD 使 数据 从 ECE 到 ETE,SG 为 信号 地 。 

但 在 实际 中 的 许多 情况 下 ,发 送 设备 一 方 需要 知道 接收 设备 一 方 是 否 已 经 做 好 接收 准备 。 
最 典型 的 例子 就 是 打印 机 与 计算 机 之 间 的 通信 。 由 于 打印 机 的 打印 速度 远 远 低 于 计算 机 的 发 
送 速 度 , 因 此 为 了 能 正确 接收 数据 ,打印 机 必须 能 够 通知 计算 机 暂停 发 送 ,采用 的 方法 就 是 使 
用 握手 信号 。 握 手 信号 还 常用 于 一 台 计 算 机 向 另 一 台 计算 机 发 送 数据 而 接收 速度 赶不上 发 送 
速度 等 情况 。 因 此 ,必须 使 用 握手 信号 , 它 提供 了 一 种 控制 数据 流 的 方法 , 即 接收 设备 可 以 控 
制 发 送 设 备 的 数据 发 送 。 同 时 也 说 明 如 果 接 收 设备 速度 比 发 送 速度 快 , 则 握手 信号 可 以 略 去 。 

在 异步 串 行 通信 中 ,这 称 为 握手 或 流量 控制 。 握 手 控制 可 以 具体 分 为 硬件 握手 (硬件 流 
控 ) 和 软件 握手 (软件 流 控 ) 。 

1. 硬件 握手 

硬件 握手 是 使 用 专门 的 握手 电路 去 控制 数据 的 传输 。 当 接收 设备 准备 好 之 后 ,就 通过 专 
用 的 握手 电路 传送 一 个 正 电压 给 发 送 设备 ,指示 发 送 设 备 数据 。 如 果 接 收 设备 传送 一 个 负电 
压 给 发 送 设备 , 则 指示 发 送 设备 停止 发 送 数据 。 

因此 为 了 构成 硬件 握手 ,还 必须 增加 一 条 传送 握手 信号 的 电路 。 这 样 ,为 了 完成 数据 通信 
需要 有 三 类 电路 : 数据 线 、 信 号 线 和 握手 线 。 

1) DTE 到 DCE 

为 了 控制 DTE 的 发 送 数 据 ,DCE 使 用 DSR 信号 作为 主 握手 信号 去 通知 DTE 已 做 好 接 
收 数据 库 的 准备 。 当 通知 DTE 暂停 发 送 数据 时 , 置 DSR 无 效 。 

2) DCE 到 DTE 

为 了 控制 DCE 的 数据 发 送 ,DTE 使 用 DTR 信号 作为 主 握手 信号 去 通知 DCE 已 做 好 接 
收 数据 的 准备 。 当 通知 DCE 暂停 发 送 数 据 时 , 置 DTR 无 效 。 

DTE 还 使 用 RTS 信号 作为 第 二 握手 信号 控制 DCE 设备 。 仅 当 这 两 条 握手 线 都 有 效 时 ， 


DCE 才 发 送 数 据 。 

3) 双向 通信 2 TD 2 

双向 通信 中 只 使 用 主 握手 线 , 则 共 需 要 5 条 信 3 Rs 
号 线 : TxD、RxD、DSR、DTR 和 SG。 如 果 还 使 用 | ee | 
第 二 握手 线 , 则 共 需 要 7 条 信号 线 。 和 一 一 一 6 

为 了 使 DCE 能 向 DTE 提供 更 多 的 信息 ,通常 省 pr “|， 
还 使 用 RI 和 DCE 两 条 信号 线 。 这 样 一 个 完整 的 | 。 20 DTR 让 
异步 串 行 通信 所 必需 的 就 是 这 9 条 信号 线 , 如 22 Rl 22 
图 10-2 所 示 。 


这 9 条 信号 线 是 最 常见 的 ,这 就 是 个 人 计算 机 。。” 因 192 有 提 手 功能 的 双向 通信 
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串口 通常 采用 9 针 而 不 是 25 针 接 口 的 原因 。25 针 的 接口 是 RS-232C 功能 所 必需 的 。 
2. 软件 握手 
软件 握手 的 原理 机 制 与 硬件 握手 基本 相同 ,不 同 的 握手 信号 是 在 数据 线 (TxD 和 RxD) 上 
进行 传送 的 ,而 不 是 在 专门 的 握手 线 上 传送 。 这 是 因为 软件 握手 信号 是 由 特殊 字符 组 成 的 ,所 
以 传送 这 些 字 符 必须 使 用 数据 电路 ,而 不 是 使 用 专门 握手 电路 。 这 种 方法 常用 在 直接 连接 或 
通过 Modem 连接 的 两 台 计 算 机 之 间 进 行 双向 通信 的 场合 。 

软件 握手 最 常用 的 协议 是 XON/XOFF 协议 。 该 协议 主要 解决 通信 双方 处 理 速 度 不 匹配 
的 问题 ,协议 规定 发 送 XOFF 表示 暂停 发 送 数据 ,发 送 XON 表示 继续 发 送 数 据 。 

如 果 要 发 送 设备 继续 发 送 数据 , 则 接收 设备 只 需 发 送 一 个 ASCII 字符 DC3( 十 进 制 19, 十 
六 进 制 13) 给 发 送 设备 ,该 字符 称 为 XOFF 字符 。 

如 果 要 使 发 送 设备 停止 发 送 数据 ,接收 设备 只 需 发 送 一 个 ASCII 字符 DC3( 十 进 制 17 ,十 
六 进 制 11) 给 发 送 设备 ,该 字符 称 为 XON 字符 。 

在 实际 应 用 中 , 常 使 用 一 个 数据 接收 缓冲 器 。 当 接收 缓冲 器 将 上 洲 ( 装 满 ) 时 ,接收 设备 发 
送 一 个 XOFF 给 发 送 设备 ; 当 接 收 缓冲 器 将 下 洲 ( 快 空 ) 时 , 则 向 发 送 设备 发 送 一 个 XON 
字符 。 

3. 便 件 与 软件 相 结合 的 握手 

软件 握手 有 个 明显 的 缺点 : ECE 设备 不 能 传递 XON 和 XOFF 字符 。 这 就 是 说 , 当 用 户 
试图 传递 含有 XOFF 字符 的 数据 流 时 ,DCE 将 出 现 “ 冻 结 ”, 即 DCE 将 停止 向 DTE 发 送 数 据 。 
因此 在 一 般 情况 下 ,DTE 与 DCE 之 间 不 采用 软件 握手 。 

为 了 综合 硬件 握手 和 软件 握手 的 好 处 ,可 以 采用 硬件 和 软件 相 结 合 的 握手 控制 。 假 设 
DTE 设备 为 计算 机 ,DCE 设备 为 Modem, 两 台 计 算 机 之 间 通 过 Modem 经 电话 线 连接 , 则 此 
时 计算 机 与 Modem 之 间 可 采用 硬件 握手 方法 ,而 两 台 计 算 机 之 间 可 以 使 用 软件 握手 方法 进 
行 联系 。 


10.1.3 微机 的 RS-232C 接口 


个 人 计算 机 的 RS-232C 接口 名 称 有 多 个 : RS-232C 口 、 串 口 、 通 信 口 .COM 口 、. 异步 
口 等 。 

目前 ,DOS 3.3 以 上 版 本 和 Windows 3. 2/98/NT 最 多 支持 4 个 串口 : COM1、COM2、 
COM3 和 COM4。 

它们 所 占用 的 IVO 口 地 址 和 中 断 号 见 表 10-2 


表 10-2 PC 的 4 个 串口 


串口 IO 地 址 中 断 号 
COMI1 0x3f8 IRQ4 
COM2 Ox2f8 IRQ3 
COM3 Ox3e8 IRQ4 
COM4 Ox2e8 IRQ3 


为 了 更 好 地 说 明 RS-232C 接口 电路 的 实际 工作 情况 ,下 面 以 应 答 呼 叫 过 程 为 例 ,具体 分 
析 其 信号 间 的 交互 关系 。 
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所 谓 应 答 呼叫 过 程 , 即 指 Modem 从 接收 到 振 铃 信号 开始 ,到 数据 传输 结束 后 Modem 和 
DTE 恢复 到 原来 的 空闲 状态 为 止 的 过 程 。 假 设 Modem 是 全 双 工 工作 ,因此 不 需要 RTS/ 
CTS 握手 信号 , 即 DTE 总 是 保持 RTS ON 状态 ,而 Modem 总 是 保持 CTS ON 状态 。 其 他 控 
制 信号 初始 化 时 均 处 于 OFF 状态 。ON 指 该 信号 有 效 ,OFF 指 该 信号 无 效 。 

(1) 数据 终端 DTE 的 控制 软件 持续 监视 振 铃 


xD, 发 送 数据 
指示 (RD ,等 待 该 信号 有 效 。DTE 和 Modem 的 引 2 | ? 
脚 连 线 如 图 10-3 所 示 。 RTS. 请 求 反 送 5 

(2) 响 铃 后 ,Modem 在 振 铃 脉冲 期 间 发 出 振 铃 5 Et 5 
指示 信号 (CRI 有 效 ) ,在 振 铃 脉冲 间隔 期 间 , 振 铃 指 2 SG 信号 其 
示 信号 有 效 。 即 随 着 振 铃 脉冲 的 有 无 , RI 信号 8 5 
ON/OFF 交替 变化 。 20 RI 拔 锥 指示 20 

(3) DTE 的 通信 控制 软件 在 检测 到 振 铃 指示 2 名 


后 ,开始 通过 计算 机 振 铃 指示 ON/OFF 变化 的 次 
数 对 振 铃 进行 计数 。 当 达到 程序 预 置 好 的 振 铃 数 
时 ,控制 软件 发 出 数据 终端 就 绪 信 号 (DTR 有 效 )， 
迫使 Modem 进入 摘 机 状态 ,开始 应 答 电 话 。 

(4) Modem 在 等 待 一 小 段 时 间 ( 如 2s) 后 ,自动 地 发 送 它 的 应 答 载 波 信 和 号。 同时 Modem 
发 出 数据 设备 就 绪 信 号 (DSR 信号 有 效 ) ,通知 DTE 已 完成 所 有 准备 工作 ,正在 等 待 对 方 载波 
信号。 

(5) 在 DTE 发 出 数据 终端 就 绪 信 号 (DTR 有 效 ) 期 间 ,DTE 的 控制 软件 监视 数据 设备 就 
绪 信 号 (DSR 是 否 有 效 ) 。 当 DSR 变 为 ON 状态 后 ,DTE 便 知道 了 Modem 已 准备 建立 数据 链 
路 ,于 是 DTE 开始 监视 载波 检测 (DCD) 信 号 ,以 检查 数据 链 路 是 否 已 建立 。 

(6) 当主 叫 Modem 的 载波 信号 出 现在 电话 线 上 时 ,被 叫 Modem 就 发 出 载波 检测 信号 
(DCD) ,通知 DTE 已 建立 数据 链 路 。 

(7) 在 数据 链 路 连接 期 间 ,发 送 数据 (CTxD) 和 接收 数据 (RxD) 线 上 即 开 始 了 全 双 工 通信 。 
同时 ,DTE 仍 监视 着 载波 检测 (DCD) 信 号 ,以 确定 数据 链 路 是 否 连 接 。 

(8) 数据 传输 结束 后 ,DTE 使 数据 终端 就 绪 信号 (DTE 无 效 ), Modem 撤销 载波 信号 并 以 
载波 检测 (DCD) 和 数据 设备 就 绪 (DSR) 信 号 无 效 给 予 响 应 。 数 据 链 路 释放 后 , Modem 和 
DTE 准备 下 一 次 接收 或 做 另 一 次 呼叫 。 


图 10-3 DTE 和 Modem 的 引 脚 边线 


10.2 串 行 口 API 函数 


虽然 Windows 操作 系统 的 机 制 禁止 应 用 程序 直接 访问 计算 机 硬件 ,但 为 程序 员 提 供 了 一 
系列 的 标准 API 函数 ,使 得 应 用 程序 的 编制 更 加 方便 ,并 且 免 除了 对 有 关 硬 件 调试 的 麻烦 。 
在 Windows 9x/NT/2000 中 ,原来 Windows 3. x 的 WM_COMMNOTEFY 消息 机 制 已 被 取 
消 ,操作 系统 为 每 个 通信 设备 开辟 了 用 户 可 定义 大 小 的 读 / 写 缓冲 区 ,端口 定义 以 文件 的 形式 
操作 ,数据 进出 通信 口 由 操作 系统 后 台 完成 ,应 用 程序 只 需 对 读 / 写 缓冲 区 操作 即 可 。 常 用 的 
串 行 通信 操作 函数 如 下 。 

1. CreateFile 

CreateFile 创建 或 打开 以 下 的 对 象 并 返回 句柄 ,可 提供 访问 的 对 象 如 下 : File( 文 件 )、 
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Pipes( 管 道 )、Mailslots( 邮 件 柳 )、Communications resources( 通 信和 资源 ) .Disk devices( 硬 盘 设 
备 , 仅 用 于 Windows NT/2000/XP)、Consoles (控制 台 ) 和 Directories (目录 , 仅 限 于 打开 
操作 ) 。 


完整 定义 ， 
Handle CreateFile ( 

LPCTSTR lpFileName, // 文 件 名 

DWORD dwDesireAccess, // 访 问 模式 ( 读 / 写 ) 

DWORD dwShareMode, // 共 享 模式 

LPSECURITY_RTTRIBUTES lpSecurityAttributes, // 安 全 属性 

DWORD dwCreationDistribution, // 文 件 已 经 存在 或 不 存在 时 的 处 理 方法 


DHORD dwFlagsAndAttributes， // 文 件 属性 , 对 于 串口 来 说 有 意义 的 属性 只 有 FILE_FLAG_ 
OVERLAPPED, 表示 端口 的 I/0 可 以 在 后 台 进行 (后 台 I0 也 叫 异步 IO) 
HANDLE hDemplateFile // 复 制 指定 文件 的 扩展 属性 
); 
2. CloseHandle 
CloseHandle 函数 关闭 一 个 已 打开 的 对 象 句柄 ,完整 定义 : 


BOOL CloseHandle ( 
HANDLE hObject // 句 柄 
) 
3. SetupComm 
SetupComm 为 通信 设备 初始 化 参数 (设置 通信 缓冲 区 的 大 小 ) ,完整 定义 ; 


BOOL SetupComm ( 
HANDLE hFile, // 句 柄 
DWORD dwInQueue, // 输 入 缓冲 区 的 大 小 
DWORD dwOutQueue // 输 出 缓冲 区 的 大 小 


); 


4. ReadFile 
ReadFile 同步 或 异步 从 文件 读 取 数 据 ,在读 之 前 可 能 要 调整 文件 指针 的 位 置 ,完整 定义 : 


BOOL ReadFile ( 


HANDLE hFile, // 句 柄 

LPVOID lpBuffer, // 接 收 数 据 的 缓冲 区 地 址 
DWORD nNumberOfBytesToRead, // 读 取 的 字 节 数 

LPDWORD lpNumberOfBytesRead, // 读 取 字 节 数 的 地 址 


LPOVERLAPPED lpOverlapped  // 当 打开 文件 指定 dwFlagsAndAttributes 参数 为 FILE_ FLAG_ 
OVERLAPPED 时 , 这 个 参数 就 必须 应 用 一 个 特殊 的 结构 ,结构 中 定义 一 次 异步 读 操 作 . 否则 , 该 参数 应 置 
为 空 。 

); 
5. WriteFile 
WriteFile 同步 或 异步 写 数据 到 文件 中 ,在 写 之 前 可 能 要 调整 文件 指针 的 位 置 , 完 整定 义 : 


BOOL WriteFile ( 


HANDLE hFile, // 句 柄 

LPCVIOD lpBuffer, // 指 向 缓冲 区 的 数据 
DWORD nNumberOfBytesToWrite, // 要 写 的 字 节 数 
LPDWORD lpNumberOfBuffersWritten, // 返 回 实际 写 的 字 节 数 


LPOVERLAPPED lpOverlapped // 当 打开 文件 指定 dwFlagsAndAttributes 参数 为 FILE_FLAG_OVERLAPPFD 
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时 ,这 个 参数 就 必须 引用 一 个 特殊 的 结构 ,结构 中 定义 一 次 异步 写 操作 。 否 则 ,该 参数 应 置 为 空 。 
); 


6. SetCommState 
SetCommState 用 指定 的 DCB 结构 设置 通信 参数 ,将 重新 初始 化 硬件 和 控制 设置 ,但 不 会 


清空 输入 输出 缓冲 区 。DCB 结构 中 包含 波 特 率 、 数 据 位 、 校 验 位 .停止 位 和 流 控制 方式 等 信 
息 。 完 整定 义 : 
BOOL SetCommState ( 
HANDLE hFile, // 句 柄 


LPDCB 1pDCB // 指 向 硬件 控制 块 
) 
7. GetCommState 
GetCommState 返回 当前 通信 参数 的 DCB 结构 。DCB 结构 中 包含 波 特 率 、 数 据 位 、 校 验 
位 、 停 止 位 和 流 控制 方式 等 信息 ,完整 定义 : 
BOOL GetCommState ( 
HANDLE hFile, // 句 柄 


LPDCB 1pDCB // 指 向 硬件 控制 块 
); 


8. ClearCommError 
ClearCommError 清除 串口 错误 并 获取 当前 状态 (可 以 返回 接收 缓冲 区 中 处 于 等 待 状态 
的 字 节 数 ) 。 完 整定 义 ， 


BOOL ClearCommError ( 


HANDLE hFile, // 名 柄 
LPDWORD lpErrors, // 接 收 错误 代码 


LPCOMSTAT lpStat // 指 向 通信 设备 的 状态 缓冲 区 
) 

9. BuildCommDCB 

BuildCommDCB 函数 用 指定 的 设备 控制 串 填充 DCB 结构 ,设备 控制 串 可 用 相应 的 模式 
控制 命令 得 到 ,如 “baud 二 12 parity 王 N data 一 8 stop 二 1” 或 “12,N,8,1”。 

要 使 设置 生效 ,还 需 调 用 SetCommState。 完 整定 义 : 


BOOL BuildCommDCB ( 
LPCTSTR lpDef, // 指 向 设备 控制 串 
LPDCB 1pDCB // 指 向 设备 控制 块 
); 
10. BuildCommDCBAndTimeouts 
BuildCommDCBAndTimeouts 函数 用 指定 的 设备 控制 串 填充 DCB 结构 ,并 设置 超时 值 、 
未 超时 值 。 设 备 控 制 串 可 用 相应 的 模式 控制 命令 得 到 ,如 “baud 二 12 parity 一 N data 一 8 stop 一 1” 
或 “12,N,8,1”。 
这 个 函数 综合 了 BuildCommDCB 和 SetCommTimeouts 两 个 函数 ,完整 定义 : 


BOOL BuildCommDCBAndTimeouts ( 
LPCTSTR lpDef, // 设 备 控制 串 
LPDCB 1pDCB, // 设 备 控制 块 
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LPCOMMTIMEOUTS lpCommTimeouts // 超 时 结构 
); 
11. ClearCommBreak 
ClearCommBreak 函数 恢复 发 送 缓冲 区 中 的 数据 传送 ,并 把 线路 置 为 nonbreak 状态 (可 
参阅 SetCommBreak 和 TransmitCommChar) 。 完 整定 义 ;: 
BOOL ClearCommBreak ( 
HANDLE hFile // 句 柄 
); 
12. CommConfigDialog 
CommConfigDialog 函数 显示 配置 端口 的 对 话 框 ,完整 定义 : 


BOOL CommConfigDialog ( 


LPTSTR lpszName, // 设 备 名 字 字 符 串 
HWND hWnd, // 窗 口 句柄 
LPCOMMCONFIG 1pCC //Comm 配置 结构 


) 


13. DeviceloControl 


DeviceloControl 函数 直接 发 送 控制 指令 到 指定 的 设备 ,让 设备 执行 特定 的 操作 。 完 整 
定义 ， 
BOOL DeviceIoControl ( 
HANDLE hDevice, // 句 柄 
DWORD dwIoControlCode, // 控 制 指令 
LPVOID lpInBuffer, // 指 定 指令 所 需 的 数据 缓冲 区 
DWORD nInBufferSize, //lpInBuffer 缓冲 区 的 大 小 
LPVOID lpOutBuffer, // 指 定 指令 返回 的 数据 缓冲 区 
DWORD nOutBufferSize, //1pOutBuffer 缓冲 区 的 大 小 
LPDWORD lpBytesReturned, //1pOutBuffer 缓冲 区 返回 数据 的 实际 大 小 
LPOVERLAPPED lpOverlapped // 指 向 Overlapped 结构 


); 


14. EscapeCommFunction 
EscapeCommFunction 函数 直接 让 设备 执行 指定 的 扩展 操作 ,用 于 完全 控制 端口 ,如 模拟 
Xon 或 Xoff 字符 的 接收 、 清 除 中 止 条 件 、 将 硬件 信号 置 ON 或 OFF 等 。 完 整定 义 : 


BOOL EscapeCommFunction ( 

HANDLE hFile, // 句 柄 

DWORD dwFunc // 要 执行 的 扩展 功能 
); 


15. GetCommConfig 
GetCommConfig 郴 数 获 得 当前 设备 的 设置 ,完整 定义 : 


Bool GetCommConfig ( 
HANDLE hCommDev, // 句 柄 
LPCOMMCONFIG 1pCC, //Comn 配置 结构 地 址 
LPDWORD lpdwSize // 缓 冲 区 大 小 

); 
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16. GetCommMask 
GetCommMask 函数 返回 指定 的 设备 的 事件 掩 码 ,完整 定义 : 


BOOL GetCommMask ( 

HANDLE hFile， // 句 柄 

LPDWORD lpEvtMask // 返 回 的 事件 掩 码 
); 


17. GetCommModemStatus 
GetCommModemStatus 函数 返回 Modem 的 控制 寄存 器 的 值 ,完整 定义 : 


BOOL GetCommModemStatus ( 

HANDLE hFile, // 句 柄 

LPWORD lpModemStat // 控 制 寄存 器 的 值 
); 


18. GetCommProperties 
GetCommProperties 函数 返回 指定 设备 的 属性 。 在 调用 SetCommState 之 前 常用 此 函数 
判断 是 否 支持 指定 的 设置 值 ,例如 ,是 否 支持 的 波 特 率 等 。 完 整定 义 : 


BOOL GetCommProperties ( 

HANDLE hFile, // 句 柄 
LPCOMMPROP 1pCommProp， // 属 性 结构 
) 


19. GetCommState 
GetCommState 函数 返回 指定 设备 当前 设置 的 设备 控制 块 ,完整 定义 : 
BOOL GetCommState ( 
HANDLE hFile, // 句 柄 
LPDCB 1pDCB // 设 备 控制 块 
); 
20. GetCommTimeouts 
GetCommTimeouts 函数 返回 指定 设备 的 所 有 读 写 操作 超时 值 ,完整 定义: 
BOOL GetCommTimeouts ( 
HANDLE hFile, // 句 柄 
LPCOMMTIMEOUTS 1pCommTimeouts // 超 时 结构 
); 
21. GetDefaultCommConfig 
GetDefaultCommConfig 函数 返回 通信 设备 的 默认 值 配 置 ,完整 定义 : 


BOOL GetDefaultCommConfig ( 


LPCSTR lpszName, // 设 备 名 字符 串 
LPCOMMCONFIG 1pCC, // 配 置 结构 


LPDWORD lpdwSize // 结 构 的 大 小 
); 


22. PurgeComm 
PurgeComm 函数 取消 输入 或 输出 缓冲 区 的 所 有 字符 ,并 中 止 悬 而 未 决 的 读 或 写 操作 , 完 
整定 义 : 
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BOOL PurgeComm ( 
HANDLE hFile, // 句 柄 
DWORD dwFlags // 取 消 操作 的 参数 
); 
23. SetCommBreak 
SetCommBreak 函数 暂停 发 送 缓冲 区 的 数据 传送 ,并 把 线路 置 为 break 状态 ,直到 调用 
ClearCommBreak 时 才 恢 复 ( 可 参阅 GetCommBreak 和 TransmitCommChar) 。 完 整定 义 : 
BOOL SetCommBreak( 
HANDLE hFile // 句 柄 
); 
24. SetCommConfig 
SetCommConfig 函数 设置 通信 设备 的 当前 配置 ,完整 定义 : 


BOOL SetCommConfig ( 


HANDLE hCommDev, // 句 柄 
LPCOMMCONFIG 1pCC, // 配 置 结构 
DWORD dwSize // 结 构 的 大 小 


); 


25. SetCommMask 
SetCommMask 函数 设置 指定 设备 的 事件 掩 码 。 调 用 此 函数 后 ,需要 再 调用 WaitCommEvent 
来 等 待 事件 的 产生 。 完 整定 义 : 
BOOL SetCommMask ( 
HANDLE hFile, // 句 柄 
DWORD dwEvtMask // 事 件 掩 码 
) 
26. SetCommTimeouts 
SetCommTimeouts 函数 设置 读 和 写 操 作 的 超时 值 , 完 整定 义 : 
BOOL SetCommTimeouts ( 
HANDLE hFile, // 通 信 设 备 句 本 
LPCOMMTIMEOUTS lpCommTimeouts // 超 时 结构 
); 
27. SetDefaultCommConfig 
SetDefaultCommConfig 函数 设置 通信 设备 的 默认 配置 .完整 定义 : 


BOOL SetDefaultCommConfig ( 


LPCSTR lpszName, // 设 备 名 字符 串 
LPCOMMCONFIG 1pCC, // 配 置 结构 
DWORD dwSize // 结 构 的 大 小 


) 


28. TransmitCommChar 

TransmitCommChar 函数 向 指定 设备 发 送 字 符 , 该 字符 将 优先 于 输出 缓冲 区 中 的 数据 。 
一 般 情况 下 , 先 调用 SetCommBreak ,再 调用 此 函数 ,最 后 调用 ClearCommChar, 用 于 优先 发 送 
指定 字符 。 完 整定 义 : 
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BOOL TransmitCommChar ( 
HANDLE hpile, // 句 柄 
Char cChar // 发 送 的 字符 
) 
29. WaitCommEvent 
WaitCommEvent 卫 数 等 待 指定 设备 的 事件 发 生 。 一 系列 的 事件 被 此 函数 监视 ,包括 设 
备 相关 的 事件 掩 码 , 可 以 同步 或 异步 方式 进行 。 完 整定 义 : 


BOOL WaitCommEvent ( 


HANDLE hFile, // 句 柄 
LPDWORD lpEvtMask, // 要 处 理 的 事件 
LPOVERLAPPED lpOverlapped, //overlapped 结构 ,用 于 异步 方式 


); 


10.3 MSComm 控件 


利用 API 函数 编写 串口 通信 程序 较为 复杂 ,利用 MSComm 组 件 则 相对 较为 简单 , 它 以 组 
件 的 形式 封装 了 API, 只 要 设置 相对 的 属性 ,在 相应 的 事件 中 处 理 串 口 的 数据 传输 各 种 操作 ， 
且 支 持 多 线程 ,所 以 MSComm 组 件 应 用 很 广泛 。 

Microsoft Communication Control (以 下 简称 为 MSComm) 是 Microsoft 公司 提供 的 
Windows 下 串 行 通信 编程 的 ActiveX 控件 。MSComm 控件 是 Visual Basic 中 的 OCX 控件 。 
VB 的 MSComm 通信 控件 具有 丰富 的 与 串口 通信 密切 相关 的 属性 及 事件 ,提供 了 一 系列 标准 
通信 命令 的 接口 ,可 以 用 它 创 建 全 双 工 的 .事件 驱动 的 高效 实 用 的 通信 程序 。 


10.3.1 MSComm 安装 


MSComm 组 件 是 Microsoft Visual Studio 配 带 的 ActiveX 组 件 , 必 须 确认 硬盘 中 存在 
MSCOMM32. DEP .MSCOMM32. OCX 和 MSCOMM. SRG 文件 ,一般 安装 Microsoft Visual 
Studio 后 这 些 文件 会 自动 生成 ,然后 在 Delphi XE8 中 安装 MSComm 控件 。 步 又 如 下 。 

(1) 先 打 开 Delphi XE8 集成 开发 环境 ,选择 菜单 Component 中 的 Import ActiveX Control 命 
令 , 在 Import ActiveX 选项 卡 内 选择 Microsoft Comm Control 6.0 项 ,如 图 10-4 所 示 。 

(2) 单 击 Install 按钮 安装 MSComm 控件 ,安装 后 在 ActiveX 组 件 板 中 出 现 MSComm 图 
标 吕 , 即 可 被 使 用 。 有 一 点 要 注意 ,在 Object Inspector 中 MSComm 控件 的 Input 和 Output 
属性 是 不 可 见 的 ,但 它们 仍然 存在 ,这 两 个 属性 的 类 型 是 Ole Variant (Ole 万 能 变量 ) 。 

如 果 MSCOMM32. OCX 文件 不 是 从 Microsoft Visual Studio 安装 的 ,而 是 从 其 他 系统 简 
单 复制 过 来 ,Delphi XE8 IDE 环境 将 提示 “该 组 件 未 注册 ”, MSCOMM32. OCX 可 以 按 如 下 两 
种 方式 注册 。 

第 一 种 方式 : 单 击 “ 开 始 ”1“ 运 行 ”, 在 “运行 ”命令 栏 中 输入 如 下 命令 。 

Regsvr32 c:\windows\system\mscomm32. ocx( 假 设 MSCOMM32. OCX 文件 被 复制 到 
该 路 径 下 ) 

第 二 种 方式 : 打开 记事 本 输入 以 下 内 容 , 并 且 保 存 为 REG 的 扩展 名 ,双击 此 文件 也 可 以 
进行 注册 。 
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REGEDIT4 
[HKEY_ CLASSES ROOT\Licenses\ 4250E830 - 6AC2 - 11cf — 8ADB — 00RRO0C00905] 
@ = " kjljvjjjoquqnjjjvpqqkqmqykypoqjquoun" 


两 种 方式 都 可 注册 。 


站 impor coml 
Registered ActiveX Controls 
| Select an ActiveX Control that is registered on your system to import. 


Q sear 中 
Desarpton Verson Fiename GL” 
MapInfo MapX V4 40 C:\progra... {SC 
Mcrosoft Comm Control 6.0 LI ER 16: 
Microsoft DDS 80 2.0 CiProgra {ca 
Microsoft Forms 2.0 Object Lbrary = 2.0 C:Windo,.. {oC 
| Microsoft Help Visuals 1.0 10 C:Progra, {31 
| | Microsoft HTML Object Library 40 C:Windo... {3C 
Microsoft InkEdit Control 1.0 10 C:\Windo,.. 如 < 
网 maosop Intemet Controls 11 CWndo... 证 
[| ft 此 ,， 1 iiProora,， {0C™ 
4 mT | 上 
图 要 本 
[ <<Back | [ Next>> Fnsh | (cences) (etep 


10-4 Import ActiveX 


10.3.2 MSComm 控件 方法 


MSComm 控件 通过 串 行 端口 传输 和 接收 数据 ,为 应 用 程序 提供 串 行 通信 功能 。 

MSComm 控件 提供 下 列 两 种 处 理 通 信 的 方式 。 

(1) 事件 驱动 通信 是 处 理 串 行 端口 交互 作用 的 一 种 非常 有 效 的 方法 。 在 许多 情况 下 ,在 
事件 发 生 时 需要 得 到 通知 ,例如 ,在 Carrier Detect(CD) 或 Request To Send(RTS) 信 号 线 上 一 
个 字符 到 达 或 一 个 变化 发 生 时 。 在 这 些 情 况 下 ,可 以 利用 MSComm 控件 的 OnComm 事件 捕 
获 并 处 理 这 些 通 信 事 件 。OnComm 事件 还 可 以 检查 和 处 理 通信 错误 。 

(2) 在 程序 的 每 个 关键 功能 之 后 ,可 以 通过 检查 CommEvent 属性 的 值 来 查询 事件 和 错 
误 。 如 果 应 用 程序 较 少 ,并 且 是 自 保持 的 ,这 种 方法 可 能 是 更 可 取 的 。 例 如 ,如 果 写 一 个 简单 
的 电话 拨号 程序 , 则 没有 必要 对 每 接收 一 个 字符 都 又 产生 事件 ,因为 唯一 等 待 接收 的 字符 是 调 
制 解 调 器 的 “确定 ”响应 。 

每 个 MSComm 控件 对 应 着 一 个 串 行 端口 。 如 果 应 用 程序 需要 访问 多 个 串 行 端口 ,必须 
使 用 多 个 MSComm 控件 。 可 以 在 Windows“ 控 制 面板 ”中 改变 端口 地 址 和 中 断 地 址 。 

尽管 MSComm 控件 有 很 多 重要 的 属性 ,但 首先 必须 熟悉 几 个 属性 。 

CommPort: 设置 并 返回 通信 端口 号 。 

Settings: 以 字符 串 的 形式 设置 并 返回 波 特 率 、 奇 偶 校 验 、 数 据 位 、 停 止 位 。 

PortOpen: 设置 并 返回 通信 端口 的 状态 ,也 可 以 打开 和 关闭 端口 。 

Input: 从 接收 缓冲 区 返回 和 删除 字符 。 

Output: 向 传输 缓冲 区 写 一 个 字符 串 。 
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10.3.3 MSComm 控件 属性 
通信 MSComm 控件 提供 了 27 个 关于 通信 控制 方面 的 属 


Obetinspector == 回 
性 和 5 个 标准 属性 ,Delphi XE8 中 MSComm 控件 的 属性 如 |[wscemma Mscomm 四 
图 10-5 所 示 。 | |Properties| Events | 
下 面 介 绍 它 的 主要 属性 。 | ee 
1. Break 属性 Hint 
描述 : 设置 或 清除 中 断 信号 的 状态 。 该 属性 在 设计 时 | oe 2 
无 效 o InputMode 0 
Left 128 
语法 : lLiveBindings “|LveBindings 
_ 加 LiveBindings De LiveBindings Designd 
[form . ] MSComm. Break[ : = {True|False}] a [qvarging 
1, » Name 
设置 为 : NullDiscard |False 
True ”设置 中 断 信号 状态 OutBuffersize |512 
False 清除 中 断 信号 状态 i 
说 明 : 当 设 置 为 True, Break 属性 发 送 一 个 中 断 信号。 RThreshold |0 
该 中 断 信号 挂 起 字符 传输 ,并 置 传输 线 为 中 断 状 态 直到 把 人 a 
Break 属性 设置 为 False。 一 般 地 , 仅 当 使 用 的 通信 设备 要 求 SThreshold 0 
设置 一 个 中 断 信号 时 , 才 设置 一 个 短 时 的 中 断 状态 。 bg 由 
数据 类 型 .Interger(Boolean)。 Width 32 司 
” CDHolding 属性 Properties About... Bind Visually... 


通过 查询 Carrier Detect (CD) 信 号 线 的 状态 确定 当前 是 “||Name 
否 有 传输 。Carrier Detect 是 从 调制 解 调 器 发 送 到 相连 计算 
机 的 一 个 信号 ,指示 调制 解 调 器 正在 联机 。 该 属性 在 设计 时 
无 效 ,在 运行 时 为 只 读 。 10-5 ”MSComm 控件 的 属性 
语法 : 


All shown 


[form . ] MSComm. CDHolding[ : = {True|False}] 


CDHolding 属性 的 设置 值 为 : 
True Carrier Detect 信和 号 线 为 高 电 平 
False Carrier Detect 信号 线 为 低 电 平 
说 明 : 当 Carrier Detect 信号 为 高 电 平 (CDHolding 二 True) 且 超时 时 ,MSComm 控件 设 
置 CommEvent 属性 为 ComEventCDTO (Carrier Detect 超时 错误 ) ,并 产生 Oncomm 事件 。 
3. CommID 属性 
返回 一 个 说 明 通信 设备 的 句柄 。 该 属性 在 设计 时 无 效 ,在 运行 时 为 只 读 。 
语法 : 


[form . ] MSComm. CommID 


说 明 : 该 值 与 Windows API CreateFile 函数 返回 的 值 一 致 。 在 Windows API 中 调用 任 
何 通信 例 程 时 使 用 该 值 。 
数据 类 型 : Long。 
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4. CommEvent 属性 

返回 最 近 的 通信 事件 或 错误 。 该 属性 在 设计 时 无 效 ,在 运行 时 为 只 读 。 
语法 : 

[form . ] MSComm. CommEvent 


说 明 : 只 要 有 通信 错误 或 事件 发 生 时 都 会 产生 OnComm 事件 ,CommEvent 属性 存 有 该 
错误 或 事件 的 数值 代码 。 要 确定 引发 OnComm 事件 的 确切 的 错误 或 事件 ,请 参阅 CommEvent 
属性 。 

数据 类 型 : JInteger。 

CommEvent 属性 返回 下 列 值 之 一 来 表示 不 同 的 通信 错误 或 事件 。 这 些 常 数 可 以 在 该 控 
件 的 对 象 库 中 找到 。 通 信和 错误 常数 见 表 10-3。 


表 10-3 通信 错误 常数 


常数 值 含义 描述 
ComEventBreak 1001 ”接收 到 一 个 中 断 信号 
ComEventCTSTO 1002 ”Clear To Send 超时 。 在 系统 规定 时 间 内 传输 一 个 字符 时 ,Clear To Send 
信号 线 为 低 电压 
ComEventDSRTO 1003 “Data Set Ready 超时 。 在 系统 规定 时 间 内 传输 一 个 字符 时 , Data Set 
Ready 信号 线 为 低 电 压 


ComEventFrame 1004 ” 帧 错误 。 硬件 检测 到 一 帧 错误 

ComEventOverrun 1005 ”端口 超速 。 没 有 在 下 一 个 字符 到 达 之 前 从 硬件 读 取 字 符 , 该 字符 丢失 

ComEventCDTO 1006 ”载波 检测 超时 。 在 系统 规定 时 间 内 传输 一 个 字符 时 ,Carrier Detect 信号 
线 为 低 电压 。Carrier Detect 也 称 为 Receive Line Signal Detect(RLSD) 

ComEventRxOver 1007 ”接收 缓冲 区 溢出 。 接 收 绥 收 冲 区 没有 空间 

ComEventRxParity ”1008 ”奇偶 校 验 。 硬件 检 测 到 奇偶 校 验 错误 

ComEventTxFull 1009 ”传输 缓冲 区 已 满 。 传 输 字 符 时 传输 缓冲 区 已 满 

ComEventDCB 1010 ”检索 端口 的 设备 控制 块 (DCB) 时 的 意外 错误 


通信 事件 常数 如 表 10-4 所 示 。 
表 10-4 通信 事件 常数 


常数 值 含义 描述 
ComEvSend 1 在 传输 缓冲 区 有 比 数 少 的 字符 
ComEvReceive 2 收 到 Rthreshold 个 字符 。 该 事件 将 持续 产生 直到 用 Input 属性 从 接收 缓冲 区 中 
删除 数据 
ComEvCTS 3 Clear To Send 信号 线 的 状态 发 生变 化 
ComEvDSR 4 Data Set Ready 信号 线 的 状态 发 生变 化 。 该 事件 只 在 DSP 从 1 变 到 0 时 才 发 生 
ComEvCD 5 Carrier Detect 信号 线 的 状态 发 生变 化 
ComEvSing 6 检测 到 振 铃 信号 。 一 些 UART( 通 用 异步 接收 -传输 ) 可 以 不 支持 该 事件 
ComEvEOF 7 收 到 文件 结束 (ASCII 字符 ) 为 字符 


5. CommPort 属性 
设置 并 返回 通信 端口 号 。 
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[form . ] MSComm. CommPort[ : = value] 


说 明 : 在 设计 时 , value 可 以 设置 成 从 1 到 16 的 任何 数 (默认 值 为 1)。 但 是 如 果 用 
PortOpen 属性 打开 一 个 并 不 存在 的 端口 时 ,MSComm 控件 会 产生 错误 68( 设 备 无 效 ) 。 

说 明 : 必须 在 打开 端口 之 前 设置 CommPort 属性 。 

数据 类 型 : Integer。 

6. CTSHolding 属性 

确定 是 否 可 通过 查询 Clear To Send (CTS) 信 号 线 的 状态 发 送 数据 。Clear To Send 是 调 
制 解 调 器 发 送 到 相连 计算 机 的 信号 ,指示 传输 可 以 进行 。 该 属性 在 设计 时 刻 不 能 设置 ,在 运行 
时 刻 只 能 读 不 能 写 。 


语法 : 
[form . ] MSComm. CTSHolding[ : = {True|False}] 
CTSHolding 属性 的 设置 值 为 : 


True Clear To Send 信号 线 为 高 电 平 
False ”Clear To Send 信号 线 为 低 电 平 
说 明 ; 如 果 Clear To Send 信号 线 为 低 电 平 (CTSHolding 二 False) 并 且 超 时 时 ,MSComm 控 
件 设 置 CommEvent 属性 为 ComEventCTSTO (Clear To Send Timeout) ,并 产生 OnComm 事件 。 
Clear To Send 信号 线 用 于 RTS/CTS(Request To Send/Clear To send) 硬 件 握手 。 如 果 
需要 确定 Clear To Send 信号 线 的 状态 ,CTSHolding 属性 给 出 一 种 手工 查询 的 方法 。 
数据 类 型 : Boolean。 
7. DSRHolding 属性 
确定 Data Set Ready (DSR) 信 号 线 的 状态 。Data Set Ready 信和 号 由 调制 解 调 器 发 送 到 相 
连 计 算 机 ,指示 做 好 操作 准备 。 该 属性 在 设计 时 无 效 ,在 运行 时 为 只 读 。 
语法 : 
[form . ] MSComm. CSRHolding[ : = {True|False}] 


CSRHolding 属性 返回 以 下 值 : 
True Data Set Ready 信号 线 为 高 电 平 
False Data Set Ready 信号 线 为 低 电 平 
说 明 : 当 Data Set Ready 信号 线 为 高 电 平 (CSRHolding 二 True) 且 超时 时 , MSComm 控 
件 设置 CommEvent 属性 为 ComEventCSRTO (数据 准备 超时 ) ,并 产生 OnComm 事件 。 当 为 
Data Terminal Equipment (DTE) 机 器 写 Data Set Ready/Data Terminal Ready 握手 例 程 时 该 
属性 是 十 分 有 用 的 。 
数据 类 型 : Boolean。 
8. DTREnable 属性 
确定 在 通信 时 是 否 使 Data Terminal Ready (DTR) 信 和 号 线 有 效 。Data Terminal Ready 是 
计算 机 发 送 到 调制 解 调 器 的 信号 ,指示 计算 机 在 等 待 接收 传输 。 
语法 : 


[form . ] MSComm. DTREnable[ : = {True|False}] 
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DTREnable 属性 设置 值 : 
True Data Terminal Ready 信号 线 有 效 
False Data Terminal Ready 信号 线 无 效 (默认 ) 

说 明 : 当 DTREnable 设置 为 True, 当 端口 被 打开 时 ,Data Terminal Ready 信和 号 线 设置 为 
高 电 平 ( 开 ) , 当 端口 被 关闭 Data Terminal Ready 信和 号 线 设 置 为 低 电 平 ( 关 )。 当 DTREnable 
设置 为 False 时 ,Data Terminal Ready 信号 线 始终 保持 为 低 电 平 。 

数据 类 型 : Boolean。 

以 下 代码 表示 数据 终端 准备 好 。 


MSComml . DTREnable: = True; 


9. EOFEnable 属性 

EOFEnable 属性 确定 在 输入 过 程 中 MSComm 控件 是 否 寻 找 文件 结尾 (EOF) 字 符 。 如 果 
找到 EOF 字符 ,将 停止 输入 并 激活 OnComm 事件 ,此 时 CommEvent 属性 设置 为 ComEvEOF。 

语法 : 

[form . ] MSComm. EOFEnable[ : = {True |False}] 


value 的 设置 值 : 
True 当 EOF 字符 找到 时 OnComm 事件 被 激活 
False 当 EOF 字符 找到 时 OnComm 事件 不 被 激活 (默认 ) 
说 明 : 当 EOFEnable 属性 设置 为 False,OnComm 控件 将 不 在 输入 流 中 寻找 EOF 字符 。 
10. Handshaking 属性 
设置 并 返回 硬件 握手 协议 。 
语法 : 
[form . ] MSComm. Handshaking[ : = value] 
value 设置 值 见 表 10-5。 
说 明 :Handshaking 是 指 内 部 通信 协议 ,通过 该 协议 ,数据 从 硬件 端口 传输 到 接收 缓冲 区 。 
当 一 个 数据 字符 到 达 串 行 端口 ,通信 设备 就 把 它 移 到 接收 缓冲 区 以 使 程序 可 以 读 它 。 如 果 没 
有 接收 缓冲 区 ,程序 需要 直到 从 硬件 读 取 每 一 个 字符 ,这 很 可 能 会 造成 数据 丢失 ,因为 字符 到 
达 的 速度 可 以 非常 快 。 
握手 协议 保证 在 缓冲 区 过 载 时 数据 不 会 丢失 。 缓 冲 区 过 载 为 数据 到 达 端 口 太 快 而 使 通信 
设备 来 不 及 将 它 移 到 接收 缓冲 区 。 
数据 类 型 . Integer。 
表 10-5 Handshaking 属性 的 value 设置 值 


常 数 值 含义 描述 
comNone 0 没有 握手 (默认 ) 
ComXOnXOff 1 (XOn/XOff) 握 手 
ComRTS 2 RTS/CTS(Request To Send/Clear To Send) 握 手 
comRTSXOnXOff $ Request To Send 和 XOn/NOff 握手 皆 可 


11. InBufferCount 属性 
返回 接收 缓冲 区 中 等 待 的 字符 数 。 该 属性 在 设计 时 无 效 。 
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语法 : 
[form .] MSComm. InBufferCount[: = value] 


说 明 : InBufferCount 是 指 调制 解 调 器 已 接收 ,并 在 接收 缓冲 区 等 待 被 取 走 的 字符 数 。 可 
以 把 InBufferCount 属性 设置 为 0 来 清除 接收 缓冲 区 。 

说 明 : 不 要 把 该 属性 与 InBufferSize 属性 混淆 。InBufferSize 属性 返回 整个 接收 缓冲 区 的 
大 小 。 

数据 类 型 : JInteger。 

12. InBufferSize 属性 

设置 并 返回 接收 缓冲 区 的 字 节 数 。 

语法 : 

[form . ] MSComm. InBufferSize[: = value] 


说 明 : InBufferSize 是 指 整 个 接收 缓冲 区 的 大 小 。 默 认 值 是 1024B。 不 要 将 该 属性 与 
InBufferCount 属性 混淆 。InBufferCount 属性 返回 的 是 当前 在 接收 缓冲 区 中 等 待 的 字符 数 。 
注意 ,接收 缓冲 区 越 大 则 应 用 程序 可 用 内 存 越 小 。 但 若 接收 缓冲 区 太 小 , 且 不 使 用 握手 协议 ， 
就 可 能 有 溢出 的 危险 。 一 般 的 规律 是 ,首先 设置 一 个 1024B 的 缓冲 区 ,如 果 出 现 溢出 错误 , 则 
通过 增加 缓冲 区 的 大 小 来 控制 应 用 程序 的 传输 速率 。 

数据 类 型 : Integer。 

13. Input 属性 

返回 并 删除 接收 缓冲 区 中 的 数据 流 。 该 属性 在 设计 时 无 效 ,在 运行 时 为 只 读 。 

语法 : 

[form. ] MSComm. Input 


说 明 : InputLen 属性 确定 被 Input 属性 读 取 的 字符 数 。 设 置 InputLen 为 0, 则 Input 属 
性 读 取 缓冲 区 中 全 部 的 内 容 。InputMode 属性 确定 用 Input 属性 读 取 的 数据 类 型 。 如 果 设 置 
InputMode 为 comInputModeText，Input 属性 通过 一 个 Variant 返回 文本 数据 。 如 果 设 置 
InputMode 为 comInputModeBinary, Input 属性 通过 一 个 Variant 返回 一 个 二 进 制 数据 的 
数组 。 

数据 类 型 : Variant 。 

14. InputLen 属性 

设置 并 返回 Input 属性 确定 被 Input 属性 读 取 的 字符 数 。 

语法 : 

[form. ]MSComm. InputLen[ : = value] 


说 明 : InputLen 属性 的 默认 值 是 0。 设置 InputLen 属性 为 0 时 ,使 用 Input 将 使 MSComm 
控件 读 取 接 收 缓冲 区 中 全 部 的 内 容 。 

若 接收 缓冲 区 中 InputLen 字符 无 效 ,Input 属性 返回 一 个 零 长 度 字 符 串 (”"")。 在 使 用 
Input 前 ,用 户 可 以 选择 检查 InBufferCount 属性 来 确定 缓冲 区 中 是 否 已 有 所 需 数目 的 字符 。 

该 属性 在 从 输出 格式 为 定 长 数据 的 计算 机 读 取 数据 时 非常 有 用 。 

数据 类 型 : Integer。 
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以 下 代码 说 明 如 何 读 取 10 个 字符 数据 。 


MSComm1. InputLen: = 10; // 指 定 10 个 字符 的 数据 块 
CommData: = MSComm1. Input; // 读 取 数 据 


15. InputMode 属性 
设置 或 返回 Input 属性 取 回 的 数据 的 类 型 。 
[form. ]MSComm. InputMode[ : = value] 
value 设置 值 如 表 10-6 所 示 。 
表 10-6 InputMode 属性 的 value 设置 值 


常数 值 含义 描述 
ComInputModeText 0 数据 通过 Input 属性 以 文本 形式 取 回 (默认 ) 
ComInputModeBinary 和 数据 通过 Input 属性 以 二 进 制 形 式 取 回 


说 明 : InputMode 属性 确定 Input 属性 如 何 取 回 数据 。 数 据 取 回 的 格式 是 字符 串 或 是 二 
进 制 数 据 的 数组 。 若 数据 只 用 ANSI 字符 集 , 则 用 ComInputModeText。 对 于 其 他 字符 数据 ， 
如 数据 中 有 骨 入 控制 字符 、Nulls 等 , 则 使 用 ComInputModeBinary。 

16. NullDiscard 属性 

确定 NULL 字符 是 否 从 端口 传送 接收 缓冲 区 。 

语法 : 

[form. ]MSComm. NullDiscard[ : = value] 


value 设置 值 是 : 
True NULL 字符 不 从 端口 传送 到 接收 缓冲 区 
False ”NULL 字符 从 端口 传送 到 接收 缓冲 区 (默认 值 ) 
说 明 : NULL 字符 定义 为 ASCII 字符 0。 
数据 类 型 : Boolean 。 
17. OutBufferCount 属性 
返回 在 传输 缓冲 区 中 等 待 的 字符 数 , 也 可 以 用 它 来 清除 传输 缓冲 区 。 该 属性 在 设计 时 
无 效 。 
语法 : 
[form. ]MSComm. OutBufferCount[ : = value] 


说 明 : 设置 OutBufferCount 属性 为 0 可 以 清除 传输 缓冲 区 。 注 意 , 不 要 把 OutBufferCount 
属性 与 OutBufferSize 属性 混淆 ,OutBufferSize 属性 返回 整个 传输 缓冲 区 的 大 小 。 

数据 类 型 : Integer。 

以 下 代码 表示 清空 输出 缓冲 区 。 


MSComm1. OutBufferCount: = 0; 


18. OutBufferSize 属性 
以 字 节 的 形式 设置 并 返回 传输 缓冲 区 的 大 小 。 
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语法 : 
[form. ]MSComm. OutBufferSize[ : = value] 


说 明 : OutBufferSize 指 整 个 传输 缓冲 区 的 大 小 ,默认 值 是 512B。 不 要 把 该 属性 与 
OutBufferCount 属性 混淆 ,OutBufferCount 属性 返回 当前 在 传输 缓冲 区 等 待 的 字 节 数 。 

说 明 : 传输 缓冲 区 设置 得 越 大 则 应 用 程序 可 用 内 存 越 小 。 但 若 缓冲 区 太 小 , 若 不 使 用 握 
手 协议 ,就 可 能 就 有 溢出 错误 , 则 通过 增加 缓冲 区 的 大 小 来 控制 应 用 程序 的 传输 速率 。 

数据 类 型 JInteger。 

19. Output 属性 
往 传输 缓冲 区 写 数据 流 。 该 属性 在 设计 时 无 效 , 在 运行 时 为 只 读 。 
语法 : 


[form. ]MSComm. Output[ : = value] 


说 明 : Output 属性 可 以 传输 文本 数据 或 二 进 制 数据 。 用 Output 属性 传输 文本 数据 , 必 
须 定 义 一 个 包含 一 个 字符 串 的 Variant。 发 送 二 进 制 数据 ,必须 传递 一 个 包含 字 节 数组 的 
Variant 到 Output 属性 。 正 常情 况 下 ,如 果 发 送 一 个 ANSI 字符 等 的 数据 ,要 以 二 进 制 形式 

数据 类 型 : Variant。 

20， ParityReplace 属性 

当 发 生 奇偶 校 验 错误 时 ,设置 并 返回 换 数 据 流 中 一 个 非法 字符 的 字符 。 

语法 : 


[form. ]MSComm. ParityReplace[ : = value] 


说 明 : Parity bit 是 指 同一 定数 据 位 数 一 起 传输 的 位 ,以 提供 简单 的 错误 检查 。 当 使 用 校 
验 位 时 ,MSComm 控制 把 在 数据 中 已 经 设置 的 所 有 位 ( 值 为 1) 都 加 起 来 并 检查 其 和 为 奇数 或 
偶数 (根据 当 端口 开 时 奇偶 校 验 的 设置 ) 。 

按照 默认 规定 ,MSComm 控制 用 问号 (?) 替 换 非 法 字符 。 若 设置 ParityReplace 为 一 个 空 
字符 串 (""), 则 当 奇 偶 校 验 错误 出 现时 ,字符 替换 无 效 。 

数据 类 型 : String。 

21. PortOpen 属性 

设置 并 返回 通信 端口 的 状态 ( 开 或 关 )。 该 属性 在 设计 时 无 效 , 在 运行 时 才 可 用 。 

语法 : 

[form. ]MSComm. PortOpen[ : = value] 


value 设置 值 是 : 
True 端口 开 
False 端口 关 
说 明 : 设置 PortOpen 属性 为 True 打开 端口 。 设 置 为 False 关闭 端口 并 清除 接收 和 传输 
缓冲 区 。 当 应 用 程序 终止 时 ,MSComm 控件 自动 关闭 串 行 端口 。 
在 打开 端口 之 前 ,确定 CommPort 属性 设置 为 一 个 合法 的 端口 号 。 如 果 CommPort 属性 
设置 为 一 个 非法 的 端口 号 , 则 当 打 开 该 端口 时 ,MSComm 控件 产生 错误 68( 设 备 无 效 ) 。 另 
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外 , 串 行 端口 设备 必须 支持 Settings 属性 当前 的 设置 。 如 果 Settings 属性 包含 硬件 不 支持 的 
通信 设置 ,那么 硬件 可 能 不 会 正常 工作 。 如 果 在 端口 打开 之 前 ,DTREnable 或 RTSEnable 属 
性 设置 为 True, 当 关闭 端口 时 ,该 属性 设置 为 False。 否 则 ,DTR 和 RTS 信号 线 保持 其 先前 
的 状态 。 

数据 类 型 . Boolean 。 

22. Rthreshold 属性 

在 MSComm 控件 设置 CommEvent 属性 为 comEvReceive 并 产生 OnComm 之 前 ,设置 并 
返回 要 接收 的 字符 数 。 

语法 : 


[form. ]MSComm. Rthreshold[ : = value] 


说 明 : 当 接收 字符 后 , 若 Rthreshold 属性 设置 为 0( 默 认 值 ) 则 不 产生 OnComm 事件 。 例 
如 ,设置 Rethreshold 为 1 ,接收 缓冲 区 收 到 每 一 个 字符 都 会 使 MSComm 控件 产生 OnComm 
事件 。 

数据 类 型 ; JInteger。 

23. RTSEnable 属性 

确定 是 否 使 Request To Send(RTS) 信 号 线 有 效 。 一 般 情 况 下 ,由 计算 机 发 送 Request 
To Send 信号 到 连接 的 调制 解 调 器 ,以 请 示人 允许 发 送 数据 。 

语法 : 

[form. ]MSComm. RTSEnable[ : = value] 


value 设置 值 ; 
True Request To Send 信号 线 有 效 
False Request To Send 信号 线 无 效 (默认 ) 

说 明 : 当 RTSEnable 设置 为 True, 端 口 打开 时 ,Request To Send 信和 号 线 设 置 为 高 电压 ， 
端口 关闭 时 ,设置 为 低 电 压 。Request To Send 信号 线 用 在 RTS/CTS 硬件 握手 。RTSEnable 
属性 允许 手动 检测 Request To Send 信和 号 线 以 确定 其 状态 。 

数据 类 型 : Boolean 。 

24. Settings 属性 

设置 并 返回 波 特 率 、 奇 偶 校 验 、 数 据 位 和 停止 位 参数 。 


[form. ]MSComm. Settings[: = value] 


说 明 : 当 端 口 打开 时 ,如 果 value 非法 , 则 MSComm 控件 产生 错误 380( 非 法 属性 值 )。 
value 由 4 个 设置 值 组 成 ,如 以 下 格式 : 


"BBBB, P, D, S" 


其 中 ,BBBB 为 波 特 率 ,P 为 奇偶 校 验 ,D 为 数据 位 数 ,S 为 停止 位 数 。value 的 默认 值 是 : 
"9600,N,8,1"。 

(1) 合法 的 波 特 率 有 : 110、300、600、1200、2400、9600( 默 认 )、14 000、19 200、38 400( 保 
留 ) .56 000( 保 留 )、128 000( 保 留 )、256 000( 保 留 ) 。 

(2) 合法 的 奇偶 校 验 值 有 : E 偶数 (Even) 、M 标记 (Mark)、N( 上 默认 )、O 奇数 (Odd)、S 空 
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格 (Space) 。 
(3) 合法 的 数据 位 值 有 : 4、5、6、7、8( 默 认 )。 
(4) 合法 的 停止 位 值 有 : 1、1. 5、2。 
数据 类 型 : String。 
以 下 代码 表示 有 通信 口 设置 为 56 000b/s、 无 奇偶 校 验 、8 个 数据 位 、1 个 停止 位 。 


MSComm1. Setting: = "56000,N,8,177 


25. SThreshold 属性 

MSComm 控件 设置 CommEvent 属性 为 comEvSend 并 产生 OnComm 事件 之 前 ,设置 并 
返回 传输 缓冲 区 中 允许 的 最 小 字符 数 。 

语法 : 


[form. ]MSComm. SThreshold[ : = value] 


数据 类 型 : Integer。 

说 明 : 若 设置 SThreshold 属性 为 0( 默 认 值 ) ,数据 传输 事件 不 会 产生 OnComm 事件 。 若 
设置 SThreshold 属性 为 1, 当 传输 缓冲 区 完全 空 时 , MSComm 控件 产生 OnComm 事件 。 如 
果 在 传输 缓冲 区 中 的 字符 数 小 于 value, CommEvent 属性 设置 为 comEvSend, 并 产生 
OnComm 事件 。comEvSend 事件 仅 当 字符 数 与 SThreshold 交叉 时 被 激活 一 次 。 例 如 ,如 果 
SThreshold 等 于 5, 仅 当 在 输出 队列 中 字符 数 从 5 降 到 4 时 ,comEvSend 才 发 生 。 如 果 在 输出 
队列 中 从 没有 比 SThreshold 多 的 字符 ,comEvSend 事件 将 绝 不 会 发 生 。 


10.3.4 MSComm 控件 事件 


无 论 何 时 当 CommEvent 属性 的 值 变化 时 ,就 产生 OnComm 事件 ,标志 发 生 了 一 个 通信 
事件 或 一 个 错误 。 

语法 : 

Procedure MSCommComm( Sender:Tobject) ; 


说 明 : CommEvent 属性 包含 实际 错误 或 产生 OnComm 事件 的 数字 。 注 意 ,设置 
RThreshold 或 SThreshold 属性 为 0, 分 别 使 捕获 comEvReceive 和 comEvSend 事件 无 效 。 

以 下 的 代码 演示 了 如 何 控制 通信 的 错误 和 事件 ,读者 可 以 插入 代码 到 相关 联 的 Case 语句 
中 来 处 理 特定 的 错误 的 事件 。 


Case MSComm1. CommEvent of //COM1 


ComEventBreak: statement; //Break 产生 ,插入 处 理 代码 
ComEventCDTO: statement; //CD(RLSD) 超 时 ,插入 处 理 代码 
ComEventCTSTO: statement; //CTs 超时 ,插入 处 理 代码 
ComEventDSRTO: statement; //DSR, 超 时 ,插入 处 理 代码 
ComEventFrame: statement; //Framing 错 ,插入 处 理 代 码 
ComEventOverrun: statement; // 数 据 丢 失 , 插 入 处 理 代 码 
ComEventRxOver: statement; // 接 收 缓冲 溢出 ,插入 处 理 代 码 
ComEventRxParity: statement; // 奇 偶 校 验 错 ,插入 处 理 代码 
ComEventTxFull: statement; // 发 送 缓冲 区 满 ,插入 处 理 代码 
ComEventDCB: statement; // 异 常 产生 , 插 和 人 处理 代码 
// 通 信 事 件 
ComEvCD: statement; //CD 信 号 线 改变 ,插入 处 理 代码 
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ComEvCTS: statement; //CTS 信号 线 改变 ,插入 处 理 代码 
ComEvDSR: statement; //DSR 信号 线 改变 ,插入 处 理 代码 
ComEvRing: statement; //Ring 指示 器 改变 ,插入 处 理 代码 
ComEvReceive: statement; // 接 收 字符 小 于 门槛 值 ,插入 处 理 代码 
ComEvSend: statement; // 发 送 字符 小 于 门槛 值 ,插入 处 理 代码 
ComEvEof : statement; // 到 达 文 件 末尾 插入 处 理 代码 

【 例 10.1】 简单 的 MSComm 程序 设计 。 

1) 界面 设计 


创建 一 个 新 的 工程 ,在 窗 体 中 添加 三 个 Label 组 件 ,两 个 ComboBox 组 件 、 一 个 Memo 组 
件 , 一 个 MSComm 组 件 ( 位 于 ActiveX 标签 页 ) 和 两 个 Button 组 件 , 用 户 界面 如 图 10-6 所 示 。 


可 科 单 的 MSComm 组 件 生 床 
显示 接收 数据 


Setting 属 性 值 : 
9600N81 


CommPort 属 性 值 : 
coml = 


停止 接收 


10-6 “简单 的 MSComm 组 件 程序 ”界面 


2) 属性 设置 
各 组 件 的 属性 设置 如 表 10-7 所 示 。 
表 10-7 窗 体 及 组 件 属性 设置 


对 象 属性 属 性 值 说 明 
Labell Caption 显示 接收 数据 标签 标题 
Label2 Caption Setting 属性 值 : 标签 标题 
Label3 Caption CommPort 属性 值 : 标签 标题 
110,N,8,1 
300,N,8,1 
600,N,8,1 
2400,N,8,1 
5600,N,8,1 
ComboBoxl Items 14 000,N,8,1 
19 200,N,8,1 
38 400,N,8,1 
56 000,N,8,1 
128 000,N,8,1 
256 000,N,8,1 
ComboBoxl Items eon 设置 并 返回 通信 端口 号 
com2 
Buttonl Caption 开始 接收 按钮 的 标题 
Button2 Caption 停止 接收 按钮 的 标题 


设置 并 返回 波 特 率 、 奇 偶 校 验 、 
数据 位 和 停止 位 参数 
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3) 程序 设计 
Pprocedure TForm1.FormCreate(Sender: TObject); 
begin 
mscomm1. InBufferCount: = 0; // 关 键 分 析 1 


mscomml. InputLen: = 0; 
mscomml. RThreshold: = 1; 
button2. Enabled: = false; 


end; 
procedure TForm1. Button1Click( Sender: TObject); 
begin 
mscomml. Settings: = combobox]. Text; 
证 combobox2. Text = 'conl ' then // 只 考虑 coml 和 com2 两 种 情况 
mscomml.CommPort: =1 
else 
mscomml .CommPort: = 2; 
mscomm1. PortOpen: = true; // 关 键 分 析 2 


mscomm1l. DTREnable: = true; 
mscomml. RTSEnable: = true; 
button1.Enabled: = false; 
button2. Enabled: = true; 


end; 
Procedure TForml. Button2Click( Sender: TObject); 
begin 
mscomm1. PortOpen: = false; // 关 闭 窗口 


mscomm1. DTREnable: = false; 

mscomm]. RTSEnable: = false; 

button1. Enabled: = true; 

button2. Enabled: = false; 
end; 
procedure TForm1. MSCommlComm( Sender: TObject); 
var 

recstr:olevariant; 


begin 
if mscomm1. CommEvent = 2 then 
begin 
recstr: = mscomml. Input; 
memol. Text: = memol. Text + recstr; // 接 收 到 的 数据 在 Memol 中 显示 出 来 
end; 
end; 
4) 程序 分 析 
本 程序 实现 根据 选择 ,将 coml 口 或 com2 口 的 数据 接收 ,并 把 接收 的 数据 在 Memol 中 显 


关键 分 析 1: 程序 在 运行 开始 ,首先 通过 对 InBufferCount 置 0 把 接收 缓冲 区 清空 。 通 过 
对 InputLen 置 0, 设 置 读 取 方式 为 读 取 整个 缓冲 区 内 容 。 通 过 对 RThreshold 置 1, 设 置 
OnComm 事件 为 每 收 到 一 个 字符 便 触 发 。 

关键 分 析 2: 通过 FormCreate 事件 把 MSComm 的 工作 方式 初始 化 设置 好 后 ,开始 接收 
数据 。 首 先 把 PortOpen 置 True 打开 串口 ,把 DTREnable 置 True 数据 终端 已 准备 好 ,把 
RTSEnable 置 True 通知 发 送 端 可 以 发 送 。 
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【 例 10.2】 COM 口 重 量 采集 程序 。 

1) 界面 设计 

创建 一 个 新 的 工程 ,在 窗 体 中 添加 三 个 RadioButton 组 件 、4 个 ComboBox 组 件 、 一 个 
Memo 组 件 , 一 个 MSComm 组 件 , 一 个 Edit 组 件 和 两 个 Button 组 件 ,用 户 界面 如 图 10-7 
所 示 。 


和 COM 口 重 对 采集 c= 


端口 
选择 通讯 端口 。” 校 验 位 
回 COM1 NONE 


3 coM2 数据 位 
© COM3 8 


波 特 率 
4800 


停止 位 
1 


10-7 ”简单 的 MSComm 组 件 程 序 


2) 属性 设置 
各 组 件 的 属性 设置 如 表 10-8 所 示 。 


表 10-8 窗 体 及 组 件 属性 设置 


对 象 属性 属 性 值 说 明 
RadioButtonl Caption COMI1 标签 标题 
RadioButton2 Caption COM2 标签 标题 
RadioButton3 Caption COM3 标签 标题 
110 300 600 
2400 5600 
ComboBox1 Items 14000 19200 设置 并 返回 波 特 率 、 数 据 位 和 停止 位 参数 
38400 5600 
128000 256000 
NONE 
ComboBox2 Items ODD 奇偶 校 验 
EVEN 
8 
ComboBox3 Ttems 7 数据 位 
6 
ComboBox4 Items ; 停止 位 参数 
Buttonl Caption 打开 端口 标签 标题 
Button2 Caption 关闭 端口 标签 标题 
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3) 程序 设计 


Var 
Forml: TForml; 
flag: integer; 
flagl : integer; 
weight :real; 
hthread: Thandle; 
Timeout: integer; 
implementation 
{$R * .dfm} 
// 十 进 制 转换 为 二 进 制 
function TForm1. IntToBin(Value : integer; NumBits : byte) : string;  // 十 -> 二 
Var 1p0 : integer; 
begin 
result := ""'; 
for lp0 := 0 to NumBits 一 1 do 
begin 
if ((Value and (1 shl (1p0))) <> 0) then 
result := #3$31 + result 
else 
result := #$30 + result; 
end; 
IntToBin: = result; 
end; 
// 测 试 是 否 为 数字 字符 串 
function TForm1l.TestDigit(Str: String) : Boolean; 
Var 
i,count: Integer; 
begin 
count: = length(str); 
for 1: to count do 
if not(str[i] in ['0','1'," 
Break; 
if i=Count+1 then 
Result: = True 
else 
Result: = False; 
end; 
// 多 线程 接收 数据 
function mythread(p:pointer):longint; stdcall; 
var 
bit0:byte ; 
Vv4: Variant; 
tmp: String; 
frame_ok :boolean; 
begin 
repeat 
form1.MSComm1l. InputLen := 1; 
frame ok: = false; 
repeat 
if Timeout >= 10 then // 大 于 30s 超时 
begin 
if forml.MSComm] .PortOpen then 
form1. MSComm1l. PortOpen: = False; 
forml. Memol. Lines. Add(Formatdatetime( 'hh:mm: ss', now) + '--> '+ ' 检 测 超时 ,请 检查 '); 


','9']) then 


13','4','5','6',7', 
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timeout: = 0; 
forml. timer2. enabled: = false; 
terminatethread( hthread, 0); 
Exit; 
end; 
If (form1.MSComm1. InBufferCount >= 1) 
begin 
V: = forml.MSComml. Input ; 
If v[0] =2 Then 
begin 
timeout: = 0; 
forml. Timer2. Enabled: = false; 
forml. MSComm1. InputLen :=1 
break; 
end; 
end; 
until(false) ; 
flagl: = 0; 
forml. MSComm1. InputLen: = 1; 
repeat 
If (forml.MSComml. InBufferCount >= 1) 
begin 
V: = forml.MSComml. Input; 
flagl: =flagl +1; 
end; 
until(v[0] = 13); 
if flagl = 10 then 
begin 
form1. MSComm1. Inputlen: 
repeat 
if(forml.MSComml. InBufferCount > = 
begin 
V: = form1.MSComm1l. Input; 
forml. MSComm1. InputLen := 12 
forml. MSComm1. RThreshold: = 12; 
frame ok: = true; 
break; 
end; 
until(false); 
end 
else 
begin 
form1. FormCreate(nil); 
continue; 
end; 
if frame_ ok then Break; 
until(false); 


// 找 


1; 


forml. Memol. Lines. Add( Formatdatetime( 'hh:mm:ss', now) + '——> '+ tmp+ ' 端 口 打开 成 功 ! '); 


end; 
// 程 序 初始 化 
procedure TForm]. FormCreatel( Sender: TObject); 
begin 
With MSComml do 
begin 
flagl: = 0; 


Then 


Then 


到 回 车 键 ,判断 flagl 标志 ; 


1) Then 


//v 为 CHK 校 验 位 ; 


; 
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timeout: = 0; 


InBufferCoun // 清 接收 缓冲 区 
RThreshold: // 关 键 分 析 1 
InputLen: = 0; // 关 键 分 析 2 


Comboboxl. Text: = '4800°"'; 
Combobox2. Text: = 'NONE'; 
combobox3. Text: = '8°'; 
combobox4. Text: = '177 
End; 
end; 


procedure TForm1. ButtonlClick( Sender: TObject); 


Var 
Threadid: dword; 
begin 
if Radiobutton1. Checked then 
begin 
tmp: = 'COM1'; 
if not mscomml. PortOpen then 
mscomml. CommPort: = 1; 
end 
else 
if Radiobutton2. Checked then 
begin 
tmp: = 'COM2'; 
if not mscomm1l. PortOpen then 
mscomm1. CommPort: = 2; 
end 
else 
if Radiobutton3. Checked then 
begin 
tmp: = 'COM3'; 
if not mscomm1l. PortOpen then 
mscomml. CommPort: = 3; 
end; 
if trim(combobox1l.Text) = '' then 
begin 
MessageD1lg( #13 + ' 请 选择 波 特 率 ', mtInformation, [mbOK],0); 
Exit; 
end; 
if trim(combobox3. Text) = '' then 
begin 
MessageDlg( #13 + ' 请 选择 数据 位 ', mtInformation, [mbOK], 0); 
Exit; 
end; 
if trim(combobox4. Text) = '' then 
begin 
MessageDlg( #13 + ' 请 选择 停止 位 ', mtInformation, [mbOK],0); 
Exit; 
end; 


mscomm1. Settings: = trim(comboboxl.Text) + 'n,'+ trim(combobox3. Text) + ', '+ trim(combobox4. 
Text); 
if not mscomm1l. PortOpen then 
begin 
mscomm1. PortOpen: = True; 
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timer2. Enabled: = true; 
memol1. Lines. Add(Formatdatetime( 'hh:mm:ss', now) + '—->' + ' 正 在 检测 ,请 等 待 30 秒 ... '); 
hthread: = createthread(nil, 0, @mythread, nil, 0, threadid); 
if hthread = 0 then 
messagebox( handle, ' 进 程 没有 创建 成 功 ', nil,mb_ok); 
end; 
end; 


procedure TForm1. Button2Click(Sender: TObject); 
begin 
if MSComml . PortOpen then 
MSComm1. PortOpen: = False; 
Memol.Lines. Add(Formatdatetime( 'hh:mm:ss', now) + '--> '+ tmp+ ' 端口 已 经 关闭 ! '); 
terminatethread( hthread, 0); 
timeout: = 0; 
timer2. Enabled: = false; 
end; 


procedure TForm]. MSCommlComm( Sender: TObject); 
var 

vv4: Variant; 

str: String; 

bs, value: Real; 


i:integer; 
begin 
if (mscomm1. CommEvent = 2) then // 开 始 为 正确 的 数据 
begin 
// 状 态 字 C, 判断 小 数 点 位 置 


Vi: = mscomml. Input; 
memol. Lines. Add( inttostr(byte(v[0])) + ''+ inttostr(byte(v[1])) + ''+ inttostr(byte(v 
[2])) +''+ inttostr(byte(v[3]))+ ?7 
+ inttostr(byte(v[4])) + ' '+ inttostr(byte(v[5])) + ''+ inttostr(byte(v[6]))+ #13+'" 
+ inttostr(byte(v[7])) + ''+ inttostr(byte(v[8])) 
+''+inttostr(byte(v[9])) + ''+ inttostr(byte(v[10])) + ''+ inttostr(byte(v[11]))); 


v4: = v[3]; 

st: InttoBin(Byte(v4), 8); //8 位 二 进 制 

str: = Copy(str,2,1) + Copy(str,3,1) + Copy(str,4,1); // 获 得 bit6 一 bit4 
if not TestDigit( str) then // 验 证 是 否 为 数字 


begin 
Memol.Lines. Add(Formatdatetime( 'hh:mm:ss', now) + '--> '+ ' 重 量 小 数 点 位 置 数据 错误 ! '); 
// mscomml. RThreshold :=1; 


Flag: = 0; 
Exit; 
end; 
case Strtoint(str) of 
1: be:= 10; 
10: 
i113 
100 : be: = 0.01; 
101 : bs: = 0.001; 
end; 
// 获 取 重量 数据 
te 


4to9do 
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Str: = Str+ Chr(Byte(v[i])); 


end; 


// 验 证 正确 性 
if not TestDigit(str) then 


begin 


Memol. Lines. Add(Formatdatetime( 'hh:mm:ss', now) + '--> '+ ' 重 量 数据 错误 ! '); 
mscomml. RThreshold :=1; 

Flag: = 0; 

Exit; 


end; 


// 计 算 实 际 数据 值 
if bs= 10 then 


value: = strtofloat(inttostr(StrtoInt(str) - (StrtoInt(str) Mod 10))) 


else 
value: = strtoInt(str) * bs; 
memol. Lines. Rdd(Formatdatetime( 'hh:mm: ss', now) + '--> '+' 重 量 数据 : '+ Format('s% 6f', 
[value])); 
end 
else 


Memol. Lines. Add(Formatdatetime( 'hh:mm: ss', now) + '--> '+ ' 垃 圾 数据 ! '); 


end; 


procedure TForm]. TimerlTimer(Sender: TObject); 


begin 


panell. Caption: = FormatDatetime( 'hh:mm:ss', now); 


end; 


procedure TForm]. FormClose( Sender: TObject; var Action: TCloseAction); 


begin 


if MSComm1l . PortOpen then 
MSComm1. PortOpen: = False; 
terminatethread( hthread, 0); 


end; 


procedure TForm]. Timer2Timer( Sender: TObject); 


begin 
timeout: = timeout + 1; 

end; 

4) 程序 分 析 


关键 分 析 1: 在 MSComm 控件 设置 CommEvent 属性 为 comEvReceive 并 产生 OnComm 
之 前 ,设置 并 返回 要 接收 的 字符 数 。 当 接收 字符 后 , 若 RThreshold 属性 设置 为 0( 默 认 值 ) 则 
不 产生 OnComm 事件 。 例 如 ,设置 RThreshold 为 1, 接 收 缓 冲 区 收 到 每 一 个 字符 都 会 使 
MSComm 控件 产生 OnComm 事件 。 

关键 分 析 2: InputLen 设置 并 返回 Input 属性 确定 被 Input 属性 读 取 的 字符 数 。 
InputLen 属性 的 默认 值 是 0。 设置 InputLen 属性 为 0 时 ,使 用 Input 将 使 MSComm 控件 读 
取 接 收 缓冲 区 中 全 部 的 内 容 。 若 接收 缓冲 区 中 InputLen 字符 无 效 ,Input 属性 返回 一 个 零 长 


度 字符 串 ("")。 


在 使 用 Input 前 ,用 户 可 以 选择 检查 InBufferCount 属性 来 确定 缓冲 区 中 是 否 


已 有 所 需 数 目的 字符 。 
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10.4 MSComm 控件 的 错误 消息 


MSComm 控件 的 错误 (Error) 常 数 见 表 10-9。 
表 10-9 MSComm 控件 的 错误 (Error) 常 数 


常 数 值 含义 描述 
ComEventBreak 1001 接收 到 中 断 信 号 
ComEventCTSTO 1002 Clear-to-send 超时 
ComEventDSRTO 1003 Data-set ready 超时 
ComEventFrame 1004 帧 错误 
ComEventOverrun 1006 端口 超速 
ComEventCDTO 1007 Carrier Detect 超时 
ComEventRxOver 1008 接收 缓冲 区 溢出 
ComEventRxParity 1009 错误 
ComEventTxFull 1010 传输 缓冲 区 满 
ComEventDCB 1011 检索 端口 的 设备 控制 块 时 出 现 的 意外 错误 

小 结 


本 章 主要 介绍 了 串 行 通信 标准 中 的 RS-232C 标准 ,以 及 Delphi XE8 实现 串口 通信 最 常 
用 的 几 种 方法 : API 函数 方法 、 使 用 组 件 ( 如 MSComm 等 ) 方 法 。 

通过 本 章 的 学 习 读 者 可 以 初步 认识 串口 通信 的 原理 ,以 及 在 Delphi XE8 中 ,应 用 程序 是 
如 何 实现 串口 通信 的 ,为 更 深 一 步 的 串口 通信 编程 打下 良好 的 基础 。 


习 题 
10-1 在 微机 中 常用 的 RS-232C 接口 名 称 有 哪些 ? 


10-2 在 Delphi XE8 中 实现 串口 通信 最 常用 的 几 种 方法 有 哪些 ? 
10-3 MSComm 组 件 中 InBufferCount 属性 与 InBufferSize 属性 有 什么 区 别 ? 


网 络 编程 技术 


11.1 概 述 


对 于 众多 的 基层 网 络 协议 来 说 ,在 Windows 平台 上 ,WinSock 是 访问 它们 的 首选 接口 。 
WinSock 是 网 络 编程 接口 ,而 不 是 协议 , 它 构 成 了 Windows 平台 下 进行 网 络 编程 的 基础 。 
Delphi 中 各 种 网 络 组 件 的 强大 功能 ,都 是 建立 在 WinSock API 基础 之 上 的 。WinSock API 从 
UNIX 平台 的 Berkeley (BSD) 套 接口 方案 借鉴 了 许多 东西 ,自从 WinSock 2. 0 发布 后 ， 
WinSock 接口 最 终 也 成 为 真正 的 与 协议 无 关 的 接口 。 


11.2 WinSock 基础 


11.2.1 TCP.UDP 和 了 JP 


对 应 于 OSI 7 层 模 型 ,TCP 和 UDP 是 位 于 传输 层 的 协议 ,而 IP 则 位 于 网 络 层 ,如 图 11-1 
所 示 。 
TCP 是 传输 控制 协议 , 它 是 一 种 面向 连接 的 协 


应 用 层 
议 , 它 向 用 户 提供 可 靠 的 全 双 工 的 字 节 流 。TCP 关 | 一 二 
心 确认 、 超 时 和 重 传 等 具体 细节 。 大 多 数 Internet 应 | 一 一 全 
用 程序 使 用 TCP, 因 为 它 是 一 种 精致 的 、 可 靠 的 字 节 | se 
流 协议 。 网 络 层 IP 
UDP 是 用 户 数据 报 协议 , 它 是 一 种 无 连接 协议 。 | 一 sm 
_ 和 数据 链 路 层 驱动 程序 
UDP 是 一 种 简单 的 \ 不 可 靠 的 数据 报 协议 ,与 TCP 物理 层 和 硬件 


不 同 ,UDP 不 能 保证 每 一 个 UDP 数据 报 可 以 到 达 目 
的 地 。 在 RFC768 中 有 关于 它 的 详细 描述 。 图 11-1 OSI 模 型 和 网 际 协议 族 

IP 是 网 际 协议 。IPv4( 人 们 通常 就 称 之 为 IP) 自 
20 世纪 80 年 代 早 期 以 来 一 直 是 网 际 协议 族 的 主力 协议 , 它 使 用 32 位 地 址 ,为 TCP、UDP、 
ICMP 和 IGMP 提供 递送 分 组 的 服务 。20 世纪 90 年 代 中 期 ,又 设计 出 了 用 以 替代 IPv4 的 
IPv6 , 它 使 用 128 位 的 大 地 址 。 


11.2.2 和 套 接口 和 WinSock API 


套 接口 (Socket) 最 初 是 由 加 利 福 尼 亚 大 学 Berkeley 学 院 为 UNIX 操作 系统 开发 的 网 络 
通信 编程 接口 。 随 着 UNIX 操作 系统 的 广泛 使 用 , 套 接口 成 为 当前 最 流行 的 网 络 通 信 应 用 程 
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序 接口 之 一 。 但 Berkeley Sockets 只 能 用 于 UNIX 操作 系统 ,而 不 能 支持 DOS 和 Windows 
操作 系统 ,而 随 着 微软 旗下 操作 系统 的 日 益 推广 ,将 套 接口 移植 到 Windows 下 ,并 加 以 完善 和 
扩充 ,已 成 为 迫切 的 需求 。 

20 世纪 90 年 代 初 ,由 Microsoft、Sun Microsystems 等 几 家 公司 共同 参与 制定 了 一 套 标 
准 , 即 Windows Sockets 规范 ,他 们 试图 使 Windows 下 Sockets 程序 设计 标准 化 。1993 年 ,他 
们 制定 了 Windows Sockets 1.1 规范 ,定义 了 16 位 Windows 平台 下 的 网 络 标准 编程 接口 。 
1997 年 5 月 , WinSock 2 的 正式 规范 版 本 2. 2. 1 发布。 

对 应 于 OSI 7 层 参 考 模型 , WinSock API 是 位 于 会 话 层 和 传输 层 之 间 的 , 它 提 供 了 一 种 可 
为 指定 的 传输 协议 (如 TCP、UDP) 打 开 、 进 行 和 关闭 会 话 的 能 力 。 在 Windows 操作 系统 下 ， 
如 果 是 在 OSI 7 层 参 考 模型 上 的 三 层 , 也 就 是 应 用 层 、 表 示 层 和 会 话 层 进行 网 络 编程 ,就 是 要 
通过 WinSock API 来 和 位 于 系统 内 核 的 TCP(UDP) 、IP 协议 栈 部 分 来 打交道 。 

如 今 , Windows 操作 系统 成 为 世界 上 应 用 范围 最 广 的 操作 系统 之 一 ,而 Windows Sockets 
规范 已 经 成 为 在 Windows 平台 上 开发 网 络 应 用 程序 的 已 接受 标准 , 它 也 为 想 开发 网 络 程序 的 
程序 员 提 供 了 巨大 的 方便 。 

值得 一 提 的 是 ,Microsoft 公司 开发 了 Windows, 但 是 , 它 并 不 拥有 Windows Sockets。 


11.2.3 面向 连接 和 无 连接 


一 般 来 说 ,一 个 协议 提供 面向 连接 的 服务 ,或 提供 无 连接 的 服务 。 

面向 连接 服务 中 ,进行 数据 交换 之 前 ,通信 双方 必须 建立 一 条 用 以 进行 通信 的 路 径 。 这样 
既 确 定 了 通信 双方 之 间 的 联系 ,又 可 以 保证 双方 都 处 于 活动 状态 ,可 以 彼此 响应 。 多 数 情况 
下 ,面向 连接 的 协议 可 以 保证 传输 数据 的 可 靠 性 。 

TCP 是 一 种 面向 连接 的 协议 。 应 用 程序 利用 TCP 进行 通信 时 ,发 起 方 和 接收 方 之 间 会 
建立 一 个 虚拟 连接 ,通过 这 一 连接 ,双方 可 以 把 数据 当 作 一 个 双向 的 字 节 流 来 进行 交换 。 

打 个 比方 ,面向 连接 的 服务 就 像 是 打 电 话 。 从 摘 机 拨号 开始 ,到 拨 通 建立 连接 、 进 行 通话 ， 
再 到 挂机 断 开 连接 这 一 过 程 , 正 是 抽象 的 面向 连接 服务 的 具体 表现 。 首 先 ,在 开始 通话 前 , 拨 
号 ,对 方 响应 ,从 而 建立 了 一 条 虚拟 * 链 路 ”"。 只 有 双方 都 处 于 活动 状态 ,这 条 “ 链 路 " 才 会 保持 
存在 。 其 次 ,可 以 通过 这 条 “ 链 路 ”进行 双向 的 会 话 ,并 且 在 一 般 情况 下 ,可 以 通过 对 方 的 回答 
来 确定 对 方 是 否 已 经 正确 地 听 到 了 我 们 所 说 的 话 ,这 相当 于 面向 连接 协议 为 保证 传输 无 误 而 
进行 的 额外 校 验 。 

与 面向 连接 的 服务 正好 相反 ,无 连接 服务 则 不 管 目的 方 是 否 处 于 待 接收 状态 , 源 方 只 管 将 
信息 发 送 给 目的 方 , 也 不 管 目的 方 是 否 已 经 接收 到 了 该 信息 ,以 及 接收 到 的 信息 是 否 无 误 。 

UDP 是 一 种 无 连接 协议 ,数据 传输 方法 采用 的 是 数据 报 。 

也 打 个 比方 说 ,无 连接 的 服务 就 像 是 邮 信 。 我 们 只 需 封 好 信封 ,将 其 投 到 邮 简 中 即 可 ,不 
能 保证 邮局 会 把 信件 发 送出 去 和 信件 在 发 送 过 程 中 没有 被 损害 。 

面向 连接 的 服务 和 无 连接 服务 各 有 其 优 缺 点 。 

面向 连接 的 服务 能 够 保证 通信 双方 传递 数据 的 正确 性 ,但 它 却 要 为 此 进行 额外 的 校 验 , 同 
时 ,通信 双方 建立 通信 信道 也 需要 许多 系统 开销 。 

无 连接 服务 最 大 的 优点 就 是 速度 快 ,因为 它 不 用 去 验证 数据 完整 性 ,也 不 为 数据 是 否 已 经 
被 接收 操心 。 许 多 网 络 游戏 使 用 的 就 是 UDP, 可 以 用 数据 报 不 停 地 向 其 他 的 联网 游戏 者 发 送 
信息 , 传 丢 了 一 个 不 要 紧 ,因为 下 一 个 信息 马上 就 要 到 了 。 
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11.2.4 客户 /服务 器 模式 


当今 网 络 应 用 中 ,通信 双方 最 常见 的 交互 模式 便 是 客户 /服务 器 模式 。 在 这 种 模式 中 , 客 
户 向 服务 器 发 出 服务 请 求 ,服务 器 收 到 请 求 后 为 客户 提供 相应 的 服务 。 

大 多 数 读者 都 已 经 很 熟悉 客户 /服务 器 模式 的 实例 了 。 比 如 通过 Web 浏览 器 (例如 微软 
的 IE) 来 访问 Web 站 点 ,通过 FTP 客户 端 软件 从 FTP 服务 器 下 载 文件 等 。 

客户 /服务 器 模式 通常 采用 监听 /连接 方式 实现 。 一 个 服务 器 端的 应 用 程序 通常 在 一 个 端 
口 监听 对 服务 的 请 求 , 也 就 是 说 ,服务 进程 一 直 处 于 休眠 状态 ,直到 一 个 客户 对 这 个 服务 提出 
了 连接 请 求 。 此 时 ,服务 进行 被 “唤醒 ?并 且 为 客户 提供 服务 , 即 对 客户 的 请 求 做 出 适当 的 
反应 。 

虽然 提供 面向 连接 服务 的 协议 是 设计 客户 /服务 器 模式 应 用 程序 时 最 常用 的 ,但 有 些 服务 
也 是 可 以 通过 提供 非 连接 服务 的 协议 (如 UDP) 来 实现 的 。 


11.2.5 套 接口 类 型 


在 使 用 TCP/IP 时 ,可 选 的 套 接口 类 型 有 三 种 : 流 式 套 接口 数据 报 套 接口 及 原始 套 
接口 。 

流 式 套 接口 定义 了 一 种 可 靠 的 面向 连接 的 服务 ,实现 了 无 差错 无 重复 的 顺序 数据 传输 。 
对 于 建立 在 这 种 类 型 套 接口 上 的 套 接 字 来 说 ,数据 是 可 以 双向 传输 的 字 节 流 ,无 长 度 限 制 。 

数据 报 套 接口 定义 了 一 种 无 连接 的 服务 ,数据 通过 相互 独立 的 报 文 进行 传输 ,是 无 序 的 ， 
并 且 不 保证 可 靠 . 无 差错 。 也 就 是 说 ,一 个 建立 在 数据 报 套 接口 上 的 套 接 字 所 接收 的 信息 有 可 
能 重复 ,或 者 和 发 出 时 的 顺序 不 同 。 

原始 套 接口 允许 对 低层 协议 如 IP 或 ICMP 直接 访问 ,主要 用 于 新 网 络 协议 实现 的 测试 。 
目前 ,只 有 WinSock 2 提供 了 对 它 的 支持 。 在 Windows 平台 下 ,笔者 也 只 在 Windows 2000 
下 使 用 过 原始 套 接口 。 


11.2.6 使 用 面向 连接 的 协议 时 套 接口 的 调用 


如 前 所 述 ,客户 /服务 器 模式 的 网 络 应 用 程序 通常 使 用 面向 连接 的 协议 。 

采用 面向 连接 的 协议 (如 TCP) 时 ,服务 器 处 理 的 请 求 往 往 比较 复杂 ,不 是 一 来 一 去 的 简 
单 请 求 应 答 所 能 解决 的 ,往往 要 经 过 反复 的 交互 。 大 多 数 TCP 服务 器 是 并 发 服务 器 。 

使 用 面向 连接 的 协议 时 ,典型 的 套 接口 调用 流程 如 图 11-2 所 示 。 

下 面 对 这 一 流程 加 以 简单 的 解释 说 明 。 

面向 连接 的 服务 器 端 首先 调用 socket() 函数 建立 一 个 套 接 字 s, 用 来 监听 客户 端的 连接 
请 求 。 接 着 ,调用 bind() 函 数 将 此 套 接 字 与 本 地 地 址 、 端 口 绑 定 起 来 。 之 后 ,调用 listen() 本 
数 告 诉 套 接 字 s, 对 进来 的 连接 进行 监听 并 确认 连接 请 求 ,于 是 s 被 置 于 被 动 的 监听 模式 。 一 
个 正在 进行 监听 的 套 接 字 将 给 每 个 请 求 发 送 一 个 确定 信息 ,告诉 发 送 者 主机 已 经 收 到 连接 请 
求 。 但 是 监听 套 接 字 s 实际 上 并 不 接受 连接 请 求 , 在 客户 端 请 求 被 接受 后 ,调用 的 accept() 函 
数 将 返回 一 个 与 s 具 有 相同 属性 ,但 不 能 被 用 来 进行 监听 ( 即 不 能 用 来 接受 更 多 连接 ) ,只 能 用 
来 进行 数据 收发 的 数据 套 接 字 ns, 作 为 与 客户 端 套 接 字 相对 应 的 连接 的 另 一 个 端点 。 对 于 该 
客户 端 套 接 字 后 继 的 所 有 操作 ,都 应 该 通过 ns 来 完成 。 监 听 套 接 字 s 将 仍然 用 于 接受 其 他 客 
户 端的 连接 ,而 且 仍 处 于 监听 模式 。 
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服务 器 端 
调用 socket( )， 建 立 流 式 套 接 字 s 


调用 bind( ) 将 套 接 字 s 与 本 地 地 址 、 端 口 绑 定 


调用 listen( ) 通 知 底层 协议 (TCP)， 
服务 器 已 经 准备 好 接收 数据 


客户 端 | 
调用 socket( )， 建 立 流 式 套 接 字 c 调用 accept( )， 准 备 接受 客户 端的 连接 
1 
1 


: i 请 求 | 连接 建立 ，accept( ) 调 用 返回 ， 得 到 新 的 数据 套 接 
调用 conncet( )， 使 套 搂 字 c 与 。 | 请求 | 字 ns， 必 只 能 用 于 数据 传输 ; 原 套 接 字 s 仍 然 打 开 ， 
运程 主机 建立 连接 连接 | 处 于 监听 连接 状态 

1 1 

调用 recv( )/send( )， 在 套 接 字 c 数据 | ”调用 recv( send( ) 在 套 接 字 ns 上 恋 写 数据 ， 直 到 
上 读 写 数据 ， 直 到 数据 交换 完成 | 交换 | ”数据 交换 完成 


1 
调用 closesocket( ) 关 闭 数据 套 接 字 ns 
1 


调用 closesocket( ) 关 闭 监 听 套 接 字 c， 调用 closesocket( ) 关 闭 监听 套 接 字 s， 
结束 此 次 连接 会 话 停止 服务 


图 11-2 面向 连接 协议 的 典型 套 接口 调用 流程 


面向 连接 的 服务 器 一 般 来 说 是 并 发 服务 器 。 在 Windows 平台 上 ,往往 在 调用 accept() 函 
数 返 回 套 接 字 ns 后 ,会 创建 一 个 请 求 / 应 答 执行 线程 ,将 ns 作为 参数 之 一 传递 给 该 线程 ,由 该 
线程 来 完成 客户 端 与 服务 器 端 复 杂 的 请 求 /应 答 工 作 , 而 主线 程 则 会 再 次 调用 accept() 函 数 ， 
以 接受 新 的 客户 端 连接 请 求 。 

面向 连接 的 客户 端 也 调用 socket() 建 立 一 个 套 接 字 c, 但 使 用 像 TCP 这 样 的 面向 连接 的 
协议 时 ,客户 端 不 必 关 心 协议 使 用 什么 样 的 本 机 地 址 ,所 以 不 用 调用 bind() 函 数 。 接 着 ,客户 
端 调用 connect() 函数 服务 器 端 发 出 连接 请 求 。 在 与 服务 器 端 建 立 连接 之 后 ,客户 端 与 服务 器 
端 之 间 就 存在 一 条 虚拟 的 “管道 ,客户 端 套 接 字 c 与 服务 器 套 接 字 ns 构成 了 这 个 “管道 ”的 两 
个 端点 。 

客户 端 与 服务 器 端 通过 这 个 “管道 ”进行 数据 交换 ,双方 多 次 调用 send()Vrecv() 函 数 来 进 
行 请 求 /应 答 ,最终 完成 服务 后 将 关闭 用 于 传输 的 套 接 字 c 和 ns, 用 以 断 开 连接 ,结束 此 次 
会 话 。 


而 作为 服务 器 端 , 只 有 在 停止 服务 时 才 会 关闭 用 于 监听 的 套 接 字 s。 


11.2.7 使 用 无 连接 的 协议 进行 套 接口 的 调用 


采用 无 连接 协议 (如 UDP) 时 ,服务 器 一 般 都 是 面向 事务 处 理 的 ,一 个 请 求 一 个 应 答 就 完 
成 了 客户 程序 与 服务 程序 之 间 的 互相 作用 。 大 多 数 UDP 服务 器 是 迭代 的 。 

使 用 无 连接 的 协议 时 ,典型 的 套 接口 调用 流程 如 图 11-3 所 示 。 

下 面 也 对 这 一 流程 加 以 简单 的 解释 说 明 。 
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服务 器 端 
调用 socket( )， 
建立 数据 报 套 接 字 s 
客户 端 | 
调用 socket( )， 调用 bind( )， 将 套 接 字 s 
建立 数据 报 套 接 字 c 与 本 地 地 址 、 端 口 绑 定 


1 四 
调用 sendto( )/secvfrom( )， 通 数据 调用 recvfrom( )/sendto( )， 通 过 套 
过 套 接 字 e 读 写 数据 “| 肥 括 | 接 字 s 谈 写 数据 ， 进 行 数据 处 理 


了 1 
调用 closesocket( )， 调用 closesocket( )， 关 闭 
关闭 套 接 字 c， 结 束 此 次 会 话 套 接 字 s， 终 止 服务 


图 11-3 无 连接 协议 的 典型 套 接口 调用 流程 


无 连接 的 服务 器 端 使 用 socket() 和 bind() 函数 来 建立 和 绑 定 套 接 字 s。 与 面向 连接 的 服 
务 器 端 不 同 ,不 必 调 用 listen() 和 accept() 函 数 ,只 需 调用 recvfrom() 函 数 在 套 接 字 s 上 等 待 
接收 数据 就 可 以 了 。 因 为 是 无 连接 的 ,因此 网 络 上 任何 一 台 机 器 发 送 给 数据 套 接 字 s 的 数据 
报 都 可 以 被 收 到 了 ,可 以 想象 ,它们 是 无 序 的 。 

因此 ,无 连接 的 服务 器 一 般 为 迭代 服务 器 ,它们 接收 到 一 个 数据 报 后 ,马上 进行 相应 处 理 ， 
直到 处 理 完成 后 , 才 开 始 下 一 个 数据 报 的 接收 、 处 理 。 所 以 ,采用 无 连接 协议 时 ,客户 端 与 服务 
器 端的 交互 往往 是 很 简单 的 ,一 问 一 答 或 只 问 不 答 的 方式 很 常见 。 

服务 器 端 只 有 在 停止 服务 时 , 才 会 关闭 套 接 字 s。 

无 连接 客户 端 更 为 简单 ,只 需要 调用 socket() 建 立 一 个 套 接 字 c, 就 可 以 用 sendto() 和 
recvfrom() 函数 进行 与 服务 器 端的 数据 交换 了 。 在 完成 会 话 后 ,调用 closesocket() 函 数 关 闭 
套 接 字 c。 

即使 不 去 看 有 关 Winsock API 的 参考 ,只 简单 地 从 名 字 上 理解 ,也 应 该 感觉 到 sendto() 
和 recvfrom() 函 数 的 特点 : 它们 是 有 方向 性 的 。 


11.3 网 络 聊天 程序 的 实现 


网 上 聊天 既 可 以 在 局 域 网 上 ,也 可 以 在 Internet 上 进行 。 局 域 网 一 般 网 络 质量 较 高 ,传输 
速度 较 快 ,但 网 上 交流 的 覆盖 面 不 大 ; 而 对 于 覆盖 世界 各 地 的 Internet, 即 使 宽带 能 在 一 定 程 
度 上 解决 传输 速度 的 问题 ,但 总 体 的 网 络 质量 无 法 保证 。 针 对 它们 不 同 的 特点 ,实现 局 域 网 上 
和 Internet 上 的 聊天 程序 分 别 采 用 UDP 和 TCP 两 种 不 同 的 方法 实现 。 

UDP 和 TCP 都 是 基于 TCP/IP 体系 结构 的 协议 的 。UDP 是 一 种 面向 无 连接 .不 可 靠 的 
协议 。 在 传送 数据 前 ,不 需要 先 建立 连接 。 远 程 主 机 接 到 UDP 数据 报 后 ,不 需要 给 出 任何 应 
答 。 它 传送 的 数据 包 都 是 独立 的 ,前 后 没有 顺序 关系 。TCP 则 是 提供 面向 连接 .可靠 的 服务 ， 
在 传送 数据 前 两 台 主 机 需要 进行 “三 次 握手 ”。 在 建立 连接 后 才能 传送 数据 ,TCP 提供 可 靠 的 
服务 ,因此 不 可 避免 地 增加 了 一 些 其 他 开销 ,如 应 答 ,流量 控制 .定时 器 以 及 连接 管理 等 。 虽 然 
UDP 在 可 靠 性 方面 不 如 TCP, 但 效率 却 比 TCP 高 ; 当 每 次 传送 的 数据 较 少 而 且 网 络 质量 较 
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高 时 ,UDP 也 同样 可 以 达到 使 用 的 可 靠 性 要 求 。 

由 于 局 域 网 一 般 网 络 质量 较 高 ,传输 速度 较 快 ,因此 只 要 运用 UDP 就 可 以 实现 可 靠 的 网 
络 传输 ,而 在 Internet 上 实现 网 上 聊天 就 必须 运用 TCP, 以 保证 传输 数据 的 正确 接收 。 

Delphi XE8 中 分 别提 供 了 基于 UDP 和 基于 TCP 的 WinSock 组 件 : TIdUDPClient、 
TIdUDPServer 以 及 TIdTCPClient .TIdTCPServer。 为 了 使 读者 在 这 两 种 环境 下 进行 Delphi 
网 络 编程 都 能 有 较 全 面 的 理解 ,下 面 分 别 介绍 两 种 不 同 传输 方式 实现 的 聊天 程序 。 


11.3.1 使 用 TCP 


由 于 网 络 的 不 稳定 及 经 常 丢失 数据 等 原因 ,在 Internet 上 实现 两 台 机 器 间 的 联系 需要 使 
用 TCP。 基 于 TCP/IP 的 传输 是 面向 连接 的 点 到 点 的 传输 。 下 面 就 实现 一 个 基于 TCP 的 
Internet 上 的 聊天 程序 ,该 程序 使 用 TIdTCPServer 组 件 和 TIdTCPClient 实现 。 在 聊天 时 ， 
用 户 首先 必须 设置 本 地 机 器 的 端口 号 ,打开 本 地 TCP 服务 器 ,然后 向 远程 主机 发 送 连接 请 求 ， 
建立 虚 路 连接 ,才能 开始 数据 的 传送 与 接收 。 

首先 介绍 TIdTCPClient、TId4TCPServer 组 件 的 用 法 ,对 一 些 常 用 的 属性 、 方 法 和 时 间 做 
比较 详细 的 说 明 。 

1， TIdTCPClient 组 件 

TIdTCPClient 组 件 位 于 Indy Clients 组 件 板 ,如 图 11-4 所 示 。TIdTCPClient 组 件 客 户 
方 通信 管理 ,其 中 封装 了 完整 的 Socket。TIdTCPClient 组 件 是 许多 Indy 客户 端 组 件 的 基 类 ， 
例如 TidDayTime、TidEcho、TidFinger、TidFTP、TidGopher、TIdHTTP、TIdNNTP、 
TIdPOP3 .TidTelnet 和 TidWhois。 
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11-4 IdTCPClient 组 件 


1) TIdTCPClient 组 件 主要 属性 

(1) BoundIP 属性 

用 来 指定 客户 端 连接 的 本 地 IP 地 址 。 

(2) BoundPort 属性 

用 来 指定 客户 端 连 接 的 本 地 IP 地 址 ,在 Connect 方法 中 指定 绑 定 端口 号 。 
(3) Host 属性 

用 于 标识 远程 计算 机 地 址 ,可 以 是 IP 地 址 ,也 可 以 是 计算 机 名 。 

(4) Port 属性 

用 于 表示 远程 计算 机 端口 ,和 Host 属性 一 起 用 于 指明 远程 计算 机 地 址 。 
(5) ReadTimeout 属性 

用 来 指明 读数 据 时 的 连接 超时 毫秒 数 。 

2) TIdTCPClient 组 件 的 过 程 和 方法 


(1) Connect 


形式 : procedure Connect(const ATimeout:integer); 
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含义 : 用 来 向 服务 器 请 求 建立 一 个 连接 。 

(2) ConnectAndGetAll 

形式 : function ConnectAndGetAllO :sting; 

含义 : 用 于 连接 到 Host 属性 和 Port 属性 指定 的 远程 计算 机 并 从 服务 器 中 读 取 所 有 
数据 。 

(3) Connected 

形式 : function Connected(): Boolean; 

含义 : 用 来 指明 到 对 方 计算 机 的 连接 是 否 已 经 建立 。 

(4) Disconnect 

形式 : procedure Disconnect(); 

含义 : 用 于 断 开 与 对 方 计算 机 的 连接 。 

(5) ReadBuffer 

形式 : procedure ReadBuffer(var ABuffer; constAByteCount:Longint) ; 

含义 : 从 Indy 的 接收 缓冲 区 中 读 取 的 字 节 数 。 

(6) SendBuffer 

形式 :procedure SendBuffer (const AHost: string; const APort: TIdPort; const 
ABuffer: TIdBytes) 

含义 : 用 于 向 对 方 计 算 机 发 送 数据 ,数据 被 写 往 Indy 缓冲 区 或 者 直接 发 送 给 对 方 。 

3) TIdTCPClient 组 件 的 事件 

OnStatus 事件 : 是 一 个 TidSatusEvent 类 型 的 时 间 句 柄 ,在 当前 连接 状态 改变 时 被 
触发 。 

2. TIdTCPServer 组 件 

TIdTCPServer 组 件 位 于 Indy Servers 组 件 板 ,如 图 11-5 所 示 。TIdTCPServer 组 件 封装 
了 一 个 完整 的 多 线程 TCP 服务 器 。TIdTCPServer 使 用 一 个 或 多 个 线程 来 监听 客户 连接 。 通 
过 TidThreadMgr 对 象 的 关联 ,为 每 一 个 连接 到 服务 器 的 客户 链接 分 配 一 个 独立 的 线程 。 
TIdTCPServer 允许 配置 服务 器 监听 线程 ,包括 默认 端口 `, 监 听 队 列 `. 最 大 连接 数 等 。 
TIdTCPServer 组 件 实现 了 两 套 机 制 来 链接 线程 提供 服务 。 第 一 种 方法 利用 响应 事件 句柄 的 
方法 来 处 理 客户 链接 。 这 些 事件 包括 onConnect、onExcute、onDisconnect、onException 等 。 
第 二 种 方法 使 用 TidCommandHandler 对 象 来 辨认 合法 的 服务 命令 ,提供 一 些 方法 和 属性 来 
处 理 参数 ,执行 动作 ,表述 正确 或 者 错误 的 响应 。 这 些 属性 和 方法 包括 CommandHandlers、 
CommandHandlersEnabled、 onNoCommandHandler、 onAfterCommandHandler、 onBeforeCom- 
mandHandler 等 。 


Indv Clients Indy Servers | Indv Interceots | Indy 120 Handlers | Indv Misc | 
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图 11-5 IdTCPServer 组 件 
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1) TIdTCPServer 组 件 的 属性 

(1) Active 属性 

用 于 指出 TIdTCPServer 的 当前 状态 。 

(2) Bindings 属性 

为 TCP 服务 器 提供 默认 端口 号 ,并 被 TIdListenerThread 对 象 用 来 获取 对 Socket 句柄 的 
访问 和 由 TCP/IP 协议 栈 提供 的 底层 方法 。 

(3) DefaultPort 属性 

指明 了 其 监听 新 的 客户 端 链接 请 求 的 端口 号 。 

(4) Greeting 属性 

当 客 户 端 连接 请 求 被 监听 线程 接收 时 ,Greeting 中 包含 被 发 往 客户 端的 欢迎 信息 。 

(5) ListenQueue 属性 

用 来 为 监听 线程 指明 可 允许 的 、 未 处 理 的 连接 请 求 数目 。 

(6) Threads 属性 

包含 在 监听 线程 中 创建 的 线程 列表 。 

(7) LocalName 属性 

标识 了 用 户 计算 机 系统 的 主机 名 

2) TIdTCPServer 组 件 的 过 程 和 方法 

(1) BeginWork 

形式 : Procedure BeginWork(AWorkMode: TWorkMode;const Size: Integer); 

方法 : 用 于 触发 OnBeginWork 事件 ,同时 维护 读 / 写 堵塞 操作 的 数量 ,以 及 初始 读 写 操作 
的 大 小 信息 。 

(2) DoWork 

形式 : procedure DoWork(AWorkMode: TWorkMode;const ACount:Integer); 

方法 : 用 于 触发 OnWork 事件 。 在 调用 DoWork 过 程 之 前 必须 调用 BeginWork 过 程 , 否 
则 DoWork 过 程 将 不 产生 任何 效果 。 

(3) EndWork 

形式 : procedure EndWork(AWorkMode: TWorkMode); 

方法 : EndWork 过 程 用 于 触发 OnEndWork 事件 。EndWork 可 以 嵌 套 调用 ,但 是 
onEndWork 事件 仅 在 第 一 次 调用 时 触发 

3) TIdTCPCServer 组 件 的 事件 句柄 

(1) OnConnect 事件 : 在 客户 线程 试图 连接 到 TCP 服务 器 时 触发 。 

(2) OnDisconnect 事件 : 在 客户 线程 试图 断 开 与 TCP 服务 器 时 触发 。 

(3) OnExecute 事件 : 当 客 户 线程 试图 执行 TIdPeerThread. Run 方法 时 触发 。 

(4) OnStatus 事件 : 在 当前 连接 的 状态 改变 时 被 触发 。 

【 例 11. 1】 利用 TIdTCPClient 和 TIdTCPServer 组 件 实现 一 个 基于 TCP 的 聊天 工具 。 

1) 界面 设计 

新 建 一 个 工程 , 窗 体 界面 设计 如 图 11-6 所 示 。 

2) 属性 设置 

各 组 件 的 属性 设置 如 表 11-1 所 示 。 
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天 聊天 工具 一 ICP 


服务 器 |P : 


呢 成 : 


图 11-6 基于 TCP 聊天 程序 的 界面 设计 


表 11-1 组 件 属性 设置 


对 象 属性 属性 值 说 明 
TLabeledEdit Name RemotelP 用 于 指定 远程 计算 机 的 IP 地 址 
TLabeledEdit Name RemotePort 用 于 指定 远程 主机 的 端口 号 
TLabeledEdit Name NickName 聊天 昵称 
TLabeledEdit Name LocalPort 本 地 TCP 服务 器 监听 的 端口 号 
TBitBtn Caption 登录 设置 连接 属性 ,打开 本 地 服务 器 
TBitBtn Caption 连接 连接 到 远程 主机 
TBitBtn Caption 发 送 发 送 聊天 记录 
TEdit Text 空白 输入 信息 框 
TIdTCPClient Name IdTCPClientl TCP 客户 端 组 件 
TIdTCPServer Name IdTCPServer1 TCP 服务 器 组 件 

3) 程序 设计 

首先 依然 是 定义 通信 结构 ,包括 信息 本 身 和 发 送 方 的 昵称 。 

TCommBlock = Record // 通 信 结 构 
SenderName: String; // 发 送 方 名 字 
Msg:String [100] // 消 息 

End; 


IdTCPServer 为 每 一 个 客户 端 连接 建立 一 个 独立 的 线程 对 象 ,下 面 就 定义 该 线程 类 ,其 中 
包括 上 面 定义 的 数据 结构 ,用 来 存放 信息 。 另 外 ,还 重 载 了 TThread 类 的 Execute 过 程 ,用 来 
实现 读 取 数 据 。 


TClientHandleThread = class (TThread) 
Private 

CB: TCommBlock; 

Procedure HandleInput; 
protected 
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Proecdure Execute;override; 
end ; 


定义 程序 中 用 到 的 变量 如 下 。 


var 
FrmChat: TFrmChat; 
ClientHandleThread: TClientHandleThread; 


发 送 数据 前 先 要 设置 一 些 连接 属性 ,打开 本 地 TCP 服务 器 。 双 击 BitLogin 按钮 ,生成 对 
应 的 响应 过 程 ,在 其 中 设置 属性 如 下 。 


Procedure TFrmChat. BitLoginClick(Sender: TObject); 
begin 
证 Trim(LocalPort. Text) = "then // 其 实 应 该 检查 是 否 是 合法 的 端口 号 
begin 
Application. MessageBox( ' 端 口 不 能 为 空 ', ' 提 示 ', MB_OK + MB_ICONWARNING) 
Exit; 
end; 
// 设 计 本 地 TCP 服务 器 的 端口 号 ,TCP 服务 器 在 该 端口 监听 客户 的 连接 请 求 
IdTCPServer1. DefaultPort: = StrToInt(LocalPort. Text); 
IdTCPServer1. Active: = true; 
end; 


双击 BitConnect 按钮 ,生成 响应 过 程 。 用 来 向 TCP 服务 器 发 送 连接 请 求 , 在 客户 端 和 服 
务 器 之 间 建 立 一 条 虚 链 路 。 


procedure TFrmChat. BitConnectClick( Sender: TObject); 
begin 
if Trim(RemoteIP. Text) = ''then // 判 断 远程 服务 器 IP 是 否 为 空 
begin 
Application. MessageBox( ' 服 务 器 IP 不 能 为 空 '，' 提 示 ', MB_OK + MB_ ICONWARNING); 
Exit; 
end; 
if trim(RemotePort. Text) = ''then // 检 查 远 程 主机 端口 是 否 为 空 
begin 
Application. MessageBox( ' 服 务 器 端口 不 能 为 空 '，' 提 示 ', MB_OK + MB_ ICONWARNING) ; 
Exit; 
end; 
// 设 计 TIdTCPClient 的 属性 ,用 来 和 服务 器 间 建 立 虚 链 路 
IdTCPC1lient1. Port: = StrToInt(RemotePort. Text); 
IdTCPC1lient1. Host: = RemoteIP. Text; 


try 
IdTCPClient1. Connect(); // 连 接 到 服务 器 
ClientHandleThread: = TClientHandleThread. Create( True); // 创 建 连接 线程 


ClientHandleThread. FreeOnTerminate: = True; 
ClientHandleThread. Resume; 


except 
on E : Exception do MessageD1g( ' 链 接 错误 : '+ #13+E.Message,mtError, [mbok],0); 
end; 
BitSend. Enabled: = true; 
end; 


实现 发 送 过 程 , 单 击 BitSend 按钮 ,生成 以 下 响应 过 程 。 


procedure TFrmChat. BitSendClick( Sender: TObject); 
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var 
CommBlock: TCommBlock; 
begin 
CommBlock. SenderName: = NickName. Text; // 设 置信 息 结构 
Commblock. Msg: = InputBox. Text; 
// 调 用 WriteBuffer 过 程 向 Indy 缓冲 区 写 数据 
IdTCPC1lient1. WriteBuffer(CommBlock, SizeOf (CommBlock), true); 
// 在 聊天 记录 上 显示 信息 
ChatLog. Lines. Rdd(CommBlock. SenderName + ': '+ CommBlock. Msg); 
end; 


下 面 处 理 TCP 服务 器 方面 的 事件 。 选 中 I4TCPServer 组 件 , 按 Fl1 键 ,在 弹出 的 Object 
Inspector 中 双击 OnConnect 事件 ,生成 以 下 响应 过 程 。 


procedure TFrmChat. IdTCPServerlConnect(AThread: TIdPeerThread); 
begin 

AThread. Data: = TObject(AThread. Connection. localname); ”// 接 收 数据 

// 在 聊天 记录 上 显示 连接 信息 

ChatLog. Lines. Add(TimeToStr(Time) + ' 来 自 计 算 机 '+ AThread. Connection. LocalName + ' 的 呼叫 '); 
end; 


用 同样 的 方法 ,生成 断 开 连 接 事 件 的 响应 过 程 。 


procedure TFrmChat. IdTCPServerlDisconnect(AThread: TIdPeerThread); 

begin 
ChatLog. Lines. Add(TimeToStr(Time) + ' 断 开 的 连接 '+ string (AThread. Data) ) ; 
AThread. Data: = nil; 

end; 


TCP 服务 器 用 以 下 方法 从 连接 中 读 取 数据 。 


Procedure TFrmChat. IdTCPServerlExecute( AThread: TIdPeerThread); 
var 
CommBlock : TCommBlock; 
begin 
if not AThread. Terminated and AThread. Connection. Connected then 
begin 
// 用 ReadBuffer 方法 读 取 数据 
AThread. Connection. ReadBuffer( CommBlock, Sizeof (CommBlock)); 
ChatLog. Lines. Add( CommBlock. SenderName + ':' + CommBlock. Msg); 
end; 
end; 


在 程序 关闭 时 ,需要 关闭 Socket 连接 。 


procedure TFrmChat. FormClose( Sender: TObject; var Action: TCloseAction); 
begin 
if IdTCPClientl1.Connected then 
begin 
ClientHandleThread. Terminate; 
IdTCPClientl1.Disconnect; 
end; 
end; 


客户 端 在 接收 线程 里 显示 聊天 记录 信息 。 


Procedure TClientHandleThread. HandleInput; 
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begin 
frmchat. ChatLog. Lines. Add(CB. SenderName + ':'+ cb. Msg); 
end; 


在 客户 端 线程 里 处 理 读数 据 , 使 用 同步 方法 。 


procedure TClientHandleThread. execute; 
begin 
while not terminted do 
begin 
if not FrmChat. IdTCPClient1. Connected then ”// 判 断 客户 端 是 否 处 于 连接 状态 
terminted 
else 
try 
FrmChat. IdTCPC1lient1. ReadBuffer(cb. SizeOf (cb)); 
synchronize( handleinput); 
except 
end; 
end; 
end; 


至 此 ,一 个 基于 TCP 的 简单 聊天 工具 就 完成 了 。 在 Internet 上 的 两 台 主 机 间 运 行 该 程 
序 , 可 以 看 到 如 图 11-7 所 示 的 效果 。 


天 聊天 工具 一 TCP 回回 加 


: |192168.1008 


呢 成 : [abe 


际 现 14: pt FO 
，abc， 最 近 如 何 ? 
be 艇 ; 只 是 比较 信 。 


ee 


图 11-7 基于 TCP 的 聊天 工具 


上 面 的 简单 聊天 工具 只 能 在 两 台 主 机 间 进 行 通信 ,同时 和 一 个 人 聊天 。 实 际 上 
TIdTCPServer 组 件 支持 多 用 户 的 连接 ,监听 线程 为 每 一 个 连接 的 客户 端 都 建立 一 个 独立 的 
线程 ,如 果 读 者 有 兴趣 ,不 妨 试 着 完善 它 的 功能 ,加 入 多 用 户 连 接 请 求 。 


11.3.2 使 用 UDP 


在 采用 TCP/IP 网 络 协议 的 应 用 中 :网络 应 用 程序 之 间 的 主要 通信 模式 为 客户 /服务 器 
(Client/Server,C/S) 模 式 。 即 服务 器 端 在 指定 的 端口 监听 客户 端的 请 求 , 而 客户 端 向 服务 器 
发 出 服务 请 求 ,服务 器 在 接收 到 请 求 后 ,提供 相应 的 服务 。 
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聊天 工具 大 致 是 由 底层 网 络 通信 部 分 .输入 编辑 .信息 显示 等 几 个 模块 组 成 的 。 底 层 网 络 
通信 部 分 在 这 里 由 TIdUDPClient 和 TIdUDPServer 组 件 实现 ,给 定 需要 连接 的 主机 IP 地 址 
和 端口 号 后 ,就 可 以 发 送 数据 。 在 聊天 时 ,用 户 在 输入 编辑 框 中 输入 信息 , 单 击 “发 送 ” 按 钮 后 
即 可 调用 TIdUDPClient 和 SendBuffer 方法 ,将 数据 发 送 到 指定 的 远 端 主机 。 接 收 时 ， 
TIdUDPServer 在 指定 的 端口 监听 ,接收 数据 时 就 调用 ReadBuffer 方法 接收 数据 ,并 在 窗 体 上 
显示 出 来 , 即 可 完成 整个 发 送 和 接收 的 过 程 。 注 意 ,在 整个 过 程 中 双方 并 没有 建立 实际 的 连 
接 ,只 是 在 发 送 数据 时 , 按 既 定 的 对 方 的 IP 地 址 和 端口 发 出 数据 包 而 已 。 这 一 点 与 前 面 讲 到 
的 在 TCP 下 客户 端 发 送 连接 请 求 ,服务 器 接 到 请 求 后 发 送 应 答 信息 ,然后 再 指定 的 端口 开始 
监听 的 过 程 不 同 。 

首先 介绍 TIdUDPClient\TIdUDPServer 组 件 的 用 法 ,就 一 些 常用 的 属性 方法 和 时 间 做 
了 比较 详细 的 说 明 。 

1. TIdUDPClient 组 件 

TIdUDPClient 组 件 位 于 Indy Clients 组 件 板 , 如 图 11-8 所 示 。TIdUDPClient 组 件 用 于 
实现 基于 UDP 的 客户 方 通信 管理 ,用 Send 方法 传输 数据 给 由 Host 和 Port 属性 指定 的 远程 
计算 机 。 


Indy Clients | Indv Servers | Indv Interceots | Indv 1/0 Handiers | 1 


Ss 国 回 回国 则 因 虹 串 日 轩 


图 11-8 TIdUDPClient 组 件 


1) TIdUDPClient 的 组 件 的 属性 

(1) Host 属性 

用 于 标识 远程 计算 机 地 址 。 

(2) Port 属性 

和 Host 属性 一 起 用 于 指明 远程 计算 机 地 址 。 

(3) ReceiveTimeout 属性 

用 于 指明 接收 包 的 超时 毫秒 数 。 

(4) Active 属性 

用 于 指明 TIdUDPClient 的 Socket 绑 定 是 否 已 经 分 配 。 

(5) Binding 属性 

用 于 发 送 和 接收 数据 的 Socket 绑 定 。 

(6) BroadcastEnabled 属性 

用 于 指出 Socket 绑 定 是 否 能 执行 广播 传输 。 

(7) BufferSize 属性 

用 于 表明 传送 的 UDP 数据 包 的 最 大 字 节 数 。 默 认 数据 包 最 大 值 是 8192 。 
(8) LocalName 属性 

包含 本 地 计算 机 名 。 

2) TIdUDPClient 的 过 程 和 方法 

(1) Send 

形式 : procedure Send (AHost:string;const APort: Integer; const AData: string); 
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含义 : AData 中 的 数据 传送 给 Host 属性 和 Port 属性 指定 的 远程 计算 机 。 

(2) SendBuffer 

形式 : procedure SendBuffer ( AHost: string; const Port: Integer; var ABuffer; 
AByteCount: Integer); 

含义 : 用 于 传送 数据 给 远程 计算 机 。 

(3) Broadcast 

形式 : procedure Broadcast(const AData: string;const APort: Integer); 

含义 : 向 网 络 中 的 所 有 计算 机 广播 AData 中 的 数据 。 

(4) ReceiveBuffer 

形式 : function ReceiveBuffer (var ABuffer; const ABufferSize: Integer; var VPeerIP 


string var VPeerPort: integer; AMsec:Integer) :integer; 

含义 : 用 于 从 VPeerIP 和 VPeerPort 参数 指定 的 计算 机 中 读 出 数据 到 ABuffer 缓冲 区 。 

(5) BeginWork 

形式 : procedure BeginWork(AWorkMode: TWorkMode; const ASize: Integer); 

含义 : 用 于 触发 OnBeginWork 事件 ,同时 维护 读 写 堵塞 操作 的 数量 ,以 及 初始 读 写 操作 
的 大 小 信息 。 

(6) DoWork 

形式 : procedure DoWork(AWorkMode: TWorkMode; const ACount: Integer) 

含义 : 用 于 触发 OnWork 事件 ,在 调用 DoWork 过 程 之 前 必须 调用 BeginWork 过 程 , 否 
则 DoWork 过 程 将 不 会 产生 任何 效果 。 

(7) EndWork 

形式 : procedure EndWork(AWorkMode: TWorkMode); 

含义 : 用 于 触发 OnEndWork 事件 ,EndWork 可 以 嵌 套 调用 ,但 是 OnEndWork 事件 仅 在 
第 一 次 调用 时 触发 。 

3) TIdUDPClient 的 事件 响应 

OnStatus 事件 : 在 当前 链接 的 状态 改变 时 被 触发 。 

2. TIdUDPServer 组 件 

TIdUDPServer 组 件 位 于 IdUDPServer 组 件 板 ,如 图 11-9 所 示 。TIdUDPServer 组 件 用 
于 实现 基于 UDP 的 服务 器 通信 管理 。 下 面 介绍 它 的 主要 属性 和 方法 。 


Indv Cients 


NA 饲 饲 


图 11-9 TIDUDPServer 组 件 


1) TIdUDPServer 的 属性 

(1) Bindings 属性 

为 TIdUDPServer 提供 默认 端口 号 ,并 通过 TIdUDPListenerTherad 来 访问 Socket 句柄 
和 协议 栈 提供 的 底层 方法 。 

(2) DefaultPort 属性 

用 来 标识 由 服务 器 创建 的 新 的 Socket 绑 定 的 端口 号 ,新 的 链接 用 该 端口 号 来 进行 监听 。 
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(3) Active 属性 

用 于 指明 TIdUDPServer 的 Socket 绑 定 是 否 已 经 分 配 。 

(4) Binding 属性 

用 于 发 送 和 接收 数据 的 Socket 绑 定 。 

(5) BroadcastEnabled 属性 

用 于 指明 服务 器 是 否 正 在 向 网 络 上 的 所 有 计算 机 广播 数据 报 。 

(6) BufferSize 属性 

用 于 指定 能 通过 Binding 发 送 和 接收 的 最 大 UDP 包 , 默 认 数据 包 最 大 值 是 8192。 

(7) ReceiveTimeonut 属性 

用 来 表明 ReceiveString 方法 时 等 待 的 超时 毫秒 数 。 

(8) LocalName 属性 

标识 了 用 户 计 算 机 系统 名 。 

2) TIdUDPServer 组 件 的 方法 和 过 程 

(1) Broadcast 

形式 : procedure Broadcast(const AData:string;const APort:Integer); 

含义 : 向 网 络 中 的 所 有 计算 机 广播 AData 中 的 数据 ,Aport 参数 指明 了 计算 机 的 端口 号 。 

(2) ReceiveBuffer 

形式 : function ReceiveBuffer(var ABuffer; const ABufferSize: Integer; var VPeerIP 
string var VPeerPort: integer; AMsec:Integer) :integer; 

含义 : 用 于 从 VPeerIP 和 VPeerPort 参数 指定 的 计算 机 中 读 出 数据 到 ABuffer 缓冲 中 。 

(3) Send 

形式 : procedure Send (AHost:string;const APort :Integer; const AData :string); 

含义 : Send 过 程 将 AData 中 的 数据 传送 给 由 AHost 参数 和 APort 参数 指定 的 远程 计算 机 。 

(4) BeginWork 

形式 : Procedure BeginWork(AWorkMode: TWorkMode; const ASize:Integer); 

含义 : 该 过 程 可 以 被 嵌 套 调用 ,但 是 OnBeginWork 事件 仅 在 第 一 次 调用 BeginWork 方 
法 时 触发 。 

(5) DoWork 

形式 : procedure DoWork(AWorkMode: TWorkMode; const ACount:Integer); 

含义 : 用 于 触发 OnWork 事件 。 在 调用 DoWork 过 程 之 前 必须 调用 BeginWork 过 程 , 否 
则 DoWork 过 程 将 不 产生 任何 效果 。 

(6) EndWork 

形式 : procedure EndWork(AWorkMode: TWorkMode); 

含义 : 用 于 触发 OnEndWork 事件 。EndWork 可 以 嵌 套 调用 ,但 是 OnEndWork 事件 仅 
在 第 一 次 调用 时 触发 。 

3) TIdUDPServer 的 事件 响应 

(1) OnUDPRead 事件 

当 数 据 已 经 从 Socket 中 读 出 来 可 以 被 服务 器 使 用 时 ,由 DoUDPRead 方法 触发 。 

(2) OnStatus 事件 

在 当前 连接 的 状态 改变 时 被 触发 。 
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【 例 11.2】 在 介绍 了 TIdUDPClient 和 TIdUDPServer 组 件 的 常用 属性 和 方法 后 ,下 面 
就 用 这 两 个 组 件 实现 一 个 基于 UDP 的 聊天 工具 。 该 程序 通过 用 户 指定 一 台 远 程 计 算 机 的 IP 
地 址 和 端口 ,可 以 实现 局 域 网 上 的 两 台 计 算 机 之 间 的 通信 。 在 该 程序 中 ,TIdUDPClient 组 件 
专门 用 于 向 对 方 发 送 数据 ,而 接收 对 方 发 送 过 来 的 数据 的 任务 由 TIdUDPServer 完成 。 


1) 界面 设计 


新 建 一 个 工程 界面 如 图 11-10 所 示 。 


下 聊天 工具 --UDP 


加 加 


2) 属性 设置 


图 11-10 基于 UDP 聊天 程序 的 界面 设计 


各 组 件 的 属性 设置 如 表 11-2 所 示 。 


表 11-2 组 件 属 性 设置 


对 象 属性 属性 值 说 明 
TLabeledEdit Name RemoteIP 用 于 指定 远程 计算 机 的 IP 地 址 
TLabeledEdit Name RemotePort 用 于 指定 远程 主机 的 端口 号 
TLabeledEdit Name NickName 聊天 昵称 
TLabeledEdit Name LocalPort 本 地 UDP 服务 器 监听 的 端口 号 
TBitBtn Name BitSet 设置 本 地 UDP 属性 按钮 
TEdit Text 空白 输入 信息 框 
TIdUDPClient Name IdUDPClientl UDP 客户 端 组 件 
TIdUDPServer Name IdUDPServerl UDP 服务 器 组 件 

3) 程序 设计 


首先 定义 一 个 常量 ,用 来 表示 超时 的 毫秒 数 。 


const 


RECIEVETIMEOUT = 5000; 


// 毫 秒 


定义 被 发 送 包 的 数据 结构 ,该 结构 里 包含 本 地 用 户 的 昵称 以 及 待 发 送信 息 。 如 果 需 要 ,可 
以 在 该 结构 中 加 入 其 他 的 信息 ,比如 文本 颜色 等 ,当然 这 要 求 聊天 记录 组 件 能 够 显示 多 种 颜色 
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的 文本 才 行 。 
TCommBlock = Record // 通 信 结 构 
SenderName: String; // 发 送 方 名 字 
Msg:String[ 100]; // 消 息 ,限制 每 次 发 送 的 消息 大 小 为 100 字 节 
end; 


基于 UDP 的 通信 程序 不 需要 预先 建立 连接 ,只 需 直 接 设 置 好 本 地 端口 .服务 器 的 IP 地 址 
和 端口 号 。 首 先 实现 响应 “ 设 定 ” 单 击 按钮 事件 。 在 FrmMain 上 双击 BitSet 按钮 ,生成 该 事件 
响应 过 程 ,在 其 中 输入 如 下 代码 。 


procedure TFrmMain. BitSetClick(Sender: TObject); 

begin 
// 设 置 需要 连接 到 的 服务 器 的 主机 名 或 者 王 地 址 
IdUDPC1lient1. Host: = RemotelIP. Text; 
// 设 置 目的 主机 的 端口 号 
IdUDPC1lient1. Port: = StrToInt(RemotePort. Text); 
// 设 置 本 地 UDP 服务 器 的 监听 /端口 号 
IdUDPServer1. DefaultPort: = StrToInt (LocalPort. Text); 


// 打 开本 地 UDP 服务 器 
IdUDPServer1. Active: = true; 


// 激 活 Bitsend 按钮 ,现在 开始 可 以 发 送 数 据 
BitSend. Enabled: = true; 
end; 
下 面 实 现 发 送 数 据 的 过 程 ,该 过 程 主要 调用 TIdUDPClient 组 件 的 SendBuffer 方法 实现 。 
在 FrmMian 上 双击 BitSend 按钮 ,生成 该 按钮 的 单 击 事件 响应 过 程 。 


procedure TFrmMain. BitSendClick(Sender: TObject); 


var 
Comm : TCommBlock; // 定 义 通信 结构 变量 
begin 
comm. SenderName: = NickName. Text; 
comm. Msg: = InputBox. Text; // 在 本 地 聊天 记录 上 显示 信息 


ChatLog. Lines. Rdd(comm. SenderName + ':'+ Comm. Msg); // 发 送 本 地 用 户 昵称 信息 
IdUDPClient1. SendBuffer(Comm, SIZEOF (Comm) ); 
end; 
后 剩 下 的 就 是 利用 TIdUDPServer 接收 消息 了 ,利用 该 组 件 的 onUDPRead 事件 响应 
ee 在 BitSet 的 响应 过 程 中 设置 TIdUDPServer 的 Active 属性 为 True 时 ,UDP 服务 器 就 
在 指定 的 端口 监听 了 。 在 FrmMain 上 选中 TIdUDPServer 组 件 ,然后 按 Fl1 键 ,在 弹出 的 
Object Inspector 框 中 双击 OnUDPRead 事件 ,生成 其 响应 过 程 。 
Pprocedure TFrmMain. IdUDPServer1UDPRead(Sender: TObject; AData: TStream; 


ABinding: TIdSocketHandle); 
var 


Comm: TCommBlock; // 定 义 接收 数据 的 结构 
begin 

AData. ReadBuffer (Comm, RData. Size); // 从 Indy 缓冲 区 中 读 取 数 据 

ChatLog. Lines. Add( Comm. SenderName + ':'+ Comm. Msg); // 在 聊天 记录 上 显示 记录 
end; 


至 此 ,一 个 基于 UDP 的 简单 聊天 程序 就 完成 了 。 在 局 域 网 内 的 两 台 计 算 机 运行 该 程序 
并 进行 设置 , 即 可 以 自由 聊天 了 ,如 图 11-11 所 示 。 
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服务 器 IP: 192168.1008 服务 器 端口 : |5000 
呢 成 : |abc 本 地 靖 口 : |5000 


abc 你 好 ， 调 试 成 功 了 吗 ? 
了 ,谢谢 和 


小 结 


本 童 首先 介绍 了 Windows Sockets 的 一 些 概 念 ,接着 重点 介绍 了 几 个 重要 的 网 络 组 件 ,最 
后 举例 说 明了 网 络 编程 的 应 用 。 通 过 对 本 章 的 学 习 , 读 者 应 该 对 Delphi 中 的 网 络 编程 有 一 个 
初步 的 了 解 。 


习 题 


11-1 简 述 TIdTCPServer 和 TIdTCPClient 组 件 的 主要 属性 。 

11-2 简 述 TIdUDPServer 与 TI4UDPClient 组 件 的 主要 属性 、 方 法 和 事件 。 

11-3 请 编写 一 个 简单 的 网 络 聊天 程序 ,要 求 该 程序 兼 具 客户 端 和 服务 器 端的 功能 。 
11-4 试 编写 一 个 程序 探测 局 域 网 上 的 主机 。 
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多 线程 程序 设计 


在 Windows 应 用 程序 中 , 当 用 户 执行 一 些 比较 费时 的 任务 时 ,系统 很 可 能 处 于 等 待 的 状 
态 , 这 将 会 是 一 件 非常 头疼 的 事 。 利 用 多 线程 技术 就 可 以 避免 这 种 问题 的 发 生 , 当 一 个 耗 时 很 
长 的 任务 正在 执行 时 ,用 户 可 以 不 必 理 会 它 而 去 执行 其 他 任务 。 

本 章 将 首先 介绍 一 些 线程 的 基本 概念 ,然后 通过 一 个 比较 经 典 的 利用 多 线程 进行 排序 的 
例子 ,介绍 如 何在 Delphi XE8 中 应 用 线程 来 编程 。 


12.1 线程 的 基本 概念 


线程 是 应 用 程序 中 的 一 条 基本 的 执行 路 径 , 它 也 是 Win32 进程 中 的 最 小 执行 单元 ,线程 
由 一 个 堆栈 .CPU 寄存 器 的 状态 和 系统 调度 列表 中 的 一 个 人 口 组 成 ,每 个 线程 都 可 以 访问 进 
程 中 的 所 有 资源 。 

一 个 进程 由 一 个 或 多 个 线程 ,代码 ,数据 和 应 用 程序 在 内 存 中 的 其 他 资源 组 成 。 低 优先 级 
的 线程 一 般 要 等 待 高 优先 级 线程 。 一 般 每 个 线程 相互 独立 运行 ,除非 用 户 将 线程 之 间 设 为 互 
相 可 见 。 各 线程 间 应 共享 资源 ,然而 必须 通过 信号 或 其 他 进程 内 通信 的 方法 来 协调 线程 之 间 
的 工作 。 

对 应 用 程序 开发 人 员 来 说 ,多 线程 的 优点 是 可 以 使 应 用 程序 中 的 很 多 工作 同步 运 
Delphi XE8 的 VCL 组 件 库 提供 了 很 多 对 象 ,使 用 户 可 以 很 容易 地 实现 多 线程 的 应 用 。 和 
使 用 线程 要 非常 小 心 ,但 使 用 线程 可 以 在 下 面 几 个 方面 增强 用 户 应 用 程序 的 性 能 。 

1. 避免 瓶 贷 

使 用 单线 程 , 应 用 程序 在 等 待 一 个 缓慢 操作 完成 的 过 程 中 必须 停止 所 有 其 他 的 操作 ， 
CPU 直到 该 线程 操作 完成 之 后 才 对 其 他 线程 进行 处 理 ; 而 在 多 线程 应 用 中 ,在 一 个 线程 等 待 
一 个 缓慢 操作 完成 的 过 程 中 可 以 执行 其 他 线程 。 

2. 并 行 操作 

通常 情况 下 ,一 个 应 用 程序 的 行为 可 以 被 组 织 成 很 多 互相 独立 的 并 行 操作 ,多 线程 可 以 使 
应 用 中 的 不 同 操作 并 行 执行 。 使 用 线程 为 不 同 任务 指定 不 同 的 优先 级 ,可 以 使 CPU 有 更 多 
的 时 间 执 行 更 紧迫 的 任务 。 

3. 多 处 理 器 

如 果 运 行 用 户 应 用 程序 的 系统 有 多 个 处 理 器 ,用 户 可 以 通过 把 应 用 程序 中 的 不 同 任务 分 
配 到 不 同 的 线程 中 并 让 它们 在 不 同 的 处 理 器 上 同步 运行 来 改善 系统 的 性 能 。 

下 面 介绍 一 些 有 关 线 程 的 基本 概念 。 
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12.1.1 线程 的 优先 级 


每 个 线程 都 具有 不 同 的 优先 级 ,系统 根据 线程 优先 级 的 不 同 来 调度 线程 的 执行 ,高 优先 级 
的 线程 可 以 优先 执行 并 可 以 获得 更 多 的 CPU 时 间 。 

每 个 线程 的 优先 级 由 下 面 的 标准 决定 。 

(1) 其 他 进程 的 优先 级 类 (高 普通 或 空闲 ) 。 

(2) 其 他 进程 优先 级 类 中 线程 的 优先 级 (最 低 、 普 通 下 普通、 普通 上 、 最 高 ) 。 

(3) 动态 优先 级 增高 ,如果 有 的 话 , 系 统 将 在 线程 的 基础 优先 级 上 增加 。 

在 创建 线程 时 ,用 户 并 没有 用 数字 为 它们 指定 优先 级 ,系统 将 用 两 个 步骤 来 确定 线程 的 优 
先 级 ,第 一 步 是 给 进程 分 配 一 个 优先 级 类 ,进程 的 优先 级 类 将 告诉 系统 进程 与 系统 中 的 其 他 进 
程 相对 的 优先 级 。 第 二 步 是 为 该 进程 所 拥有 的 线程 分 配 相对 优先 级 。 

表 12-1 和 表 12-2 分 别 列 出 了 进程 的 优先 级 类 和 线程 的 优先 级 。 


表 12-1 进程 的 优先 级 


优先 级 类 创建 进程 时 的 标志 级 别 
空闲 (Idle) IDLE_PRIORITY_CLASS 4 
普通 (Normal) NORMAL _PRIORITY_CLASS 9/7 
高 (High) HIGH_PRIORITY_CLASS 
实时 (RealTime) REALTIME_PRIORITY_CLASS 24 


表 12-2 线程 的 优先 级 


优 先 级 创建 进程 时 的 标志 说 明 
最 低 (Lowest) THREAD_PRIORITY_LOWEST 比 所 属 进程 的 优先 级 小 2 
普通 下 (Below Normal) THREAD_PRIORITY_BELOW_NORMAL 比 所 属 进程 的 优先 级 小 1 
普通 (Normal) THREAD_PRIORITY_NORMAL 与 所 属 进程 的 优先 级 相同 
普通 上 (Above ”Normal) THREAD_PRIORITY_ABOVE_NORMAL 比 所 属 进程 的 优先 级 大 1 
最 高 (Highest) THREAD_PRIORITY_HIGHEST 比 所 属 进程 的 优先 级 大 2 


除了 如 表 12-2 所 示 的 那些 标志 外 ,创建 线程 时 ,通常 还 可 以 指定 另外 两 个 特殊 的 标志 : 
THREAD_PRIORITY_IDLE 和 THREAD_PRIORITY_TIME_CRITICAL。 当 在 应 用 程序 
中 指定 了 前 一 个 标志 时 ,无 论 进程 的 优先 级 为 空闲 、 普 通 或 最 高 ,都 把 线程 的 优先 级 设置 为 1; 
当 线 程 优先 级 为 实时 时 , 则 将 线程 的 优先 级 设置 为 16。 当 指定 后 者 时 ,无 论 线程 的 优先 级 是 
空闲 .普通 或 高 ,都 把 线程 的 优先 级 设置 为 15; 但 是 如 果 线 程 的 优先 级 为 实时 , 则 将 线程 的 优 
先 级 设置 为 31。 

根据 线程 的 相对 优先 级 和 包含 此 线程 的 进程 的 优先 级 类 的 结合 可 以 得 到 线程 的 基 优先 
级 。 系 统 可 以 调度 优先 级 小 于 16 的 线程 ,动态 提高 它们 的 优先 级 ,保证 系统 对 终端 用 户 的 及 
时 响应 。 


12.1.2 线程 的 同步 
使 用 线程 时 要 十 分 小 心 ,因为 线程 可 能 会 同时 访问 同样 的 系统 资源 ,例如 一 个 线程 要 读 取 
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内 存 中 的 数据 ,而 另 一 个 线程 要 向 内 存 中 写 人 数据, 如果 协调 不 好 ,将 得 不 到 预想 的 结果 ,甚至 
会 产生 严重 的 错误 ,导致 系统 崩溃 。 

为 了 避免 线程 之 间 的 冲突 ,有 必要 对 访问 共享 资源 的 线程 进行 同步 控制 设计 ,同步 还 可 以 
使 线程 之 间 相 互 依赖 的 代码 能 够 正确 运行 。 

Win32 的 API 提供 了 如 下 一 组 可 以 使 其 句柄 用 作 同 步 的 对 象 。 

(1) 同步 对 象 : 互 斥 对 象 (Mutext) 、 信 号 灯 和 事件 (Event) 句 柄 ; 

(2) 文件 句柄 ; 

(3) 命令 管道 句柄 ; 

(4) 控制 台 输 入 缓冲 区 句柄 ; 

(5) 通信 设备 句柄 ， 

(6) 进程 句柄 ; 

(7) 线程 句柄 。 

关于 线程 同步 的 详细 描述 ,读者 可 以 参考 相关 书籍 。 


12.1.3 线程 的 局 部 存储 


应 用 程序 中 的 全 局 变量 和 虚拟 地 址 空间 被 应 用 程序 的 所 有 线程 共享 ,同时 共享 资源 还 包 
括 对 应 各 个 线程 的 局 部 的 静态 存储 。 线 程 的 局 部 变量 对 运行 此 函数 的 各 个 线程 是 局 部 的 ,但 
是 当 线 程 调 用 另 一 个 函数 时 ,该 函数 使 用 的 静态 或 全 局 变量 对 所 有 线程 来 说 将 是 同样 的 值 。 
使 用 线程 局 部 存储 方法 ,可 通过 对 进程 中 用 于 存储 和 获取 各 个 线程 不 同 值 的 索引 来 完成 对 一 
个 线程 的 存储 分 配 。 


12.2 定义 线程 对 和 象 


对 大 多 数 应 用 程序 来 说 ,用 户 可 以 使 用 线程 对 象 来 代表 应 用 程序 中 的 一 个 执行 线程 ,线程 
对 象 是 通过 封装 编写 一 个 多 线程 应 用 程序 的 最 一 般 需要 ,简化 了 用 户 编写 多 线程 应 用 程序 的 
过 程 。 

需要 注意 的 是 ,线程 对 象 不 允许 用 户 控制 安全 属性 和 线程 堆栈 的 大 小 ,如 果 用 户 需要 控制 
线程 的 这 些 属 性 ,必须 使 用 BeginThread 函数 。 

为 了 使 用 线程 对 象 ,用户 必 须 首 先 创建 一 个 新 的 Thread 派生 类 。 


12.2.1 创建 线程 对 象 


要 创建 一 个 新 的 Thread 派生 类 ,可 以 使 用 如 下 步骤 。 

(1) 通过 Delphi XE8 主 菜 单 的 File| New| Other 命令 在 弹出 的 New Items 对 话 框 中 ,如 
图 12-1 所 示 ,选择 Delphi Projects|Delphi Files| Tthread Object 图 标 , 单 击 OK 按钮 ,系统 将 
自动 创建 一 个 Thread Object。 

(2) 系统 弹出 News Thread Object 对 话 框 , 如 图 12-2 所 示 。 在 其 中 输入 一 个 新 的 类 名 
TMyThread 和 线程 名 Thread Object。 输 入 类 名 和 线程 名 之 后 ,Delphi XE8 将 为 用 户 创建 一 
个 用 于 实现 线程 的 新 单元 文件 。 
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12-1 创建 Thread Object 


到 
Class Name: 


_ Named Thread 


mexmene:[ 
[el | 


12-2 输入 类 名 和 线程 名 


自动 生成 的 单元 文件 将 包括 新 线程 对 象 的 框架 代码 ,该 单元 文件 如 下 。 


unit Unitl; 
interface 
uses 
System. Classes; 
type 
TMyThread = class (Thread) 
protected 
Procedure Execute; override; 
end ; 
implementation 
{ 
Important: Methods and properties of objects in visual components can only be 
used in a method called using Synchronize, for example, 
Synchronize( UpdateCaption); 
and UpdateCaption could look like, 
procedure TMyThread. UpdateCaption; 
begin 
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Form1. Caption : = 'Updated in a thread'; 
end; 
or 
Synchronize( 
procedure 
begin 
Form1. Caption : = 'Updated in thread via an anonymous method' 
end 
) 
); 
where an anonymous method is passed. 
Similarly, the developer can call the Queue method with similar parameters as 
above, instead passing another TThread class as the first parameter, putting 
the calling thread in a queue with the other thread. 
} 
{ TMyThead } 


procedure TMyThead. Execute; 

begin 
NameThreadForDebugging( "Thread Object'); 
{ Place thread code here } 

end; 

end. 


2.2 初始 化 线程 对 象 
如 果 用 户 要 为 新 的 线程 类 编写 初始 化 代码 ,必须 重 载 Create 方法 ,为 线程 类 添加 一 个 新 


的 构造 函数 并 且 在 它 的 实现 中 编写 初始 化 代码 。 在 代码 中 ,用 户 可 以 为 线程 指定 一 个 优先 级 
并 指出 线程 执行 结束 时 是 否 自动 释放 分 配给 它 的 内 存 空间 。 


1. 为 线程 指定 一 个 优先 级 
表 12-3 列 出 了 Delphi XE8 中 线程 对 象 的 优先 级 。 


表 12-3 Delphi XE8 中 线程 对 象 的 优先 级 


优先 级 值 意 义 
Tpldle 只 有 在 系统 空闲 时 ,线程 才 执行 , Windows 不 会 中 断 其 他 线程 去 执行 一 个 具有 该 优先 级 
的 线程 
TpLowest 线程 的 优先 级 比 普通 优先 级 小 2 
TpLower 线程 的 优先 级 比 普通 优先 级 小 1 
TpNormal 线程 的 优先 级 和 普通 优先 级 相同 
TpHigher 线程 的 优先 级 比 普通 优先 级 大 1 


TpHighest 线程 的 优先 级 比 普通 优先 级 大 2 
TpTimeCritical ”线程 的 优先 级 最 高 


但 是 也 不 能 无 休止 地 提高 大 量 占用 CPU 的 线程 的 优先 级 ,否则 可 能 会 导致 其 他 线程 不 


能 运行 。 应 该 只 为 那些 花费 大 量 时 间 等 待 一 个 外 部 事件 的 线程 指定 高 优先 级 。 


下 面 的 代码 构造 了 一 个 低 优先 级 线程 ,该 线程 执行 了 一 些 不 影响 其 他 线程 的 后 台 操 作 。 


Var 
SecondProcess:TMyThread; 
begin 


第 12 章 ， 多 线程 程序 设计 上 309 


SecondProcess: = TMythread. Ceate( True); 
SecondProcess. priority: = tplower; 
SecondProcess. Resume; 
end; 
2. 指定 是 否 释 放 线 程 
通常 一 个 特定 线程 只 执行 一 次 ,在 这 种 情况 下 ,最 简单 的 方法 是 让 线程 自己 释放 。 这 种 情 
况 下 ,可 以 将 FreeOnTerminate 属性 值 设 为 True。 
然而 ,有 时 用 户 线程 对 象 可 能 会 代表 一 个 应 用 程序 要 反复 执行 的 一 个 任务 ,例如 响应 一 个 
用 户 行为 或 外 部 消息 事件 。 当 用 户 应 用 程序 需要 一 个 线程 的 多 个 实例 ,用 户 可 以 保留 线程 对 
象 以 备 再 次 使 用 ,而 不 是 在 它们 执行 完成 后 立即 撤销 ,这 样 可 以 提高 应 用 程序 的 性 能 。 这 种 情 
况 下 ,就 要 把 FreeOnTerminate 属性 设 为 False。 


12.2.3 编写 线程 函数 


Execute 方法 是 用 户 线程 的 执行 函数 ,可 以 认为 它 是 用 户 载 入 的 一 个 程序 ,并 且 与 其 他 线 
程 共 享 同 样 的 进程 空间 。 编 写 线程 函数 比 编写 一 个 独立 的 程序 更 复杂 ,因为 用 户 必须 要 确保 
不 与 其 他 线程 发 生 冲 突 。 另 一 方面 ,因为 所 有 线程 共享 同样 的 进程 空间 ,用 户 必须 使 用 共享 内 
存 空间 的 方法 来 和 其 他 线程 通信 。 

1. 使 用 主 VCL 线程 

当 用 户 使 用 VCL 对 象 库 中 的 对 象 时 ,它们 的 属性 和 方法 不 能 保证 线程 是 安全 的 ,也 就 是 
说 ,访问 属性 或 执行 方法 可 能 会 执行 一 些 使 用 了 未 受 保护 的 内 存 的 操作 。 

如 果 所 有 对 象 在 一 个 独立 线程 中 访问 它们 的 属性 和 执行 方法 ,用 户 就 不 必 担心 对 象 之 间 
彼此 干扰 ,这 时 要 使 用 主 VCL 线程 ,创建 一 个 执行 必要 操作 的 独立 过 程 ,然后 在 用 户 编 程 的 
Synchronize 方法 中 调用 这 个 过 程 ,例如 : 

procedure TMyThread. PushTheButton; 

begin 

Button1. Click; 

end; 

procedure TMyThread. Excute; 

begin 

Synchronize(PushTheButton); 
end; 


Synchronize 方法 等 待 主 VCL 线程 进入 消息 循环 ,并 执行 传递 任务 。 

由 于 该 方法 使 用 消息 循环 , 它 不 能 在 控制 台 程 序 中 工作 ,用 户 必 须 使 用 其 他 的 机 制 ,例如 
临界 区 ,保护 在 控制 台 程序 中 对 VCL 对 象 的 访问 。 

用 户 并 不 总 是 需要 使 用 主 VCL 线程 ,一 些 对 象 是 线程 无 关 的 。 当 用 户 知 道 一 个 对 象 的 
方法 是 线程 安全 的 时 候 忽 略 使 用 Synchronize 方法 将 改善 系统 的 性 能 。 这 是 因为 用 户 不 需要 
等 待 VCL 线程 进入 它 的 消息 循环 。 

在 下 述 几 种 情况 下 ,用 户 不 需要 使 用 Synchronize 方法 。 

(1) 数据 访问 组 件 是 线程 安全 的 。 

(2) 图 形 对 象 是 线程 安全 的 。 
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(3) 当 使 用 一 个 线程 安全 的 ThreadList 版 本 时 。 

2. 使 用 线程 局 部 变量 

和 任何 其 他 的 Object Pascal 过 程 类 似 ,线程 函数 及 其 调用 的 任何 过 程 都 有 它们 自己 的 局 
部 变量 。 这 些 过 程 也 可 以 访问 全 局 变量 。 实 际 上 ,全 局 变量 提供 了 一 个 更 为 强大 的 线程 间 通 
信和 机制 。 

然而 ,有 时 用 户 可 能 需要 使 用 一 些 特殊 变量 ,它们 对 用 户 线程 中 的 所 有 过 程 而 言 是 全 局 的 
变量 ,但 却 不 能 被 一 个 线程 类 的 其 他 实例 共享 。 可 以 通过 声明 一 个 线程 局 部 变量 来 实现 这 种 
要 求 , 将 变量 声明 为 Threadvar 可 以 声明 一 个 线程 局 部 变量 。 例 如 : 

Threadvar 

x: integer; 

以 上 代码 声名 了 一 个 应 用 程序 中 每 个 独立 线程 独自 占有 的 变量 ,但 它 对 所 有 线程 而 言 是 
全 局 的 。 

3. 检查 是 否 被 其 他 线程 终止 

用 户 线程 对 象 在 Execute 方法 调用 时 开始 运行 ,并 且 在 Execute 方法 结束 时 终止 。 然 而 
有 时 应 用 程序 需要 一 个 线程 持续 执行 ,直到 某 个 外 部 条 件 得 到 满足 。 这 时 ,用 户 可 以 让 其 他 的 
线程 通过 Terminated 属性 来 通知 用 户 线程 终止 。 当 其 他 线程 想 终止 用 户 线程 时 ,可 以 调用 
Terminated 方法 ,该 方法 将 用 户 线程 对 象 的 Terminated 属性 值 设 为 True。 

下 面 的 代码 演示 了 如 何 实现 这 种 方式 。 

procedure TMyThread. Excute; 

begin 

while not terminated do 


PerformYourTask; 
end; 


12.2.4 编写 线程 的 清除 代码 


用 户 可 以 将 线程 的 清除 代码 集中 在 线程 终止 时 执行 。 在 线程 终止 时 ,将 发 生 一 个 
OnTerminate 事件 ,将 清除 代码 放 在 该 事件 处 理 过 程 中 可 以 确保 代码 的 执行 ,而 不 必 考 虑 
Execute 方法 遵循 怎样 的 执行 路 径 。 

OnTerminate 事件 处 理 过 程 不 作为 用 户 线程 的 一 部 分 运行 , 它 在 主 VCL 线程 中 运行 , 因 
此 必须 注意 以 下 两 点 。 

(1) 用 户 在 OnTerminate 事件 处 理 过 程 中 不 能 使 用 任何 线程 局 部 变量 ; 

(2) 用 户 在 OnTerminate 事件 处 理 过 程 中 可 以 安全 地 访问 任何 组 件 以 及 VCL 对 象 而 不 
必 担 心 与 其 他 线程 发 生 冲 突 。 


12.3 使 用 线程 对 象 


12.3.1 线程 的 同步 


为 了 避免 线程 在 访问 一 个 全 局 变量 或 对 象 时 和 其 他 线程 发 生 冲突 ,用 户 需要 在 代码 执行 
完 一 个 操作 之 前 阻塞 其 他 线程 的 执行 ,注意 不 要 阻塞 其 他 不 必 阻 塞 的 线程 ,这 样 做 可 能 导致 系 
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统 性 能 严重 降低 并 失去 使 用 线程 的 许多 优点 。 

VCL 支持 三 种 方法 来 避免 其 他 线程 与 用 户 线程 访问 同样 的 内 存 区 域 。 

1. 锁 住 对 象 

为 了 避免 其 他 线程 使 用 某 个 对 象 实例 ,可 以 锁 住 该 对 象 。 例 如 ,画布 对 象 有 一 个 Lock 方 
法 可 以 阻止 其 他 线程 在 调用 Unlock 方法 之 前 访问 该 画布 对 象 。 调 用 Tcanvas. Lock 可 以 防 
止 其 他 线程 在 画布 上 进行 绘制 ,直到 对 应 的 线程 调用 了 Unlock 事件 。 嵌 套 调用 Lock 方法 将 
LockCount 属性 增加 ,直到 最 后 所 加 的 锁 被 释放 该 画布 才 会 解锁 。 在 多 线程 应 用 程序 中 ,使 用 
该 方法 可 以 保护 画布 。 所 有 使 用 画布 的 调用 都 必须 调用 Lock 方法 ,在 使 用 画布 之 前 没有 调 
用 Lock 方法 的 线程 可 能 会 导致 潜在 的 错误 。 

2. 使 用 临界 区 

如 果 对 象 没 有 内 建 加 锁 的 功能 ,用 户 可 以 使 用 临界 区 。 临 界 区 就 像 一 个 门 ,一 次 只 允许 一 
个 线程 进入 。 要 使 用 临界 区 ,就 要 创建 一 个 全 局 TeriticalSection 对 象 。 该 对 象 有 两 个 方法 : 
Acquire( 阻 塞 其 他 线程 执行 临界 区 的 代码 ) 和 Release( 释 放 阻 塞 ) 。 

每 个 临界 区 都 和 用 户 要 保存 的 全 局 内 存 相 联系 ,每 个 线程 在 访问 一 个 全 局 内 存 之 前 都 应 
该 首先 调用 Acquire 方法 以 确保 没有 其 他 线程 在 使 用 它 。 访 问 结束 后 ,线程 应 该 调用 Release 
方法 使 其 他 线程 可 以 通过 调用 Acquire 方法 访问 该 全 局 内 存 区 。 

3. 使 用 multi-read-exclusive-write 同步 

当 用 户 使 用 临界 区 保护 全 局 内 存 时 ,每 次 只 有 一 个 线程 可 以 使 用 该 内 存 区 ,这 样 的 保护 可 
能 满足 不 了 用 户 的 要 求 ,特别 是 用 户 要 求 有 一 个 必须 经 常 读 而 很 少 写 的 对 象 或 变量 的 时 候 。 
因为 在 多 个 线程 中 同时 读 一 个 变量 没有 任何 危险 ,而 变量 赋值 则 不 同 。 这 时 可 以 使 用 
TmultiReadExclusiveWriteSynchronizer 类 来 保护 它 , 该 类 类 似 一 个 临界 区 ,但 它 允 许多 线程 
同时 读 取 被 它 保护 的 内 存 。 


12.3.2 执行 线程 对 象 


在 通过 一 个 Execute 方法 实现 了 一 个 线程 类 后 ,用 户 就 可 以 在 自己 的 应 用 中 使 用 该 线程 
类 来 启动 Execute 方法 的 代码 。 要 使 用 线程 ,首先 要 创建 一 个 线程 类 的 实例 。 用 户 可 以 创建 
一 个 立即 启动 的 线程 类 实例 ,只 需 将 构造 函数 的 CreateSuspended 参数 设置 为 false 即 可 。 例 
如 ,下 面 的 代码 将 创建 一 个 立即 启动 的 线程 : 


SecondThread: = TMyThread. Create(false); 


用 户 可 以 创建 一 个 线程 类 的 多 个 实例 来 执行 代码 ,例如 ,用 户 可 以 启动 一 个 现成 的 新 实例 
来 响应 某 个 用 户 的 操作 ,并 且 允 许 每 个 线程 执行 预期 的 响应 。 
1. 重 载 优先 级 
当 在 线程 中 指定 它 所 能 得 到 的 CPU 时 间 时 ,应 在 构造 函数 中 指定 线程 的 优先 级 。 然 而 ， 
如 果 线 程 的 优先 级 依赖 于 线程 何 时 执行 ,就 应 该 创建 可 以 进入 挂 起 状态 的 线程 ,设置 线程 的 优 
先 级 ,然后 开始 执行 程序 ,如 下 面 的 代码 所 示 。 
Var 
SecondProcess: TMyThread: 
//TMYThread is a custom descendant of Thread 


begin 
SecondProcess: = TMyThread. Ceate(True); 
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//Create suspended - secondprocess does not run yet 
SecondProcess. Priority: = tplower; 
//set thepriority to lower then normal 
SecondProcess. Resume; 
//now run the thread 
end; 
2. 启动 和 停止 线程 
一 个 线程 在 运行 前 可 以 被 启动 和 中 止 很 多 次 。 要 临时 中 止 一 个 线程 的 执行 ,可 以 使 用 线 
程 的 Suspend 方法 。Suspend 方法 增加 了 一 个 内 部 的 计数 ,而 需要 恢复 线程 的 时 候 ,用 
Resume 方法 ,并 且 线 程 恢复 是 安全 的 。 用 户 可 以 典 套 使 用 这 两 种 方法 。 线 程 只 有 对 挂 起 的 
操作 都 调用 了 Resume 方法 才 会 恢复 运行 。 
用 户 可 以 调用 Terminated 方法 要 求 一 个 线程 提前 停止 ,该 方法 将 线程 的 Terminated 属 
性 设置 为 True。 
3. 暂 存 线程 
当 用 户 的 应 用 程序 需要 用 到 同一 个 线程 对 象 的 多 个 实例 时 ,用 户 可 以 通过 和 暂 存 线程 以 重 
新 使 用 ,而 不 是 撤销 线程 对 象 然后 重新 创建 来 改善 系统 的 性 能 。 要 和 暂 存 线程 ,用 户 必须 维护 一 
个 已 经 创建 的 线程 的 列表 ,这 个 列表 可 以 由 使 用 线程 的 一 个 对 象 维护 ; 另 一 个 办 法 是 用 户 可 
以 使 用 一 个 全 局 变量 来 暂 存 线程 。 
当 需 要 一 个 新 的 线程 时 ,可 以 使 用 一 个 暂 存 的 线程 或 创建 一 个 新 的 线程 。 
下 面 通过 一 个 例子 来 加 深 对 多 线程 编程 的 认识 。 


12.4 利用 多 线程 排序 


前 面 已 经 介绍 了 多 线程 的 基本 概念 ,并 对 如 何在 Delphi XE8 中 使 用 多 线程 有 了 一 定 的 认 
识 , 为 了 了 解 多 线程 技术 具体 是 如 何在 Delphi XE8 中 实现 的 ,下 面 将 给 出 一 个 多 线程 的 例子 ， 
通过 对 程序 的 实现 部 分 的 讲解 加 深 对 多 线程 编程 的 了 解 。 下 面 介 绍 具体 的 开发 过 程 。 

1. 界面 设计 

向 窗 体 中 增加 三 个 Label 三 个 PaintBox 和 一 个 Button 控件 ,如 图 12-3 所 示 。 


利用 线程 排序 


图 12-3 在 排序 前 随机 数 显 示 界 面 
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2. 程序 设计 
1) 线程 单元 
按照 12. 2 节 介绍 的 方法 添加 多 线程 类 TSortThread 及 其 他 相关 类 。 代 码 如 下 。 


unit SortThds; 
interface 
uses 
Classes, Graphics, ExtCtrls; 
type 
PSortArray = “TSortArray; 
TSortArray = array[0. .MaxInt div SizeOf(Integer) - 1] of Integer; 
// 定 义 TSortThread 类 
TSortThread = class(TThread) 
private 
FBox: TPaintBox; 
FSortArray: PSortArray; 
FSize: Integer; 
FA, FB, FI, FJ: Integer; 
Procedure DoVisualSwap; 
protected 
Pprocedure Execute; override; 
procedure VisualSwap(A, B, I, J: Integer); 
procedure Sort(var A: array of Integer); virtual; abstract; 
public 
constructor Create(Box: TPaintBox; var SortArray: array of Integer); 
end; 


// 定 义 TBubbleSort 类 ,该 类 是 TSortThread 的 派生 类 
TBubbleSort = class(TSortThread) 
protected 
procedure Sort(var A: array of Integer); override; 
end; 
// 定 义 TSelectionSort 类 ,该 类 是 TSortThread 的 派生 类 
TSelectionSort = class(TSortThread) 
protected 
procedure Sort(var A: array of Integer); override; 
end; 
// 定 义 TQuickSort 类 ,该 类 是 TSortThread 的 派生 类 
TQuickSort = class(TSortThread) 
protected 
procedure Sort(var A: array of Integer); override; 
end; 
// 画 线 过 程 
Procedure PaintLine(Canvas: TCanvas; I, Len: Integer); 
implementation // 实 现 部 分 
procedure PaintLine(Canvas: TCanvas; I, Len: Integer); 
begin 
Canvas. PolyLine([Point(0, I * 2 + 1), Point(Len, I * 2 + 1)]); 
end; 
// 排 序 线程 
constructor TSortThread. Create(Box: TPaintBox; var SortArray: array of Integer); 
begin 
FBox : Box; 
FSortArray : = @SortArray; 
FSize := High(SortArray) — Low(SortArray) + 1; 
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FreeOnTerminate : = True; 
inherited Create(False); 
end; 


procedure TSortThread. DoVisualSwap; 
begin 
with FBox do 
begin 
Canvas. Pen. Color := clBtnFace; 
PaintLine(Canvas, FI, FA); 
PaintLine(Canvas, FJ, FB); 
Canvas. Pen. Color := clRed; 
PaintLine(Canvas, FI, FB); 
PaintLine(Canvas, FJ, FA); 
end; 
end; 


procedure TSortThread. VisualSwap(A, B, I, J: Integer); 
begin 
ER := A; 
FB:= B; 
FEI := 工 
BE:= J; 
Synchronize(DoVisualSwap); 
end; 
// 当 线程 开始 时 ,此 过 程 被 执行 
Procedure TSortThread. Execute; 
begin 
Sort(Slice(FSortArray ’, FSize)); 
end; 
// 编 写 三 个 线程 ,这 是 本 程序 的 重点 .首先 编写 TBubbleSort 线程 的 排序 方法 : 
// 冒 泡 排序 
Procedure TBubbleSort. Sort(var A: array of Integer); 
var 
1, J, T: Integer; 
begin 
for I := High(A) downto Low(A) do // 关 键 分 析 1 
forJ := Low(A) to High(A) - 1 do 
if A[J] > A[J + 1] then 
begin 
VisualSwap(A[J], A[J + 1], J, J + 1); 
T:= A[J]; 
Ra[I] := RMI + 1]; 
A[J + 1] := T; 
if Terminated then Exit; 
end; 


end; 
// 选 择 排序 
Procedure TSelectionSort. Sort(var A: array of Integer); 
var 

1, J, T: Integer; 
begin 

for 工 : = Low(A) toHigh(A) ~- 1 do 

forJ := High(A) downtoI + 1do 
证 A[I] > A[J] then 


第 12 章 ”多 线程 程序 设计 


315 


begin 
VisualSwap(A[I], A[J], I, J); 
se MT 
A[I] := A[J]; 
A[J] := T; 
if Terminated then Exit; 
end; 
end; 
// 快 速 排序 


Procedure TQuickSort. Sort(var A: array of Integer); 


Pprocedure QuickSort(var A: array of Integer; iLo, iHi: Integer); 


var 
Lo, Hi, Mid, T: Integer; 
begin 
Lo iLo; 
Hi ii; 
Mid := A[(Lo + Hi) div 2]; 
repeat 


while A[Lo] < Mid do Inc(Lo); 
while A[Hi] > Mid do Dec(Hi); 
if Lo<= Hi then 
begin 
VisualSwap(A[Lo], A[Hi], Lo, Hi); 
T:= AlLo]; 
A[Lo] := A[Hi]; 
A[Hi] := T; 
Inc(Lo); 
Dec(Hi); 
end; 
until Lo > Hi; 
if Hi > iLo then QuickSort(A, iLo, Hi); 
if Lo < iHi then QuickSort(A, Lo, iHi); 
if Terminated then Exit; 
end; 
begin 
QuickSort (A, Low(A), High(A)); 
end; 
end. 


2) 窗 体 单元 


unit ThSort; 
interface 
uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, 
ExtCtrls, StdCtrls; 
type 
TThreadSortForm = class(TForm) 
StartBtn: TButton; 
BubbleSortBox: TPaintBox; 
SelectionSortBox: TPaintBox; 
QuickSortBox: TPaintBox; 
Labell: TLabel; 
Label2: TLabel; 
Label3: TLabel; 
procedure BubbleSortBoxPaint(Sender: TObject); 


Forms, Dialogs, 
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Procedure SelectionSortBoxPaint(Sender: TObject); 
Procedure QuickSortBoxPaint(Sender: TObject); 
Pprocedure FormCreatel( Sender: TObject); 
procedure StartBtnClick(Sender: TObject); 
private 
ThreadsRunning: Integer; 
procedure RandomizeArrays; 
Procedure ThreadDone( Sender: TObject); 
public 
procedure PaintArray(Box: TPaintBox; const A: array of Integer); 
end; 
var 
ThreadSortForm: TThreadSortForm; 
implementation 
uses SortThds; 
{$R x .dfm} 
type 
PSortArray = “TSortArray; 
TSortArray = array[0..114] of Integer; 
var 
ArraysRandom: Boolean; 
BubbleSortArray, SelectionSortArray, QuickSortArray: TSortArray; 
// 用 来 给 PaintBox 组 件 画 上 线条 
procedure TThreadSortForm. PaintArray(Box: TPaintBox; const A: array of Integer); 
var 
I: Integer; 
begin 
with Box do 
begin 
Canvas. Pen. Color := clRed; 
for I := Low(A) to High(A) do PaintLine(Canvas, I, A[1]); 
end; 
end; 
procedure TThreadSortForm. BubbleSortBoxPaint (Sender: TObject); 
begin 
PaintArray(BubbleSortBox, BubbleSortArray); 
end; 
Procedure TThreadSortForm. SelectionSortBoxPaint (Sender: TObject); 
begin 
PaintArray(SelectionSortBox, SelectionSortArray); 
end; 
procedure TThreadSortForm. QuickSortBoxPaint(Sender: TObject); 
begin 
PaintArray(QuickSortBox, QuickSortArray); 
end; 
procedure TThreadSortForm. FormCreatel( Sender: TObject); 
begin 
// 调 用 了 RandomizeArrays 过 程 ,使 出 现 的 线条 无 序 化 
RandomizeArrays; 
end; 
Procedure TThreadSortForm. StartBtnClick(Sender: TObject); // 关 键 分 析 2 
begin 
RandomizeArrays; 
ThreadsRunning := 3; 
with TBubbleSort. Create( BubbleSortBox, BubbleSortArray) do 
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OnTerminate : = ThreadDone; 
with TSelectionSort. Create( SelectionSortBox, SelectionSortArray) do 
OnTerminate : = ThreadDone, 
with TQuickSort. Create(QuickSortBox, QuickSortArray) do 
OnTerminate : = ThreadDone; 
StartBtn. Enabled : = False; 
end; 
Pprocedure TThreadSortForm. RandomizeArrays; // 关 键 分 析 3 
var 
I: Integer; 
begin 
if not ArraysRandom then 
begin 
Randomize; 
for I := Low(BubbleSortArray) to High(BubbleSortArray) do 
BubbleSortRrray[I] := Random(170); 
SelectionSortArray : = BubbleSortArray; 
QuickSortArray : = BubbleSortArray; 
ArraysRandom : = True; 
Repaint; 
end; 
end; 
procedure TThreadSortForm. ThreadDone( Sender: TObject); 
begin 
Dec(ThreadsRunning); 
if ThreadsRunning = 0 then 
begin 
StartBtn. Enabled : = True; 
ArraysRandom : = False; 
end; 
end; 
end. 


3. 程序 分 析 


程序 执行 后 运行 结果 如 图 12-4 所 示 ,在 整个 排序 过 程 中 ,快速 排序 执行 速度 最 快 ,然后 是 


选择 排序 , 冒 泡 排序 过 程 所 需 执行 时 间 最 长 。 


利用 线程 排序 


置 泡 排序 选择 排序 快速 排序 


图 12-4 ”随机 数 排序 后 显示 界面 
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关键 分 析 1: 这 里 用 到 的 high 函数 用 来 得 到 数组 最 大 下 标 值 ,如 果 是 空 数组 , 则 返回 一 1， 
它 的 声明 如 下 : 


Function high(x); 


至 于 low 函数 则 与 之 相反 ,用 来 得 到 数组 的 最 小 下 标 值 。 
关键 分 析 2: StartBtn 按钮 的 事件 处 理 程序 ,调用 ThreadDone 过 程 对 线条 进行 排序 。 
关键 分 析 3: RandomizeArrays 过 程 随机 画 出 长 短 的 线条 。 


小 结 


本 章 首先 介绍 了 线程 的 一 些 概念 ,线程 是 程序 中 的 一 个 执行 线索 ,线程 可 以 在 一 个 程序 中 
同时 运行 。 同 步 化 是 一 种 避免 由 于 同时 访问 同一 数据 而 造成 数据 混乱 的 方法 。 每 个 线程 都 有 
一 个 相关 的 优先 级 值 ,在 多 个 线程 争夺 执行 时 ,高 优先 级 的 线程 有 优先 权 。 接 着 重点 介绍 了 利 
用 Delphi XE8 向 导 创 建 线程 的 过 程 , 最 后 举例 说 明了 线程 编程 的 应 用 。 通 过 对 本 章 的 学 习 ， 
读者 应 该 对 线程 的 概念 和 Delphi XE8 中 的 线程 编程 有 初步 的 了 解 。 


习 题 


12-1 使 用 多 线程 的 优点 和 缺点 是 什么 ? 

12-2 利用 Thread 类 来 编写 多 线程 的 一 般 步骤 是 什么 ? 

12-3 如 何 使 线程 同步 ? 

12-4 简 述 线程 的 基本 概念 。 

12-5 简 述 线程 的 优先 级 。 

12-6 ”如 何 终 止 线程 ? 

12-7 利用 多 线程 技术 模拟 多 个 小 球 移动 的 过 程 ,每 个 小 球 为 一 个 线程 。 
12-8 利用 多 线程 技术 实现 网 络 聊天 程序 的 设计 。 


Android 应 用 程序 设计 


13.1 Delphi XE8 Android 平台 的 搭建 


13.1.1 安装 Android SDK 和 Android NDK 
在 开发 Android 之 前 需要 先 安装 好 Android SDK 和 Android NDK ,并 且 在 Delphi IDE 
中 设 定好 开发 环境 。 
在 安装 XE8 时 会 同时 安装 Android SDK 和 Android NDK ,需要 在 Delphi IDE 中 设 定 
Android SDK 和 Android NDK 的 安装 路 径 , 以 便 让 IDE 能 够 找到 相关 的 档案 和 工具 。 
例如 ,本 书 把 Android SDK 安装 在 如 图 13-1 所 示 路 径 。 
[ D:\Program Files (x86)\Embarcadero\Studio\16.0\PlatformSDKs\android-sdk-windows 


13-1 Android SDK 安装 路 径 


Android NDK 安装 在 如 图 13-2 所 示 路 径 。 


[ Di\Program Files (x86)\Embarcadero\Studio\16,0\PlatformSDKs\android-ndk-r9c 


图 13-2 Android NDK 安装 路 径 


Android NDK 路 径 下 文件 如 图 13-3 所 示 。 


GO 


ET 


HB ” 。 外 六 到 谨 中 ” 。 共事” 新 建文 件 关 


图 13-3 Android NDK 路 径 下 文件 
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Android SDK 路 径 下 文件 如 图 13-4 所 示 。 
pe ee > | 


Os ogram Files x86N\Embarcadero\Studio\16.0\PlatformSDKs\android-sdk-windpws ~ [$+ 过 二 sn 


上 文件 (站 ”编辑 (E) 查看 (V) 工具 (T) 帮助 (H) 


组 织 ” 。 包 全 到 声 中 ” 。 共享 ” 。 新 建文 件 夫 TT 
入 收 襄 夫 二 名称 人 Fa 
如 下 载 add-ons 
国 寺 面 hb build-tools 
党 最 5 访问 的 位 辕 Bh platforms 
platform-tools 
库 samples 
局 
引 sources 
a system-images 
加 图 片 
temp 
-a tools 
本 迅雷 下 载 


D Manager.exe 
动 言 乐 加 SDK Manager.exe 
sDK Readme. pet 


网 RE 组 
顺 计算 机 
入 Win7 CO 
ca 本 地 辜 盘 (Dj ; 
12 个 对 象 
' 
上 J 


图 13-4 Android SDK 路 径 下 文件 


安装 完 Android SDK 之 后 就 可 以 执行 Android SDK 管理 员 (Android SDK Manager) ,以 
便 再 用 它 安装 开发 要 用 的 Android SDK 版 本 。 本 书 使 用 的 手机 平台 是 HUAWEI H60-L11 
Android 版 本 4.4.2, 如 图 13-5 所 示 。 


型 9 H60-L11 
版 本 号 H60-LITV100RO01CHNC008316 
处 理 器 Hisilieon Kirin 920 
运行 内 存 3.068 


手机 存储 

分 庆幸 1080x 1920 

Android 版 本 442 

基带 版 本 212320000031 
3103000001gbf25al0diry 

内 核 版 本 ndroid@localhost #1 


图 13-5 手机 型 号 及 Android 版 本 信息 
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运行 Android SDK 管理 员 (Android SDK Manager) 安 装 Android SDK 4. 4. 2 版 如 图 13-6 
所 示 。 


Android SDK Manager S|®| x] 
Packages Tools 
SDK Path: DAProgram Files (x86]\Embarcadero\Studio\16.0\PlatformSDKs\android-sdk-windows 
packages 
| 而 -Name Mpls Raw |. Seb 区 
4 回扣 Tools 
回 #f Android SDK Tools 24.3.3 区 Installed 
回 Android SDK Platform-tools 22 本 Installed 
回 Android SDK Build-tools 22.0.1 本 Installed 
回 # Android SDK Build-tools 22 区 Installed 
加 Android SDK Build-tools 2112 苞 Installed 
转交 Android SDK Build-tools 20 本 Installed 
加 Android SDK Build-tools 191 区 Installed 
贺 忆 Tools (Preview Channel) 三 
回忆 Android M (ApI 22, MNC preview) 
， 回 [Android 5.1.1 (API22) 
b 回 Android 5.0.1 (API 21) 
» 加 Ca Android 4.4W.2 (API 20) 
4 辆 Ca Android 4.4.2 (API19) 
国明 SDK platform 19 4 区 Installed 
国 世 Samples for SDK 19 6 本 Installed 
国 转 ARM EABI v7a System Image 19 3 匡 Installed 
贺 辑 Intel x86 Atom System Image 19 3 区 Installed | 
团 御 Google 4APIs (x86 System jmage) 19 14 Notinstalled 
团 筛 Google APis (ARM System Image) 19 14 DNotinstaled 
国 需 Gess Development Kit Preview 19 11 Not installed 
国 回 Sources for Android SDK 19 2 区 Installed 
回忆 Android 4.3.1 (API 18) - 
Show 园 Updates/New 园 Installed Select New or Updates Install 3 packages.。 | 
加 Obsolete Deselect Al Delete 5 packages,., | 
E | Ow 
Downloading Google Apis (x86 System Image), Android API 19, revision 14 (2%, 483 KiB/s, 6 minutes lefl) 


13-6 ”安装 Android SDK 版 本 


13.1.2 Android SDK 下 载 问题 解决 
在 环境 搭建 过 程 中 ,安装 packages 时 可 能 会 出 现 如 图 13-7 所 示 的 错误 ,网 络 拒 绝 访问 。 


Android SDK Manager Log 图 


Fetching URL: http://dl.google.com/android/repository/sys-img/android/sys-img.xml 
Failed to fetch URL 
http://dl.google.com/android/repository/sys-img/android/sys-img.xml, reason: 
HttpHostConnect Connection to http://127.0.0.1:9666 refused 

Fetching URL: 
http://dl.google.com/android/repository/sys-img/android-wear/sys-imgxml 

Failed to fetch URL 

http://dLgoogle comyandroid/repository/sys-img/android-wear/sys-img xml reason: 
HttpHostConnect Connection to http://127.0.0.1:9666 refused 


Fetching URL: 口 
httpV/dlgoogle.coryandroid/repository/sys-img/android-twsys-imgxml | 
Failed to fetch URL dd 


Done loading packages. 


图 13-7 网 络 拒绝 访问 
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问题 解决 步骤 如 下 。 

(1) 先 修改 hosts(C:\Windows\System32\drivers\etc\hosts) 文 件 只 读 属 性 。 找 到 该 文 
件 后 ,需要 对 该 文件 进行 修改 ,可 能 有 些 读者 会 发 现 修改 不 了 该 文件 ,这 可 能 是 因为 hosts 文 
件 被 设置 成 了 只 读 属 性 ,将 其 只 读 属性 去 掉 即 可 ,如 图 13-8 所 示 。 


= 


常规 ”| 安全 [详细 信息 [以 前 的 版 本 


| hosts 
文件 类 型 : 文件 
据 述 hosts 
位 置 : C:\Windows\Systen32\drivers\ete 
大 小 ; 1.23 IB (1,267 字 节 ) 


占用 空间 《4.00 王 &,098 字 节 ) 将 “只 读 " 选 项 前 
人 时间， 2009F7 月 14 日 ，10.34. 风 习 取消 挤 ， 就 
创建 时 间 : 。 2009 年 7 月 14 日 ， 03 久 


l hosts 文 件 
修改 时 间 2 伍 行 操作 了 
访问 时 间 : 。 2014 年 2 月 8 0:27:58 


mt [ER Paw Eee 


世 枉 二 己 3N 一 ] E 包 


13-8 ”修改 hosts 文件 的 属性 


再 次 用 记事 本 打开 hosts 文件 ,在 其 尾部 空白 处 添加 下 列 代码 ,保存 即 可 。 


井 Google 主页 
203. 208. 46. 146 www. google. com 


74. 125. 113. 121 developer. android. com 
# 更 新 的 内 容 从 以 下 地 址 下 载 

203. 208. 46. 146 dl. google. com 

203. 208. 46. 146 dl-ssl. google. com 


添加 代码 后 如 图 13-9 所 示 。 

(2) 在 “开始 ”菜单 里 找到 已 经 安装 好 的 Embarcadero RAD Studio XE8 文件 夹 下 的 
Android Tools, 单 击 会 弹出 Android SDK Manager 窗口 。 再 选择 该 窗口 中 的 Tools | 
Options 选项 ,如 图 13-10 所 示 。 在 弹出 窗口 中 把 https 的 资源 获取 方式 强制 换 成 http 获取 的 
方式 ,如 图 13-11 所 示 。 

在 这 里 需要 注意 的 是 : 如 果 还 是 无 法 成 功 更 新 Android SDK, 有 以 下 三 种 针对 不 同 问题 
的 解决 方案 。 


# This is a sanple HOSTS file used by Microsoft TCP/IP for Windows. 


# This file contains the nappings of IP addresses to host nanes. Each 

# entry should be kept on an individual line. The IP address should 

# be placed in the first column folloved by the corresponding host nane. 
# The IP address and the host nane should be separated by at least one 
# space. 

让 


# Additionally, connents (such as these) may be inserted on individual 
# lines or folloving the machine nane denoted by a ’#” synbol. 
中 


站 For exanple: 
中 


六 102. 54. 94.97 rhino. acme. com # source server 
# 38.25.63.10 x. acme. com # x client host 


# localhost nane resolution is handled within DNS itself. 
# 2:1 localhost 

#Google 主 页 

203. 208. 46. 146 www. google. com 


了 4.125.113. 121 developer. android. com 
葛 新 的 内 容 从 咏 下 通 地 下 

203. 208. 46. 146 dl. google. com 

203. 208. 46. 146 dl-ssl. google. con 


图 13-9 修改 hosts 文件 内 容 


dio\16.0\PlatformSDKs\android-sdk-windows 


Apl Rev, Status 


2433 区 Installed 
fF Android SDK platform-tools 22 本 Installed 
Af Android SDK Build-tools 22.0.1 区 Installed 
fF Android SDK Build-tools 22 ” 匠 Installed 
六 Android SDK Build-tools 2112 区 Installed 
有 f Android SDK Build-tools 20 区 Installed 
并 Android SDK Build-tools 19.1 层 Installed 
[3 Tools (Preview channel 

[a Android M (API 22, MNC preview) 

[Ca Android 5.1.1 (ApI 22) 

b 加 Ca Android 5.0.1 (Ap 21) 

[3 Android 44W.2 (API 20) 

[Ca Android 4.4.2 (API19) 


SDK Platform 19 4 区 Installed 

£ Samples for SDK 19 6 区 Installed 

| ARM EABI v7a System image 19 3 区 Installed 
| Intel x86 Atom System Image 19 3 屈 Installed 
| Google APls (x86 System Image) 19 14 本 Installed 
| Google APIs (ARM System Image) 19 14 本 Installed 
Glass Development Kit Preview 19 11 七 Installed 

] Sources for Android SDK 19 2 本 Installed 


| 
| 


Ca Android 4.3.1 (API18) 


Show I Updates/New 园 Installed Select New or Updates 


Obsolete Deselect Al 


医 


nstall 2 packages.。 
Delete packages... 


Done loading packages. 


图 13-10 Android SDK Manager 窗口 


到 (9 二 
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『 
总 AndroidsDkMansger -stng SB， 攻 梧 


{TTP Proxy Server 127.0.0.1 
HTTP Proxy Port 8580 


Manifest Cache 
Directory: C\Users\Administrator\.android\cache 
Current Size: 928 KiB 


园 Use download cache Clear Cache 


DAsk before restarting ADB 
回 Enable Preview Tools 


13-11 Android SDK Manager-Settings 


(1) 出 现 Failed to fetch URL 错误 提示 : 


Failed to fetch URL 

https://dl - ssl, google. com/android/repository/repository - 6. xml, reason: Connection to 

https://dl - ssl. google. com refused Failed to fetch URL 

http://dl - ssl. google. com/android/repository/addons _ list - 1. xml, reason: Connection to 

http://dl - ss1. google. com refused Failed to fetch URL 

https://dl - ssl. google. com/android/repository/addons _ list — 1. xml, reason: hostname in 

certificate didn't match: != 更 新 ADT 时 无 法 解析 

https://dl - ss1. google. com/android/eclipse 

解决 方案 是 : 打开 C:\Windows\System32\drivers\etc 文件 夹 ,在 hosts 文件 最 后 增加 一 
行 : 74. 125. 237. 1 dl-ssl. google. com 即 可 ,修改 好 之 后 保存 。 

(2) 将 hosts 文件 修改 后 ,虽然 出 现 了 新 的 API, 而 且 安装 过 程 速 度 也 不 慢 ,但 下 载 途 中 出 
现 HTTP:500 问题 ,从 而 使 得 下 载 中 断 。 

解决 方案 是 : 由 于 是 服务 器 端的 问题 ,所 以 首先 下 载 代理 软件 (百度 搜索 即 可 )。 代 理 软 
件 运 行 后 获得 代理 地 址 和 端口 ,如 代理 地 址 为 127. 0. 0. 1 ,端口 号 为 8580。 所 以 设置 Android 
SDK Manager-Settings 窗口 中 代理 地 址 为 127. 0. 0. 1 ,端口 号 为 8580。 如 图 13-11 所 示 ,最 后 
成 功 继续 更 新 。 

(3) 出 现 这 样 的 情况 : 虽然 SDK 能 下 载 ,但 是 最 后 一 个 包 都 没有 安装 成 功 。 

解决 方案 是 : 同样 的 操作 ,打开 Android SDK Manager 界面 ,依次 单 击 Tools | Settings | 
Clear Cache 之 后 就 可 以 成 功 继续 更 新 了 。 


13.1.3 Android 环境 配置 


接着 回 到 XE8 的 IDE 中 ,选择 Tools | Options 命令 ,接着 选择 Options 对 话 框 中 的 SDK 
Manager 选项 ,如 图 13-12 所 示 。 

我 们 需要 建立 一 个 Android 的 开发 环境 ,以 便 在 稍 后 开发 Android App 时 使 用 这 个 
Android 的 开发 环境 。 在 这 个 Android 的 开发 环境 中 需要 定义 使 用 的 Android SDK 版 本 ， 
Android SDK 和 Android NDK 的 安装 路 径 。 
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< | 


SDK versions: Propertes 


i = || eo | ii 
Co | ome |]( re |] 


图 13-12 ”Options 对 话 框 


单 击 图 13-12 中 的 Add 按钮 ,在 如 图 13-13 所 示 的 Add a New SDK 对 话 框 中 选择 
Android 平台 ,再 从 Select an SDK version 中 选择 Add New 选项 ,如 图 13-13 所 示 。 


Mab er—— 
Select a platform: 
[oe | 
Select a profie to connect: 
[ = 
Select an SDK version: 
辐 Make the selected SDK active 

| 


13-13 Add a New SDK 对 话 框 


接着 会 出 现 一 个 Create a new Android SDK 对 话 框 , 设 定 Android SDK 和 Android NDK 
的 安装 路 径 , 如 图 13-14 所 示 。 

在 Android SDK Base path 文本 框 中 输入 Android SDK 安装 路 径 , 并 且 在 Android NDK 
Base path 文本 框 中 输入 Android NDK 的 安装 路 径 。 请 注意 在 没有 正确 设 定 Android SDK 
和 Android NDK 的 安装 路 径 时 ,这 两 个 文本 框 的 最 右 方 都 有 警示 符号 。 
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Fc 
G create a new Android spx 0 22) 


Setting Android Development Kit (SDK) 


Android SDK is required in order to compile, deploy and run Android applications. Please speGfy the root 
cirectories of the SDK and the NDK to continue, The Java Develpment Kit is also required and should be 
installed in your system. It will be detected automatically. 


Android SDK Base path (e.g. .Pocuments\Embarcadero\studio\15.0\PlatformsDKs\adt+ 
D:\Program Fies (x86)\Embarcadero\Studio\16.0\PlatformSDKs\android-sdk-windows 加 
Android NDK Base path (e.g. .Documents\Embarcadero\Studio\16.0\PlatformsDKs\andr 
D:\Program Files (x36)\Embarcadero\Studio\16.0\PlatformSDKs\android-ndk-r9c 加 


Java installation path (e.g. c:\Program Fies\Java\idk1.7.0_25): 
D:\Program Files (x86) Uava\idk1.7.0_71 国 


13-14 Create a new Android SDK 对 话 框 1 


- 且 正 确 设 定 了 Android SDK 和 Android NDK 的 安装 路 径 , 这 两 个 文本 框 的 最 右 方 的 
警示 符 就 会 消失 。 
接着 单 击 Next 按钮 ,就 可 以 如 图 13-15 所 示 看 到 一 个 Create a new Android SDK 对 话 
杠 。 正 确 地 从 Android SDK 和 Android NDK 的 安装 路 径 中 ,找到 所 有 需要 的 设 定 和 工具 ,最 
后 可 以 在 SDK API-Level 列表 框 中 选择 Android SDK 版 本 ,如 图 13-15 所 示 。 


[ET 区 本 


Setting Android tools locations 


RAD Studio detects automatically the location of al the required Android tools, Please, check that the 
folowng information is correct. You can modify any path or fle locaton before you contnue. 


D:\Program Fles (x86) Embarcadero\Studio\16.0\PlatformsDKs\android-ndk-r9c\to [ss] 


gdbserver location (e.g. NOK_BASE_PATH\prebuit\android-arm\gdbserver): 
D:\Program Files (x36)\Embarcadero\Studio\16,0\PlatformsDks\android-ndk-r9c\pr [os] 


NDK API location (e.g. NDK_BASE_PATH\platforms\android-14): | 
D:\Program Fies (x86)\Embarcadero\Stucio\16.0\PlatformsDKs\android-ndk-rsc\pk [aa 


Deiphi NDK Library path (e.g NDK_BASE_PATH\sources\por-sti\gnu -bstdc++\4.8 肖 
D:\Program Fies (x86)\Embarcadero\Studio\16,0\PlatformSDKs \android-ndk-r9c pk [1] 


C++ Builder NDK Library path (e.g. NDK_BASE_PATH\platforms\android-14\arch-ar 
D:\Program Fies (x36)\Embarcadero\Stucio\15.0\PlatformsDKs\android-ndk-rSc\pk [...] 二 


SDK AplLevel: 


[ancrod-19 Ss 有 - 


图 13-15 Create a new Android SDK 对 话 框 2 


最 后 单 击 Finish 按钮 完成 Android 的 设 定 。 


第 13 章 Android 应 用 程序 设计 上 327 


13. 2 


13.2.1 Hello World 程序 


简单 的 XE8 for Android APP 


在 成 功 搭建 安 卓 平台 之 后 ,需要 安装 开发 使 用 的 Android 手机 的 驱动 程序 ,才能 让 XE8 
IDE 部 署 和 测试 。 读 者 需要 到 手机 官方 网 站 下 载 , 本 文 这 里 使 用 的 是 HUAWEI H60-L11, 因 
此 需要 到 HUAWEI 相关 的 网 站 下 载 驱 动 程序 ,安装 好 之 后 可 以 在 本 机 的 设备 管理 器 中 看 到 ， 


如 图 13-16 所 示 。 


接 下 来 创建 一 个 简单 的 “Hello World” 应 用 ,首先 要 建立 一 个 Multi-Device Application 项 


目 , 如 图 13-17 所 示 。 


图 13-16 安装 手机 驱动 程序 


GG New ktems 其 喇 ] 
2) Delphi Projects 有 Dseard 
ActveX 
局 Datasnap Server 一 一 区 园 
Dephi Fies = 
Dunit Console Control Panel Dynamic4nk FireMonkey 
EMS Applcation Applcation Lbrary Metropolis,.. 
Inheritable Items 网 
吉 设备 管理 笑 el Intraweb 围 日 [ey 一 起 
Mulb -Dewce Projects 
文件 (损人 F(A) ”可 看 (V) ”帮助 (H) WebBroker MDI MultDevice | Package 。 Resource DLL 
Applcaton | Apphcation Wizard 
各 哆 | 加 | 加 | 回回 | 天 | 区 股本 本 me 
4 而 UCEO <^ 站 Design Projects 区 四 | 芭 
4 枫 Android Phone 本 hs sol Service VOL Forms VCL Metropolis 
覃 Android Composite ADB Interface | | | hd AR 
目 Bluetooth 无 二 到 收发 里 | 
昌 DVD/CD-ROM 驱动 器 
IDE ATA/ATAPI 控制 器 
队 安全 设备 
种 便 % 设 备 
Ce J] rw 
上 = | 


图 13-17 Moulti-Device Application 


选择 建立 Blank Application 项 目 , 如 图 13-18 所 示 。 


GG Multi-Device Application 


一 ee 


Multi-Device Application 


Select a Multi-Device Application type. 


ee Apiaton Tr son offpont for 5 Geatinga completely 
(Custom Mult-Device Appical 


ES 
= = 


Blank Appication 


图 部 


Ge )] Ee) Cu] 


图 13-18 选择 Blank Application 
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把 设计 图 形 界面 的 样式 选择 为 Android 模式 ,如 图 13-19 所 示 。 
这 时 需要 选择 一 下 Android 手机 的 屏幕 大 小 ,这 对 分 辩 率 是 有 影响 的 ,请 根据 开发 的 目标 
环境 而 定 。 因 为 平台 HUAWEI H60-L11 是 5 英寸 屏 , 在 这 里 选择 的 是 5 英寸 屏 , 如 图 13-20 


所 示 。 


图 13-19 设计 图 形 界面 的 样式 


View: [区 eat 日 


[oe 


A surface Pro 
起 windows Desktop 
国 os x pesktop 


Android 10" Tablet 
Android 3.5" Phone 
Android 4 Phone 
Android 7° Tablet 
Google Glass 

LL 


图 13-20 Android 5’Phone 


接着 在 项 目的 窗 体 中 放 入 两 个 按钮 ,如 图 13-21 所 示 。 控 制 组 件 也 会 切换 为 Android 的 
风格 。 


古语 ndroid ~ O neo-ul -日 和 -中 -9 
| 其 


View: Androd 5° Phone ~ 紧 | 够 


Hello World 


请 点 选 我 ! 


Terminate 


图 13-21 Hello World 应 用 界面 


在 IDE 的 项 目 管理 器 中 确定 目标 平台 中 的 Android 平台 ,这 是 运行 中 的 平台 (用 粗 体 表 
示 ) ,如果 Android 平台 不 是 运行 中 的 平台 ,那么 请 使 用 鼠标 双击 它 , 让 它 成 为 运行 中 的 平台 。 
接着 开启 Android 节点 下 的 Target 子 节点 ,如 果 PC 上 已 经 安装 了 Android 手机 的 驱动 程序 ， 
而 且 Android 手机 已 经 连接 到 PC 上 ,那么 应 该 可 以 在 Target 子 节点 中 看 到 Android 手机 。 
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这 里 使 用 的 是 H60-L11, 如 图 13-22 所 示 。 如 果 没 有 看 到 ,可 以 在 Target 子 节点 上 右 击 鼠标 ， 
再 从 菜单 中 选择 Refresh 选项 ,这 时 手机 就 应 该 会 显示 在 Target 子 节点 中 了 。 
在 主 表单 中 的 “请 点 选 我 1" 按 钮 中 编写 如 下 的 代码 。 


procedure TForm1. Button1Click( Sender: TObject) ;var 
sMessage: String; 


begin 
sMessage: = 'Hello'; 
SMessage: = sMessage + 'World!'; 
ShowMessage( sMessage); 

end; 

end. 


可 以 看 到 一 个 APP 项 目 和 代码 成 功 地 在 Android 手机 中 执行 ,如 图 13-23 所 示 。 


Projectl.dproj - Project Manager nn 
部 - 际 | 隐 国 *| 

已 联 殖 | 演 - 晶 | 区- 条 ~ 

File 

ED rrueee 有 


由 -hh Build Configurations (Debug) 
T 和 Target platforms (Android) 

| | 32-bit windows 
| 64-bit windows 
| 

| 

| 

| 


加 


| 后 局 Android - Android SDK 24.3.3 32bit 
是 -高 | Target 
-上 [CE 


| 由- 高 Configuration 


Projectl.dpro...| Model View| Data Explorer| Multi-Device . 


图 13-22 手机 平台 状态 图 13-23 ”Hello World 成 功 运 行 界面 


13.2.2 登录 界面 模拟 程序 


首先 要 建立 一 个 Multi-Device Application ,如 图 13-24 所 示 。 

选择 Multi-Device Application 选项 ,然后 选中 Header/Footer 选项 ,最 后 单 击 OK 按钮 ， 
如 图 13-25 所 示 。 在 弹出 的 “浏览 文件 夹 ? 对 话 框 中 选择 项 目 文件 保存 的 路 径 ,然后 单 击 “ 确 
定 ” 按 钮 ,如 图 13-26 所 示 。 

到 此 新 建 了 一 个 项 目 , 如 图 13-27 所 示 , 里 面 有 一 个 窗 体 文件 。 窗 体 中 有 一 个 标题 栏 , 文 
字 内 容 可 自己 修改 。 

把 设计 的 图 形 界面 的 样式 选择 为 Android 模式 。 这 时 需要 选择 Android 手机 的 屏幕 大 
小 ,这 对 分 辩 率 是 有 影响 的 ,要 根据 开发 的 目标 环境 而 定 。 在 这 里 选择 的 是 5 英寸 屏 ,如 图 13-28 
所 示 。 
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G New ltems 


Console 。 Control Pane Dynamicink 


Mult-Device Projects 
WebEroker 
WebServices 

] Design Projects 
Other Fies 

Unit Test 

Web Doauments 


Multi-Device Application 
Select a Multi-Device Application type. 


lHello World XE8 - 
Header/Footer Header/Footer with Sogn es) 
Navigaton database 
| databaseaccess 
ED PP : databasesaited 
he Peader /Footer with Navigation Template congits of 3 Fender /roolear end datasnan = 
Footer /Toolbar with a TabControl with two Tabs for navigation. You can also MM i 上 


ad more Tabs to your applcation. 
文件 夹 @): 2Losin XE8 


| Ce Eee Ew dd) ET 50 亡 本 [上 聘 
图 13-25 Header/Footer 项目 13-26 保存 路 径 
二 :PD 上 间 | 嘲 生硬 二 android -NO neo-ul 
僵 Welcome page 王 j vx 
得" 归 - ~ ~ 天 
起 wndows > Vew: WM Master Ml 
The 


图 13-27 窗 体 
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View: © Master 国 
| 网 Master 
Te 
起 surface Pro 
二 windows Desktop 
国 osxDesktop 
DO Pad 
口 Phone3.s 
口 Phone 了 
口 Phone 47 
口 phone 55 
Style: Androd = Android 10" Tablet 
mm 入 Wndows Android 3.5" Phone 
国 osx Ce Android 4° Phone 
0 os [androd 5-Phone 
id | Android 7° Tablet 
ee [ Google Glass 


图 13-28 样式 和 屏幕 选择 


上 述 环境 配置 好 之 后 , 接 下 来 将 完成 程序 开发 部 分 。 
1. 界面 设计 
从 右 下 角 的 标签 栏 拖 出 组 件 , 添 加 两 个 Label 控件 、 两 个 Text 控件 ,两 个 Button 控件 , 完 
成 界面 设计 ,用 户 界面 如 图 13-29 所 示 。 
依 welcome page | piHeaderfooterTemplate vx 


View: Android 5" Phone v | 台 | 


我 的 XE8 之 旅 
号 : 
密码 : 


图 13-29 样式 和 屏幕 选择 


2. 属性 设置 
各 组 件 的 属性 设置 如 表 13-1 所 示 。 
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表 13-1 窗 体 及 组 件 属 性 设置 


对 象 属 性 属 性 值 说 明 
Labell Caption 账号 : 标签 的 内 容 
Label2 Caption 密码 : 标签 的 内 容 
Editl Text 空白 输入 账号 

Edit2 Text 空白 输入 密码 

Buttonl Caption 登录 按钮 的 标题 
Button2 Caption 取消 按钮 的 标题 


3. 程序 设计 


Procedure THeaderFooterForm. Button1Click(Sender: TObject); 


begin 
if (editl. Text = 'admin') and (edit2. Text = 'admin') then 
// 关 键 分 析 1 
showmessage( ' 登 录 成 功 ,欢迎 使 用 xE8! ') 
end; 


procedure THeaderFooterForm. Button2Click(Sender: TObject); 
begin 
close; 

end; 

4. 程序 分 析 

关键 分 析 : 当 Editl 和 Edit2 中 输入 的 内 容 都 为 
“admin” 时 表示 通过 验证 ,弹出 对 话 框 “登录 成 功 ,欢迎 使 
用 XE8!”。 

5. 运行 结果 

关键 分 析 : 当 Editl 和 Edit2 中 输入 的 内 容 都 为 
“admin” 时 表示 通过 验证 ,弹出 对 话 框 “登录 成 功 ,欢迎 使 用 
XE81”, 如 图 13-30 所 示 。 轩 19539| 潮 机 汉 行 第 条 


13.3 ”数据 库 应 用 编程 


13.3.1 SQLite 数据 库 


1. 介绍 

SQLite 是 一 个 开源 的 嵌入 式 关 系数 据 库 ,是 实现 自 包容 、. 零 配置 .支持 事务 的 SQL 数据 
库 引 擎 。 其 特点 是 高 度 便携 、 使 用 方便 、 结 构 紧 凑 、 高 效 . 可 靠 。 与 其 他 数据 库 管 理 系统 不 同 ， 
SQLite 的 安装 和 运行 非常 简单 ,在 大 多 数 情况 下 ,只 要 确保 SQLite 的 二 进 制 文件 存在 即 可 开 
始 创 建 、 连 接 和 使 用 数据 库 。 

2. 安装 

对 于 SQLite 的 安装 ,不 同 的 操作 系统 有 不 同 的 安装 步骤 ,这 里 主要 介绍 在 Windows、 
Linux 和 Mac OS X 上 的 安装 过 程 。 
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1) SQLite on Windows 

(1) 进入 SQL 下 载 页 面 http://www. sqlite. org/download. html。 

(2) 下 载 Windows 下 的 预 编 译 二 进 制 文件 包 sqlite-shell-win32-x86- 二 build# 之. zip 和 
sdqlite-dll-win32-x86- 一 build 井 二 . zip。 其 中 ,一 build 井 过 是 SQLite 的 编译 版 本 号 。 将 zip 文 
件 解压 到 磁盘 ,如 图 13-31 所 示 。 


” 和 NN 
名 口 -[ EYE TS EE 


组织 ~ 包含 到 库 中 ~ 共享 " 刻录 新 建文 件 去 


LE “名称 性 改 6 其 
司 $B SQLite Expert Professional 3.5.58.2478 ”2015/4/17 15:58 
县 sqlte-analyzer-win32-x86-3080900 2015/4/17 15:58 
加 二 有 sqlite-dll-win32-x86-3080900 2015/4/17 1558 
司库 上 sqlite-shell-win32-x86-3080900 2015/4/17 15:58 
国术 虱 SQLite Expert Professional 3.5.58.2478 2015/4/17 15:44 
RE 赂 片 ba 1 
) 10 个 对 象 


图 13-31 SQLite 文件 包 解 压缩 到 下 盘 


并 将 解压 后 的 目录 添加 到 系统 的 Path 变量 中 ,以 方便 在 命令 行 中 执行 SQLite 命令 ,如 
图 13-32 所 示 。 


Path 


lite\sqlite-shell-win32-x86-3080900 


WE |][ MR ] 


Eze 


13-32 ”目录 添加 到 系统 PATH 变量 


2) SQLite on Linux 

多 个 Linux 发 行 版 提供 了 方便 的 命令 来 获取 SQLite: 

(1) /* For Debian or Ubuntu /* 

(2) $ sudo apt-get install sqlite3 sqlite3-dev 

(3) /* For RedHat, CentOS, or Fedora/ * 

(4) $ yum install SQLite3 sqlite3-dev 

3) SQLite on Mac OS X 

如 果 使 用 的 是 Mac OS 雪 葛 或 者 更 新 版 本 的 系统 ,那么 系统 上 会 自 带 SQLite, 就 不 需要 
安装 了 。 


13.3.2 创建 首 个 SQLite 数据 库 
已 经 安装 好 了 SQLite 数据 库 , 接 下 来 创建 首 个 数据 库 。 在 命令 行 窗口 中 输入 如 下 命令 ， 


sqlite3 test. db 


创建 一 个 名 为 test. db 的 数据 库 。 
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用 命令 

sqlite > create table mytable(id integer primary key, value text, email text); 
创建 一 个 名 为 mytable 的 表 , 如 图 13-33 所 示 。 该 表 包 含 一 个 名 为 id 的 主键 字 上 
value 的 文本 字段 。 需 要 注意 的 一 点 是 : 至 少 必须 为 新 建 的 数据 库 创 建 一 个 表 或 者 视图 ,这 样 


才能 将 数据 库 保存 到 磁盘 中 ,否则 数据 库 不 会 被 创建 。 


| 画 SWindows\system32\cmd exe sqlite3 test.db 呈 | 回 | 到 


Microsoft Windows [ 6.1.7681] ~“ 
| 
有 《c>》2889 Micr 


Cc: vsers ycc>ca、\ 
:Ve: 


:Vsqlite3 test.db 


on 3.8.9 2815-84-88 12:16:33 


" for usage hints. 
sqlite> create table nytableCid integer prinary key.value 
sqlite> 


图 13-33 ”DOS 命令 下 新 建 数据 库 和 表 
接 下 来 往 表 里 中 写 和 人 一些 数 据 , 如 图 13-34 所 示 。 


sqlite> insert into mytable( id, value, emalil) values( '1 '，'Micheal'，'1jjpu@163.com ') 

sqlite> insert into mytable( id, value, emalil) values( '2 '，'Jenny'，'1jjpu@163.com '); 
sqlite> insert into mytable(value, emalil) values( 'Francis', '1jjpu@163. com '); 
sqlite> insert into mytable(value, emalil) values( 'Kerk', '1jjpu@163. com '); 


js\system32\cmd.exe - sqlite3 testdb 


sqlite> 
sqlite> i into 
sqlite> i into 


sqlite> into mytablecvalue》 ualu 
sqlite> rt into mytableCvalue> valu 
sqlite> 


图 13-34 DOS 命 令 下 插入 数据 


查询 数据 和 设置 格式 化 查询 数据 ,分 别 输入 以 下 命令 ,其 中 ,. mode column 将 设置 为 列 显 
示 模 式 ,. header 将 显示 列 名 。 


sqlite> select * from mytable; 


查询 结果 如 图 13-35 所 示 。 


lect * fron mytable; 
1jjpuB163.com 

enny!1jjpuB163.con 
1jjpuel63 -com 
puel63 -com 


图 13-35 查询 结果 
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sqlite> .mode column 
sqlite> . header on 
sqlite> select * from mytable; 


查询 结果 如 图 13-36 所 示 。 
修改 表 结 构 、 增 加 列 ,创建 视图 ,创建 索引 命令 分 别 如 下 ,结果 如 图 13-37 所 示 。 
sqlite> alter table mytable add column email text not null default collate nocase; 


sqlite> create view nameview as select * from mytable; 
sqlite> create index test_ idx on mytable(value); 


画 CMWindows\system32\cmd.exe - sqlite3 testdb 


qlite> -mode column 

sqlite> .header on 

sqlite> select* from mytables 
value 


图 13-36 ”DOS 命令 下 格式 化 查询 数据 


丽 CMWindows\system32\cmd.exe - sqlite3 testdb 


Micheal 
Jenny 
Francis 
Kerk 

sqlite> alter table nytable add colunn enail text not null default’’collate no 


sqlite> create view naneview as selectwfrom nytable; 
sqlite> create index tt x on mytableCualue); 
qlite> 


图 13-37 DOS 命令 下 修改 表 、 创 建 视 图 、 索 引 
其 他 一 些 有 用 的 SQLite 命令 如 下 所 示 
(1) 显示 表 结 构 : 
sqlite> . schema [table] 
(2) 获取 所 有 表 和 视图 .获取 指定 表 的 索引 列表 : 


sqlite > .tables 
sqlite > . indices [table ] 


(3) 导入 .导出 SQL 文件 : 
中 导出 数据 库 到 SQL 文件 : 


sqlite > .output [filename ] 
sqlite > .dump 
sqlite > .output stdout 


2 从 SQL 文件 导入 数据 库 : 


sqlite > .read [filename ] 
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(4) 格式 化 输出 数据 到 CSV 格式 : 


sqlite >. output [filename.csv ] 
sqlite >. separator ， 

sqlite > Select * from test; 
sqlite >. output stdout 


(5) 从 CSV 文件 导入 数据 到 表 中 : 


sqlite > create table newtable ( id integer primary key, value text ); 
sqlite >. import [filename. csv ] newtable 


(6) 备份 数据 库 : 


/x usage: sqlite3 [database] . dump > [filename] */ 
sqlite3 mytable. db . dump > backup. sql 


(7) 恢复 数据 库 : 


/* usage: sqlite3 [database ] < [filename ] */ 
sqlite3 mytable. db < backup. sql 


13.3.3 开发 简单 的 Andriod 数据 库 APP 


现在 说 明 如 何 开发 一 个 Andriod 手机 上 的 数据 库 APP, 在 这 个 范例 中 笔者 使 用 13. 3. 2 
节 SQLite For Android 作为 范例 数据 库 , 由 于 本 范例 使 用 了 数据 库 , 因 此 在 部 署 此 范例 APP 
到 笔者 的 华为 手机 时 需要 部 署 一 些 额 外 的 档案 。 在 本 范例 中 笔者 将 使 用 13. 3. 2 节 创 立 的 
Sqlite 范例 数据 库 的 test. db。 并 且 要 把 其 中 的 mytable 数据 表 的 资料 显示 在 TListView 元 件 中 。 
接 下 来 创建 一 个 简单 的 SQLite 应 用 ,首先 要 建立 一 个 Multi-Device Application 项 目 ,如 


图 13-38 所 示 。 
GQ New ltems Ee 


4 EE] Delphi Projects Hsearh 
Activex 
全 Datasnap Server 
Er 国 本 轿 
个 Dunitx Console ~ ControlPanel Dynamic4ink FireMonkey 
忽 Applcation Applcaton Lbrary Metropolis,,. 


EMS 
全 Inheritable Items 


全 四 ie 过 
5 Mult-Device Projects 


问 webaroker MDI MultDevice | Padage 。 Resource DLL 

全 WebServices Appication | Applcation Wizard 

XM Es 
oopes 马 转 
EE Ot Fins SDI Service VCL Forms VCL Metropolis 
NT Applcation Applcation 。 Application UIApplcation 
个 Web Documents 

OK [caneal Help 


13-38 MultiDevice Application 
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选择 建立 Blank Application 项 目 , 如 图 13-39 所 示 。 


md De | 


. 
G Multi-Device Application 


Multi-Device Application 
Select a Multi-Device Application type. 


Blank Application 


国 于 . 


The Blank Application Template is a jumping off point for creating a completely 
custom Multi-Device Application. 


图 13-39 Blank Application 


把 设计 图 形 界面 的 样式 选择 为 Android 模式 ,如 图 13-40 所 示 。 
这 时 需要 选择 一 下 Android 手机 的 屏幕 大 小 ,这 对 分 辩 率 是 有 影响 的 ,根据 开发 的 目标 环 
境 而 定 。 因 为 IHUAWEI H60-L11 是 5 英寸 屏 , 在 这 里 选择 的 是 5 英寸 屏 , 如 图 13-41 所 示 。 


View: WW/ Master 四 
mm /oster 


起 surface Pro 


Android 10" Tablet 
Android 3.5" Phone 


Android 4" Phone 
Qk [Android 5 Phone 


Android 7° Tablet 
Google Glass 


图 13-40 设计 图 形 界面 的 样式 图 13-41 Android 5" Phone 


上 述 环境 配置 好 之 后 , 接 下 来 将 完成 程序 开发 部 分 。 

1. 界面 设计 

在 窗 体 中 放 入 FDConnection、 FDPhysSQLiteDriverLink、FDQuery、 FDGUIxWaitCursor、 
BindSourceDB 和 ListView 控件 ,完成 界面 设计 ,用 户 界面 如 图 13-42 所 示 。 

2. 属性 设置 

各 组 件 的 属性 设置 如 表 13-2 所 示 。 
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FDConnectionl FDQueryl FDGUbeWaitCursorl 


BindSourceDB1 FDPhysSQLiteDriverLinkl 


图 13-42 SQLite 数据库 应 用 界面 
表 13-2 窗 体 及 组 件 属 性 设置 


对 象 属 性 属 性 值 说 明 
FDQueryl SQL select * from mytable 查询 SQL 
ListViewl ItemAppearance ListItemRightDetail 列表 项 显示 


右键 单 击 FDConnection| Connection Editor 选项 ,Database 选项 选择 建 好 的 SQLite 数据 
库 test. db, 如 有 用 户 名 和 密码 则 分 别 输入 ,如 图 13-43 所 示 。 


@ FireDAc Connection Editor - [FDConnection] >. [c= Es) 


Select driver or select comnection definiton name to override, then setup parameters 


Definiton |Options [Info | SQL saipt 

Driver ID: SQLite =- 

Connecton Definiton Name: - 
Test Wizard Bevert To Defaults | | Hep 


Parameter Value Default = 


Pooled False 
Database E:\est.db 
User_Name 
Password 
MonitorBy 
OpenMode 
Enaypt 


BusyTimeout 
CacheSize 

SharedCache 
LodingMode 
Synchronous off 


Cg Lene | 


图 13-43 ”选择 SQLite 数据 库 
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绑 定数 据 设 置 , 选 择 View|LiveBindings Designer, 如 图 13-44 所 示 。 


中 
13-44” 绑 定数 据 设置 
3. 程序 设计 
procedure TForml. FDConnection1BeforeConnect(Sender: TObject); 
begin 
FDConnection1. Params. Values[ 'Database'] : = TPath. Combine(TPath. GetDocumentsPath, 'test, db'); 
// 关 键 分 析 
end; 
procedure TForm]. FormCreate( Sender: TObject); 
begin 


fdquery1. Close; 
fdqueryl.open ; 
end; 


4. 程序 分 析 
关键 分 析 :TPath 类 首先 需要 引用 System. IOUtils 文件 ,这 样 才能 使 用 TPath 类 


TPath. Combine( TPath. GetDocumentsPath, 'test. db') 
或 
TPath. GetDocumentsPath + PathDelim + 'test.db’ 


获取 文件 的 绝对 路 径 , 然 后 就 可 以 使 用 这 个 路 径 对 文件 进行 操作 了 。 

5. 运行 发 布设 置 与 运行 结果 

选择 菜单 Project| Deployment 然后 单 击 Add 按钮 ,选择 SQLite 数据 库 test. db,Remote 
Path 填写 “assets\internal\”, 如 图 13-45 所 示 。 


鲁 Welcome rage un DD vx 


名 局 以 遍 价 中 四 | 局 怠 @rer| 香 由 | Debug confiquration -Android platform ~ 
es Local Name Type Platforms Remote Path Remote Name 
LAdd Files|naroid.. libnative-activity so AndroidLibna... [Android] libranAlib\mips\ libprojectl.so 
$(BDS)\\bin\Artwor.. FM_Splashimage 540.。 Android Spla.. [Android] res\drawable-large\ splash image. 
S$(BDS)\\bin\Artwor.. FM_Splashimage 960.. Android Spla.. [Android] res\drawable-xlarge\ splash_image, 
assets\internal\ 


S(BDS)\ib\android... libnative-activity.so Androidlibna... [Android] libran\libve6\ libproject1.so 
国 $BDS)NbinWArtwor.。 FM_Launcherlcon_144... 。 [Android] res\drawable-oxchdp\ ic_launcher,pn 
S$(BDS)N\bin\Artwor.. FM._Launcherlcon_48x... Lau.. [Android] res\drawable-mdp\ iclauncher,pn 
F\teach\ 教 材 \and...。 classes.dex AndroidClass.. [Android] dlasses\ classes.dex 
CAUsers\Administr.. classes.dex AndroidClass.. [Android] dasses\ classes.dex 


13-45 ”发 布设 置 
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程序 最 终 运 行 结果 如 图 13-46 所 示 。 


micheal > 
kerk pu@lGe > 
[< 0 0 | 


图 13-46 ”运行 结果 


13.4 DataSnap 应 用 编程 


DataSnap 是 手机 访问 服务 器 数据 库 的 一 种 方法 ,该 方法 首先 在 服务 器 端 运行 DataSnap 
服务 器 端 程序 ,然后 再 运行 手机 客户 端 程序 即 可 访问 服务 器 的 数据 库 。 下 面 将 以 SQL Server 
2008 为 例 开 发 一 个 简单 的 DataSnap 应 用 程序 。 


13.4.1 SQL Server 2008 数据 库 的 建立 
在 SQL Server 2008 中 建立 数据 库 Test, 如 图 13-47 所 示 。 


日 本 [= 5 mE 
二 有 页 i 
ee Zur -GD 
他 和 项 
他 文明 | To 
所 有 音 加 ) > 
数据 床 文件 中 
条 文 上 昌文 组 “科大 小 MG 自动 直 长 EE 
Tost 用。 Pamwm 增 时 为 ! 虽 ， 丰 限制 长 [| D\Progren VilesWtie 
Tt 晶 志 用 1 10% Toe mileuid 
连 扒 
央 务 器: 
有 oo 
连 检 
对 二 生计 执导 入 
浊 认 
就 绪 
ET ] 如 
Luw |) mw 


图 13-47 建立 数据 库 
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在 数据 库 中 创建 表 mytable, 并 在 表 中 插入 数据 ,如 图 13-48 所 示 。 


create table mytable( 
(20)) 7 


insert into mytable( id, 
insert into mytable(id, 
insert into mytable(id, 


id integer primary key, value varchar (20), email varchar (50), QQ varchar 


value，email，00) values( 1 '，' 刘 俊 '，'1jjpu@163.com '，'12300991') 
value，email,00) values( '2 '，' 刘 宇航 '，'koala_L@ 163.com ', '15504155'); 
value, email, 00) values( '3 ', 'Francis', 'abc@163.com ', '000000'); 


insert into mytablel( id, value, email,Q0) values( '4 ', 'Kerk', 'efg@163.com ', '000000'); 


SQLQueryl.sql - UC.-2008.test (sa (53))™ 


| Ecreate table d integer primary key, 
insert into valu il, QQ) values( ' 
insert into values( ' 
values( ' 
values( '3 


varchar (2 


insert into 
Linsert into 


13-48 创建 表 插入 数据 


13.4.2 创建 服务 器 端 程序 


(1) 使 用 DataSnap 向 导 完 成 服务 器 程序 的 创建 。 打 开 New Items 对 话 框 , 然 后 选择 


DataSnap Server 选项 ,如 图 13-49 所 示 。 


f pr a We [| 
as 
Pseath 
DB REST REST 
a | 
Datasnap Datasnap Datasnap Datasnap 
CientModule RESTA... RESTCI... Server 
Datasnap 
WebBro... 
全 Desgn projects | 
Other Fies 
站 UnitTest 
| “web ooaments 
| 
中 
Ce JComm | wo | 
Ls J 


图 13-49 ”创建 DataSnap server 


(2) 接 下 来 ,选择 Forms Application, 如 图 13-50 所 示 。 
(3) 因为 是 手机 访问 服务 器 ,选择 FireMonkey application ,如 图 13-51 所 示 。 
(4) 此 对 话 框 中 无 须 任何 改动 ,默认 值 即 可 ,如 图 13-52 所 示 


(5) TCP/IP Port 默认 值 是 211, 如 图 13-53 所 示 ,可 以 根据 用 户 的 需要 设置 其 他 端口 , 推 


荐 使 用 默认 值 ,手机 客户 端 登录 服务 器 时 也 必须 使 用 此 端口 。 
(6) 选择 TDSServerModule 选项 , 单 击 Finish 按钮 ,如 图 13-54 所 示 。 
(7) 保存 所 有 的 文件 ,文件 名 无 须 更 改 , 以 默认 名 即 可 ,如 图 13-55 所 示 。 


(8) 在 ServerMethodsUnitl. frm 窗口 中 放 入 如 下 组 件 : FDConnection、FDPhysODB- 


CDriverLink .FDQuery、 


DataSetProvider。 这 些 组 件 是 连接 SQL Server 2008 的 组 件 ,如 


图 13-56 所 示 。 其 中 ,FDPhysODBCDriverLink 的 属性 无 须 设置 。 
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r 一 aa = 
@NewDatasnapsever 年 


Project type 
Speafy the type of this application 


A Forms application displays a form 


Application Type 
Select the type of application to be created 


Creates a FireMonkey application 


© vcCL application 
加 FreMonkey application 
2 AS IE 


13-51 选择 FireMonkey application 


Server Features 
Chedk the features to add to the DataSnap server 


Port Numbers 


|| Spedify the ports that will be used by the DataSnap server to listen for dient requests. 
Use the Testr button to make sure the port number is not already in use on this computer, 


Click a field for more information 


图 13-53 TCP/IP Port 设置 
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一 一 一 | 


G New DataSnap Server 


Server methods ancestor class 
Select an ancestor type for the server methods dass. 


The TDSServerModule ancestor type provides a design surface and also implements the 
IAppServer interface. Grn 


© Tcomponent 
© TDataModule 
加 TDSserverModule 


_history 

轨 projectl.dpr 

本 projectl.dproj 

[DD Projectl.dprojlocal 

图 serverContainerUnitl.dfm 


隐 serverContainerUnitl.pas 
加 serverMethodsUnitl.dfm 
隅 serverMethodsUnitl.pas 
图 13-55 保存 文件 13-56 ”相关 组 件 


(9) FDConnectionl 组 件 属性 设置 ,如 表 13-3 所 示 。 
表 13-3 窗 体 及 组 件 属性 设置 


对 象 属 性 属 性 值 说 明 
FDConnectionl DriverName MSSQL 连接 SQL Server 2008 
LoginPrompt false 无 须 登录 认证 


(10) 双击 FDConnectionl 图 标 ,打开 如 图 13-57 所 示 窗 口 进行 如 下 设置 ,选择 Server 为 
SQL Server 2008 安装 时 的 实例 名 称 , 本 机 为 Localhost\SQL 2008。 输 入 Database 为 SQL 
Server 2008 中 创建 的 Test 数据 库 。 输 入 User_Name 为 sa, Password 为 SQL Server 2008 中 
设置 的 密码 。 
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Y 
@ FireDAC Connection Editor - [FDConnection1] le 
EE Select driver or select connection definition name to override, then setup parameters 

Definiton |Options [Info | SQL Saipt| 

Driver ID: MSSQL 

Connection Definition Name: 一 

Tst |][ Wzard | (RevertToDefaults| Hep ] 
Parameter Value Default 加 
Drverip MssGr ， 国 
Pooled False 
Database Test 
User_ Name sa 
Password 123456 
MonitorBy 
ODBCAdvanced 
LoginTimeout 
Server Localhost\SQL2008 
Ce )][ ene | 


13-57 FDConnectionl 设置 


(11) 其 他 组 件 属性 设置 ,如 表 13-4 所 示 。 


表 13-4 窗 体 及 组 件 属性 设置 
对 象 属 性 属 性 值 说 明 
Connection FDConnectionl 数据 库 连 接 
FDQueryl Sql. Text 'select * from mytable' 查询 语句 
FetchOptions. mod fmAll 选择 所 有 数据 
DataSet FDQueryl 数据 集 
Drsetbrondarl [poFetchBlobsOnDemand， 
Options poFetchDetailsOnDemand, 其 他 选项 
poAllowCommandText, poUseQuoteChar] 
Connection FDConnectionl 数据 库 连 接 
FDQuery2 Sql. Text 空 空 
FetchOptions. mod fmAll 选择 所 有 数据 
DataSet FDQuery2 
DataSetProvider2 Epobewehblobs DD 其 他 选项 
Options poFetchDetailsOnDemand, 
poAllowCommandText, poUseQuoteChar] 


(12) 主 界面 设计 如 图 13-58 所 示 。 


(13) 在 ServerMethodsUnitl 单元 文件 中 添加 引用 System. StrUtils,midaslib, 如 图 13-59 


所 示 ,目的 是 省 去 发 布 midas. dll。 
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(14) 编译 运行 。 
至 此 ,保存 好 所 有 的 文件 ,服务 器 端的 程序 已 经 完全 编写 完毕 ,运行 界面 如 图 13-58 所 示 。 


这 是 一 个 简单 的 Datasnap 服 务 器 程序 implementation 
{ SCLASSGROUP "EMX.ConErols.TControl' } 
R *.dfm} 


mses System.StrUtils,midaslib; 


图 13-58 主 界面 13-59 ”添加 引用 


13.4.3 创建 Android 手机 端 程序 


(1) 首先 要 建立 一 个 Multi-Device Application ,如 图 13-60 所 示 。 


r 
GG New kems 


Co [emm je 


13-60 ”新建 Multi-Device Application 


(2) 选择 建立 Blank Application 项 目 , 如 图 13-61 所 示 。 

(3) 把 设计 图 形 界面 的 样式 选择 为 Android 模式 ,如 图 13-62 所 示 。 

(4) 这 时 需要 选择 一 下 Android 手机 的 屏幕 大 小 ,这 对 分 辩 率 是 有 影响 的 。 根 据 开 发 的 
目标 环境 而 定 。 因 为 平台 IHUAWEI H60-L11 是 5 英寸 屏 , 在 这 里 选择 的 是 5 英寸 屏 , 如 
图 13-63 所 示 。 

(5) 在 工程 中 增加 一 个 Data Module 模块 并 保存 ,如 图 13-64 所 示 。 

(6) 在 该 模块 窗 体 上 放置 SQLConnection1、DSProviderConnection1、ClientDataSetl 三 个 
组 件 , 如 图 13-65 所 示 。 

(7) 相关 组 件 属性 设置 ,如 表 13-5 所 示 。 
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。 
G@ Multi-Device Application = Gm Qn 区 本 | 
Multi-Device Application 
Select a Multi-Device Application type. 
Blank Appicaton 3D Appication 


Phe Blank Applicaton Template s 3 jumpng off pont for aeatnga completely 
ustom Multi-Device Application. 


Cm |] Co |[ tm | 


13-61 建立 Blank Application 


style; 蜂 Androd = 

Le Windows 
国 osx 

D os 


图 13-62 设计 图 形 界面 的 样式 


4 个 Delphi Projects 
Actvex 
Datasnap Server 
Delphi Fies 
Dunitx 
EMs 
Inheritable Items 
IntraWeb 
Multi-Device Projects 
= weberoker 


图 13-64 Data Module 模块 


View: A Master 四 
te 


起 Surfoce Pro 
A Wndows Desktop 
国 05xDesktop 


Androd 10" Tablet 
WAndroid 3.5 Phone 

和 Android 4° Phone 

: 
和 Androd 7 Tablet 

天 Google Glass 


图 13-63 Android 5" Phone 


SQLConnection1 


:如 四 二 和 


DsProviderConnection1. ‘ClentDataSet1 


图 13-65 ”相关 组 件 
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表 13-5 窗 体 及 组 件 属性 设置 


对 象 属 性 属 性 值 说 明 
driver Datasnap 驱动 设置 
SQLConnection1 LoginPrompt false 无 须 登 录 认 证 
Params. Values[ 'Port’] | '211" 端口 设置 
SQLConnection SQLConnection1 数据 库 连接 
DSProviderConnection1 使 用 13.4.2 节 中 创建 的 数据 服 
ServerClassName TserverMethods1 务 器 实例 名 称 TserverMethods1 
RemoteServer DSProviderConnection1 | 远程 服务 器 
a ne 表 的 索引 和 字段 定义 与 窗 体 
ClientDataSetl 或 数据 模块 一 同 存 储 
ee 使 用 13. 4. 2 节 中 创建 名 称 
ProviderName DataSetProviderl DataSetProviderl 


(8) 为 实现 服务 器 上 程序 在 客户 端的 调用 ,需要 创建 服务 类 在 客户 端的 实现 类 ,在 生成 之 
前 , 先 要 运行 13. 4. 2 节 中 创建 的 服务 程序 ,然后 右键 单 击 SQLConnectionl 选择 Generate 
DataSnap client classes 命令 生成 客户 端 类 ,如 图 13-66 所 示 。 运 行 后 会 生成 一 个 新 的 单元 ,无 
须 修改 保存 即 可 。 至 此 ,关于 DataSnap 的 客户 端 设置 已 经 全 部 完毕 。 


(9) 主 界面 设计 。 


Save connection parameters 


SQLC 
Reload connection parameters 
Generate DataSnap client classes 
村 Add Connectionstring Param 
Edit » 
DSProvider 


Control » 


Position 上 
Tab Order… 
Creation Order... 
Revert to Inherited 
Add to Repository... 
View as Text 
V IexDFM 


13-66 ”生成 客户 端 类 


组 件 结构 如 图 13-67 所 示 。 


Structure 
入 名 | 全 各 
日 癌 Forml_Lgxhdpiph 
白 图 Layoutl 
下 加 Listviewl 
| 由 国 Imagel 
| 由 - 吗 KemAppearance 
日 国 Rectanglel 
上 回 Textl 
- 辐 Rectangle2 


图 13-67 组 件 结构 
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主 界面 设计 如 图 13-68 所 示 。 


选择 ”服务 器 IP: 192.168.1.100 


图 13-68 界面 设计 


(10) 其 他 组 件 属性 设置 ,如 表 13-6 所 示 。 
表 13-6 窗 体 及 组 件 属性 设置 


对 象 属 性 属 性 值 说 明 
Layoutl Align Client 布局 
Rectanglel Align Bottom 底层 面板 
Textl Text 打开" 打开 
Rectangle2 Align Top 顶层 面板 
Text2 Text "服务 器 IP:， 

Text3 Text "删除 

Text4 Text "选择 " 

EdtIp Text "192. 168. 1. 100 
MaultiResBitmap[0] 装载 一 幅 图 片 

Imagel a 
Visible false 
ItemAppearance MultiDetailltem 
ItemEditAppearance MultiDetailltemShowCheck 
DeleteButtonText ' 删 除 ' 

Listviewl ItemAppearanceObjects. 
ItembditObjects, Tanage Visible | 
ItemAppearanceObjects. 

true 


ItemObjects. Image. Visible 
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(11) 程序 设计 


// 安 卓 返回 键 

Procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; 
Shift: TShiftState); 

begin 
if Key = vkHardwareBack then // 关 键 分 析 1 
begin 

close; // 关 闭 程序 

end; 

end; 

// 选 择 键 

procedure TForm1.ListViewlItemClick(const Sender: TObject; 
const AItem: TListViewItem); 


begin 
证 ListViewl. EditMode = false then // 如 果 不 是 编辑 状态 
begin 
DataModulel. ClientDataSet1. Locate( 'id', AItem. Detail.ToInteger, 
[loPartialKey]); // 定位 到 当前 记录 
nowListViewItemIndex : = AItem. Index; // 关键 分 析 2 
end; 
end; 


// 给 ListViewl 填充 数据 
procedure TForml. ListView FillData; 
var 
I: integer; 
LItem: TListViewItem; 
// BlobStream: TStream; 
begin 
if DataModulel. ClientDataSet1. RecordCount > 0 then 
begin 
try 
ListView1. BeginUpdate; 
ListView1. Items. Clear; 
DataModulel. ClientDataSetl. First; 
for I := 1 to DataModulel.ClientDataSet1.RecordCount do 
begin 
LItem : = ListView1. Items. Add; 
LItem. text : = DataModulel.ClientDataSetl.FieldByName( 'value'). AsString; 
LItem. Detail := DataModulel.ClientDataSetl.FieldByName( 'id'). AsString; 
// 关 键 分 析 3 
LItem. Data[ TMultiDetailAppearanceNames. Detaill] := 'Email: "+ 
DataModulel. ClientDataSetl .FieldByName( 'Email'). AsString; 
LItem. Data[ TMultiDetailAppearanceNames. Detail2] : = 
'Q00: ' + DataModulel. ClientDataSet1.FieldByName( 'Q00'). AsString; 
LItem. BitmapRef := Imagel.Bitmap; 
DataModulel. ClientDataSet1. Next; 
end; 
finally 
ListViewl. EndUpdate; 
end; 


// 打 开 数 据 库 
Procedure TForml. Text1Click( Sender: TObject); 
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begin 
try 
// 创建 窗 体 
if not Assigned(DataModulel) then 
DataModulel : = TDataModulel.Createl(Self); 

DataModulel. SQLConnection]. close; 
DataModulel. SOLConnection1. Params. Values[ 'HostName'] : = edtIP. text; 
DataModulel. SOLConnection1. Params. Values[ 'Port'] := '211'; 
DataModulel . SOLConnection1. Open; 

except 
showmessage( 'IP 地 址 填写 错误 或 服务 器 没有 启动 ! '); 
edtIP. SetFocus; 
exit; 

end; 

DataModulel. ClientDataSet1.close' 

DataModulel. ClientDataSet1. CommandText := 
"select * from mytable order by id'; 

DataModulel. ClientDataSet1. Open; 

if DataModulel. ClientDataSet1. RecordCount > 0 then 

begin 
ListView_FillData; // 给 ListViewl 填充 数据 


begin 
ListView1. BeginUpdate; 
ListView1. Items. Clear; 
ListViewl. EndUpdate; 
showmessage( ' 没 有 查询 到 任何 数据 ! '); 
end; 
end; 
// 删 除数 据 
Procedure TForml. Text3Click(Sender: TObject); 
begin 
if ListViewl. Items. CheckedCount(true) = 0 then 
begin 
// 关 键 分 析 4 
TToast. MakeText(Self,，' 请 先 选 择 要 删除 的 记录 !',，TToastLength. Toast_LENGTH_LONG); 
ListViewl. EditMode : = true; 
exit; 
end; 
MessageD1g( ' 您 确实 要 删除 吗 ?',，Systenm. UITypes. TMsgDlgType. mtInformation, 
[ System. UITypes. TMsgDlgBtn. mbYes, System. UITypes. TMsgDlgBtn. mbNo //System. 
UITypes. TMsgDlgBtn. mbCancel 
], 0, 
Procedure( const AResult: TModalResult) 
var 
i, fkid: integer; 
begin 
if AResult = mrYES then 
begin 
for I in ListViewl. Items. CheckedIndexes do 
begin 
fkid := ListView1. Items. Item[I].Detail.ToInteger; 
DataModulel. ClientDataSet]1. Locatel( 'id', fkid, [loPartialKey]); 
// 定位 到 当前 记录 
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if DataModulel. ClientDataSet1.FieldBYName( 'id').Value = fkid then 
begin 

DataModulel. ClientDataSet1. Delete; 

ListView1. Items. Delete(I); 


end; 
end; 
DataModulel. ClientDataSet1. ApplyUpdates(0); 
end; 
if AResult = mrNo then 
exit; 
end); // 关 键 分 析 5 
end; 
Procedure TForm]. Text4Click( Sender: TObject); 
begin 
ListViewl. EditMode : = not ListViewl.EditMode; 
end; 


关键 分 析 1: 如 果 手 机 按 了 返回 键 则 关闭 程序 并 退出 。 

关键 分 析 2: 记录 当前 单 击 的 记录 的 ListViewl 的 ItemIndex。 

关键 分 析 3: 在 手机 中 显示 详细 的 Email 信息 。 

关键 分 析 4: 弹出 一 个 安 卓 对 话 框 , 数 秒 后 自动 消失 。 

关键 分 析 5: 安 卓 中 , Win32 的 选择 对 话 框 无 法 实现 ,需要 使 用 过 程 的 嵌 套 。 
(12) 程序 在 手机 中 的 运行 结果 如 图 13-69 所 示 。 


图 13-69 运行 结果 
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小 结 


本 章 重点 介绍 了 Delphi XE8 Android 平台 的 搭建 和 数据 库 应 用 编程 。13. 1 节 介 绍 了 
Android 平台 的 搭建 需要 安装 Android SDK 和 Android NDK,Android SDK 下 载 问 题解 决 ， 
Android 环境 配置 。13. 2 节 介绍 了 简单 的 应 用 程序 开发 。13. 3、13. 4 节 首 先 介绍 了 SQLite 
数据 库 基 础 ,然后 介绍 了 如 何 开发 简单 的 Andriod 数据 库 App, 其 次 介绍 了 SQL Server 2008 
数据 库 的 建立 ,以 及 如 何 创建 服务 器 端 程序 。 最 后 介绍 了 如 何 创建 Android 手机 端 程序 。 


习 题 


13-1 Android SDK 和 Android NDK 如 何 安装 ? 
13-2 Android SDK 下 载 问 题 如 何 解 决 ? 

13-3 模拟 一 个 登录 界面 的 开发 。 

13-4 开发 一 个 基于 DataSnap 的 数据 库 应 用 App。 


本 章 主要 讲述 如 何 使 用 Delphi XE8 集成 开发 环境 来 开发 可 在 iOS 设备 上 运行 的 移动 版 
应 用 程序 。 软 件 平台 选用 Delphi XE8 Updatel,Xcode 选用 4. 6. 2 版 本 (保证 程序 调试 的 最 大 
兼容 性 ) 。 这 两 个 版 本 能 使 编译 生成 的 IPA 程序 包 兼 容 iOS 5 以 上 的 所 有 版 本 ,也 就 是 编写 的 
程序 可 以 在 现 有 的 所 有 iOS 设备 (采用 iOS 5~ iOS 9 系统 ) 上 运行 。 


14.1 进行 iOS APP 开发 的 准备 工作 
14.1.1 开发 iOS APP 的 前 期 知识 储备 


1. APP 

APP( 应 用 程序 ，Application 的 缩写 ) 狭 义 上 指 的 是 移动 设备 的 第 三 方 应 用 程序 ,广义 上 
指 所 有 客户 端 软件 ,现在 多 指 可 在 移动 设备 (智能 手机 和 平板 ) 上 运行 的 应 用 程序 。APP 与 传 
统 个 人 计算 机 上 运行 的 应 用 程序 相 比 ,具有 以 下 优势 : 支持 更 加 丰富 的 交互 设计 ,拥有 更 好 
的 用 户 体验 ; @ 对 设备 具有 更 大 的 控制 权 ( 如 获得 用 户 的 位 置信 息 , 可 使 用 摄像 头 、 陀 螺 仪 、 
NFC 等 ); @ 产 品 和 用 户 有 更 好 的 互动 (如 主动 推送 的 通知 后台 执行 的 任务 等 ) 。 

2. Xcode 

Xcode 是 苹果 公司 向 开发 人 员 提 供 的 集成 开发 环境 ,用 于 开发 MAC OS X 和 iOS 系统 下 
的 应 用 程序 ,目前 为 非 开源 状态 。 

Xcode 4 允许 开发 人 员 开 发 基于 iOS 系统 的 iPad iPhone iPod Touch 设备 上 的 APP, 只 
要 拥有 Mac OS X 10. 6. 2 以 上 版 本 的 Mac 操作 系统 , 便 可 安装 iOS SDK( 软 件 开 发 工具 包 )。 
如 果 用 户 拥有 iOS 设备 , 便 可 让 Xcode 把 应 用 程序 部 署 到 iOS 设备 上 ; 如 不 具备 iOS 设备 ,也 
可 以 使 用 iPhone 模拟 器 进行 调试 。 

Xcode 4.6 支持 iOS 6 以 上 版 本 ; Xcode 5 支持 iOS 7 以 上 版 本 (向 下 兼容 ); 当前 最 新 版 
本 为 Xcode 6, 支 持 iOS 7 和 iOS 8, 整 合 了 苹果 在 WWDC 大 会 发 布 的 最 新 语言 Swift。 

3. FireMonkey 

FireMonkey 是 Embarcadero ( 英 巴 卡 迪 诺 ) 公 司 推出 的 一 个 基于 CPU/GPU 混合 架构 的 
业务 应 用 平台 ,能 够 帮助 开发 人 员 设 计 出 Windows、Android、Mac 和 iOS 设备 上 的 视觉 绚丽 
的 本 地 应 用 程序 。FireMonkey 允许 开发 人 员 创 建 具 有 快速 的 本 地 性 能 、 动 画 和 图 像 效果 、 企 
业 级 的 数据 连接 以 及 交互 式 数据 可 视 化 的 富 HD 和 3D 的 图 形 应 用 程序 。 

FireMonkey 的 Livebindings 允许 用 户 把 任何 类 型 的 数据 或 信息 连接 到 任意 FireMonkey 
用 户 界面 (UD 或 图 形 对 象 上 。 

FireMonkey 包括 Delphi XE、C++Builder XE, 以 及 RAD Studio XE 工具 套件 ,后 者 包含 
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RadPHP 和 Embarcadero 的 Prism( 超 轻 量 开源 框架 ,实现 Web 系统 的 页 面 与 代码 分 离 ) 。 

4. VMware Fusion (for Mac) 虚 拟 机 

VMware Fusion (for Mac) 是 可 在 使 用 Mac OS 的 计算 机 上 无 缝 运行 Windows 操作 系统 
的 虚拟 机 软件 ,可 以 使 Mac 系统 和 PC 完美 结合 。 

通过 VMware Fusion 的 Unity 功能 可 以 实现 Windows 应 用 程序 和 Mac 应 用 程序 的 无 颖 
兼容 。 通 过 VMware Fusion 启动 程序 可 以 迅速 查找 和 启动 Windows 应 用 程序 。 通 过 
Expose 功能 可 以 在 Windows 应 用 程序 和 Mac 应 用 程序 之 间 快 速 切换 。 可 以 将 Windows 应 
用 程序 最 小 化 至 Mac OS X Dock 中 。 


14.1.2 开发 平台 的 软 硬 件 解决 方案 


在 Delphi XE 环境 中 开发 IOS APP 并 进行 模拟 器 或 真 机 调试 的 解决 方案 一 般 情况 有 以 
下 三 种 模式 。 

(1) 单机 模式 一 : 使 用 运行 Mac OS 的 苹果 计算 机 (MacBook Air、MacBook PRO、iMac 
或 者 Mac Mini) 和 在 Mac OS 内 部 的 虚拟 机 上 运行 的 Windows 7 系统 。 本 章 所 用 的 案例 均 采 
用 此 种 模式 调试 和 运行 , 即 硬件 上 拥有 一 部 苹果 计算 机 即 可 。 

(2) 单机 模式 二 : 使 用 普通 台式 计算 机 或 笔记 本 上 运行 的 Windows 7 系统 和 在 Windows 
内 部 的 虚拟 机 上 运行 的 Mac OS 系统 , 即 硬件 上 拥有 一 台 普 通 PC 即 可 。 


(3) 双 机 模式 : 需要 同时 拥有 一 台 运 行 Mac OS 的 苹果 计算 机 和 一 台 运 行 Windows 7 的 
普通 计算 机 , 双 机 利用 网 络 互联 。 此 种 模式 调试 方便 ,无 须 反 复 切 换 观察 运行 结果 和 调试 状 


态 , 但 是 硬件 配置 的 需要 较 高 。 
实践 证 明 , 采 用 单机 模式 一 将 程序 发 布 到 iOS 模 
拟 器 的 速度 最 快 , 其 余 两 种 模式 明显 偏 慢 ,不 利于 


-= 调试 。 

V 、 三 种 模式 中 具体 的 软件 版 本 要 求 为 : Mac 系统 必 
RE 须 是 Mac OS X 10.7 Lion 以 上 版 本 , Windows 系统 要 
Oo 求 Windows 7 SP1 以 上 或 者 Windows 8, 不 推荐 使 用 
[软件 更 新 ] XP, 因 其 对 多 核 CPU 支持 不 好 。 为 保证 兼容 性 推荐 使 

处 理 器 1.7 GHz Intel Core 15 用 Windows 7 SP1。 
内 存 4CB 1333 MHz DDR3 本 书 调试 iOS APP 时 所 用 的 系统 配置 如 下 : 
TT MacBook Air 笔记 本 (Intel Core i5 处 理 器 、4GB 内 
TR 全 0 下 存 ) ,运行 Mac OS X 10. 8.5 (如 图 14-1 所 示 ); 并 在 此 


基础 上 安装 了 VMware Fusion 虚拟 机 专业 版 5.0. 1， 
图 14-1 OS X 版 本 信息 及 基本 配置 ”虚拟 机 中 运行 Windows 7 32 位 旗舰 版 系统 ; Windows 
7 系统 中 安装 了 Delphi XE8 版 本 的 集成 开发 环境 。 


14.1.3 在 Mac 系统 上 配置 开发 环境 


(1) 首先 在 Mac 系统 中 需要 安装 Xcode 和 Command Line Tools, 可 以 在 苹果 开发 者 网 站 
上 下 载 后 自行 安装 ,网 址 为 https://developer. apple. com/downloads。 安 装 Xcode 并 启动 后 
出 现 的 项 目 管理 向 导 窗 口 如 图 14-2 所 示 。 
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Recents 


test1 
[bl] ~/Documents 


WhereAm 
3c73801af2ad160062 


temp! 
PASe 


Welcome to Xcode 2... 


Version 4.6.2 (4H1003) 


/ExampleApp-WhereAml 


scratch-dir/Administrator-TMIouchs 


Create a new Xcode project 
Start building a new Mac, iPhone or iPad 
application from one of the included templates 


Connect to a repository 
Use Xcode's integrated source Control features to 
work with your existing projects 


Learn about using Xcode 
Explore the Xcode development environment with 
the Xcode 4 User Guide 


Go to Apple's developer portal 
Visit the Mac and iOS Dev Center websites at 


所 E( | hb 
@@ 因 贺 匣 


developer.apple.com Last modified 14-11-4 下 午 2:19 
| Open Other... | 区 Show this window when Xcode launches | Cancel || Open 


14-2 Xcode 项 目 管理 向 导 


推荐 使 用 的 Xcode 版 本 为 4. 6.2,Command Line Tools 可 选择 对 应 操作 系统 的 版 本 ,如 
图 14-3 所 示 。 


Y Xcode 4.6.2 


The is the release version of the complete Xcode developer toolset for Mac iPhone. iPod touch, 
andiPad Itincludes the iOS 6 SDK and OS X 10.8 SDK. Xcode 4.6.2 requires OS X Mountain 


Lion or OS X Lion. 
b Command Line Tools (OS X Mountain Lion) for Xcode - April 2013 Apr 16, 2013 
b Command Line Tools (OS X Lion) for Xcode - April 2013 Apr 16, 2013 


图 14-3 Command Line Tools 


(2) 安装 时 注意 不 能 直接 在 DMG 文件 中 打开 后 运行 Xcode, 这 种 方式 的 Xcode 并 不 算 安 
装 完毕 ,正确 的 方式 是 将 Xcode 拖 动 到 Applications 目录 中 去 。 

(3) 安装 Command Line Tools 时 注意 不 能 在 Xcode 中 安装 ( 即 不 要 在 Xcode 菜单 的 
Preferences 的 Downloads 页 中 选择 Command Line Tools 来 安装 ) 。 如 图 14-4 所 示 的 方式 是 
错误 的 。 

正确 的 安装 方式 是 下 载 Command Line Tools 独立 安装 包 安 装 。 如 果 在 Xcode 内 部 安装 
Command Line Tools, 在 运行 XE 内 部 的 iOS 工程 时 会 出 现 “The following error was 
returned: Wrapper init failed: (null) “的 错误 提示 信息 。 

(4) 在 Mac OS 系统 中 安装 虚拟 机 软件 VMware Fusion ,推荐 的 版 本 为 专业 版 5.0.1 (如 
图 14-5 所 示 )。 


(eS 
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= 


| Components | Documentation 
癌 Check for and install updates automatically Check and Install Now 


酉 105 6.0 Simulator (573.4 MB) 
栈 '05 5.1 Simulator (614.5 MB) 
柄 i05 5.0 Simulator (554.1 MB) 


sa | 
Csal ) 
CE nsall  ) 


回 | 


Before installing, note that from within Terminal you can use the XCAUN tool to launch compilers and other tools embedded 
within the Xcode application. Use the XCODE-SELECT tool to define which version of Xcode is active. Type "man xcrum” 
from within Terminal to find out more. 


14-4 Xcode Downloads 下 载 列表 


VMware Fusion 


专业 版 5.0.1 (825449) 


版 权 所 有 全 1998-2012 VMware, Inc. 保留 所 有 权利 。 本 产 


品 受 美国 和 国际 版 及 知识 产权 法 的 保护 。 本 产品 爱 
htte://www.vmwore.com/cn/support/patents 网 站 列 出 
的 一 项 或 多 项 专利 保 # 


14-5 VMware Fusion 版 本 信息 


(5) 在 VMware 5. 0. 1 中 安装 Windows 7 的 32 位 版 ,并 在 Windows 7 中 安装 Delphi 
XE8( 如 图 14-6 所 示 ) 。 

单 击 VMware 虚拟 机 顶端 的 “设置 "按钮 ,进入 如 图 14-7 所 示 界 面 中 。 单 击 第 一 行 “系统 
设置 ?项 中 的 "处理 器 和 内 存 " 按 钮 后 ,为 当前 Windows 7 虚拟 机 分 配 占用 的 处 理 器 核心 数量 
和 内 配 的 内 存 。 

如 图 14-8 所 示 ,推荐 为 虚拟 机 分 配 两 个 处 理 器 核心 和 2GB 内 存 (2048MB) 。 
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广 香 


Win7 For XE 


14-6 ”虚拟 机 中 安装 Windows 7 的 启动 界面 


eon 可 Win7 Air for XE5; 设置 


系统 设置 

> [=] 
甸 区 二 四 | 
常规 共享 默认 应 用 程序 ”应 用 程序 菜单 键盘 与 限 标 。 处 理 吴 和 内 存 显示 器 


图 14-7 虚拟 机 中 Windows 7 设置 参数 


BO 对 Win7 Air for XE5: 处 理 器 和 内 存 


处 理 器 


内 存 

增加 为 虚拟 机 分 配 的 内 存 容量 可 以 提高 虚拟 机 的 性 能 ， 但 也 可 能 会 降低 其 他 运行 中 应 用 程序 
的 性 能 。 

= | 2048| 日 Me 


推荐 值 1024 MB 


+ 
时 
傍 
[3 
居 

人 


图 14-8 虚拟 机 Windows 7 设置 推荐 参数 
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14.1.4 利用 Xcode 的 模拟 器 调试 iOS 程序 


在 开发 过 程 中 如 果 不 使 用 iOS 设备 进行 真 机 调试 ,可 使 用 Xcode 的 模拟 器 iOS Simulator 
(如 图 14-9 所 示 )。 如 使 用 真 机 调试 ,需要 具备 真 机 , 即 iOS 66 
Device ,例如 iPod Touch ,iPad iPhone。iOS Device 推荐 运 


行 的 操作 系统 为 iOS 5.1 以 上 。 | 
iOS Simulator 无 须 使 用 实际 的 iPhone、iPad、iPod 下 
Touch 设备 就 可 以 测试 应 用 程序 ,通常 不 需要 直接 启动 版 坟 5.0 (369.2) 


iOS Simulator。 它 在 Xcode 运行 (或 是 调试 ) 应 用 程序 时 会 自 。 copyrem 82008 2012 Apple nc 各 一切 吧 利 。 
动 启动 。Xcode 会 自动 将 应 用 程序 安装 到 iOS Simulator 上 。 

iOS Simulator 是 个 模拟 器 ,但 并 非 仿真 器 。 两 者 的 区 
别 在 于 : 模拟 器 会 模仿 实际 设备 的 行为 。iPhone Simulator 会 模仿 实际 的 iOS 设备 的 真实 行 
为 。 但 模拟 器 本 身 却 使 用 了 Mac 上 的 各 种 库 ( 如 QuickTime) 进 行 泻 染 以 便 效果 与 实际 的 
iPhone 保持 一 致 。 此 外 ,在 模拟 器 上 测试 的 应 用 程序 会 编译 为 x86 代码 ,这 是 模拟 器 所 能 理 
解 的 字 节 码 。 实 际 的 iPhone 设备 使 用 的 则 是 ARM 代码 。 

以 下 为 Delphi XE 开发 环境 调用 Xcode 的 模拟 器 调试 iOS 程序 的 步骤 。 

(1) 为 了 开发 跨 平 台 (Windows 和 Mac 之 间 ) 应 用 ,必须 在 真正 编译 iOS APP 的 目标 平 
台 (Mac OS) 上 安装 和 运行 平台 助手 PAServer。 

PAServer 的 默认 服务 端口 号 为 64211。 相 比 过 去 版 本 的 PAServer 命令 行 工 具 , 在 XE8 
中 将 PAServer 制作 成 了 一 个 APP 应 用 程序 ,只 需 双 击 就 即 可 运行 。PAServer 的 安装 程序 在 
XE8 的 安装 目录 下 (如 图 14-10 所 示 ) : 


图 14-9 ”iOS Simulator 版 本 信息 


Program Fiels\Embarcadero\RAD Studio\16. 0\PAServer\PAServer 一 16.0. pkg 


本地 嫩 盘 (Cj ， Program Files ，Embarcadero ，RAD Studio ，120 ， PASever 
共享 ” 。 新 汗 文 件 夫 
名 称 大 小 修改 日 期 类 型 


munger.patch SKB 2013-12-08 0755 PATCH 文件 
RADPAServerXES.pkg 7612KB 2 PKG 文件 
鲁 setup_paserver.exe 58,824 KB 2013-12-08 06:09 应 用 程序 


图 14-10 PAServer 安装 文件 具体 路 径 


可 以 使 用 U 盘 或 网 络 共享 等 方式 将 PAServer 文件 夹 整 个 复制 到 Mac 系统 的 文档 管理 
中 (如 图 14-11 所 示 )。 

进入 PAServer 文件 夹 ,双击 执行 PAServer-16. 0. pkg 进行 安装 (如 图 14-12 所 示 ) 。 

准备 安装 , 单 击 ”继续 ”按钮 ,如 图 14-13 所 示 。 

在 安装 过 程 中 ,Mac 系统 需要 验证 当前 用 户 的 身份 ,填写 登录 Mac 的 用 户 名 和 密码 , 单 
击 ” 控 制 "按钮 ,如 图 14-14 所 示 。 

单 击 “关闭 ”按钮 后 安装 完成 ,界面 自动 关闭 。 

此 时 要 验证 是 否 安装 成 功 ,需要 单 击 “个 人 收藏 ?列表 中 的 ?应 用 程序 ”。 在 应 用 程序 窗口 
中 下 拉 滚 动 条 找到 PAServer-16. 0, 说 明 安 装 成 功 ( 如 图 14-15 所 示 ) 。 

双击 PAServer-16. 0 图 标 , 启 动 PAServer 服务 。 在 启动 该 服务 后 ,如 图 14-16 所 示 ， 
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起 Finder 文件 编辑 显示 前 往 窗口 帮助 
国文 稿 


EEC EEC 生生 天 


2013 年 8 月 新 版 aMule Downloads 。 C# 3.0 与 .NET 3.5 高 C# 开 发 技术 大 全 


级 编程 
一 一 一 一 一 一 一 
AAC 版 文化 基础 课件 Matrix Microsoft 用 户 数据 Music 
国 影片 
次 应 用 程序 _ 
中 音乐 
a Cs l= 
运 SkyDrive SQL Server SQL Server 数 据 库 技 毕 设 资料 
全 ee A Management Studio 术 大 全 
ce 一 一 
虚拟 机 PAServer 


。 54 项, 17.61CB 可 用 


图 14-11 Mac 系统 中 的 安装 文件 复制 路 径 


铝 Finder 文件 编辑 显示 前 往 窗口 帮助 


4 奢 男 ] [次 攻 
个 人 收藏 

转 文稿 本 > 

筷 skyDrive re D3 

息 快 盘 munger.patch RADPASeVerXES Psetup_paserver.exe 
辐 图 片 kg 

OT 

国 影片 网 昌 用 wp “RADPAServerXE5.pkg" 简 介 

次 应 用 程序 3 RADPAServerXE5.pkg 7.8 MB 

中 音乐 贱 全 时间，2013 年 12 月 8 日 星期 日 上午 6:09 

了 Spotlight 注释 
设 

@ 远程 光盘 

NONAME < 


科 类 : 安装 器 软件 包 

大 小 : 7,793,920 字 节 (磁盘 上 的 7.8 MB) 

位 置 : /Users/Fangji/Documents/PAServer 
创建 时 间 ; 2013 年 12 月 8 日 是 期 日 上午 6:09 
修改 时 间 : 2013 年 12 月 8 日 星期 日 上午 6:09 


图 14-12 安装 器 软件 包 信 息 


PAServer 窗口 显示 “Connection Profile password 二 press enter for no password 二 ”提示 信 
息 , 此 时 用 键盘 输入 用 户 自 定义 的 连接 密码 并 回 车 。 
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欢迎 使 用 "RAD PAServer XE5" 安 装 器 


目的 宗 卷 安装 器 将 引导 您 完成 安装 此 软件 所 需要 的 步骤 。 


TY 
wa Bs: 
! 


图 14-13 ”安装 器 运行 步骤 


“Developer Tools Access" 正 试图 控制 另 一 进程 
键入 您 的 密码 以 允许 执行 此 操作 


名 称 : [方法 ] 
密码 : 


回 [| 项 史 司 


图 14-14 验证 用 户 身份 界面 


2 e 


Launchpad 
Photo Booth 
Safari Time Machine Xcode-beta 


14-15 ”应 用 程序 安装 后 位 置 


©@ 
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fmb: 


istant Server Version 4.2.9.95 
Copyright (c) 2999-2613 Embarcadero Technologies, Inc. 


Connection Profile password <press Enter for no password>: 
Acquiring permission to support debugging...succeeded 


Starting Platform Assistant Server on port 64211 


Type ? for available commands 


: 6AAB: 6DFF:FE9A:EE98 


图 14-16 启动 PAServer 服务 后 的 控制 台 信息 


注意 : 输入 密码 过 程 中 当前 行 没有 任务 字符 显示 。 如 果 密 码 错误 则 不 能 启动 PAServer 
服务 ,密码 正确 会 提示 “succeeded . Starting Platform Assistant Server on port 64211”。 此 时 
已 经 成 功 打 开 进 程 ,端口 64211 也 打开 并 监听 中 。 

在 命令 行 输入 “i” 并 回 车 ,会 显示 当前 网 卡 物理 地 址 和 分 配 的 IP 地 址 以 供 后 续 连 接 调试 
之 用 。 如 果 需 手工 设置 静态 IP 地 址 , 则 需 进 行 下 一 步 的 操作 。 

(2) 在 安装 PAServer 后 ,还 需要 配置 一 下 MAC OS 的 IP 地址, 以便 让 XE8 开发 环境 能 
与 PAServer 监听 服务 程序 连接 以 传递 数据 。 

Q@ 在 Mac 系统 中 的 顶端 Finder 主 菜单 中 选择 “前 往 ”|“ 应 用 程序 ”命令 ,如 图 14-17 所 示 。 


中 的 上 层 文 件 夹 


晶 我 的 所 有 文件 
全 文稿 0O%0 
加 来 面 0%D 
人 加 下 载 TRL 
人 委 个 人 
导电 脑 
@ AirDrop 
作 网 络 


六 
关 实用 工具 
最 近 使 用 的 文件 夹 


前 往 文件 天 RG | 
连接 服务 器 .… sk | 


14-17 利用 应 用 程序 配置 IP 地 址 


@ 在 “应 用 程序 ”窗口 中 双击 “系统 偏好 设置 ”, 然 后 继续 单 击 “ 网 络 ”, 如 图 14-18 所 示 。 
@ 单 击 “ 网 络 ” 窗 口 右 下 角 的 “高 级 ”按钮 ,在 配置 IPv4 中 ,选择 “使 用 DHCP( 动 态 分 配 地 
址 )” 或 手动 分 配 ” 都 可 以 ,IP 地 址 中 需 填 入 固定 的 一 个 内 网 IP, 与 Windows 系统 在 同一 网 段 
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互联 网 与 无 线 
@ ®@ 8 加 
iCloud 。 部 件 、 全 网 络 蓝牙 共享 


14-18 系统 偏好 设置 中 的 网 络 位 置 


就 可 以 。 单 击 底 端 * 应 用 按钮。 注意: 图 14-19 中 路 由 器 自动 分 配 的 IP 地 址 192. 168. 3. 22 
在 XE8 的 连接 管理 中 需要 手动 输入 以 连接 Mac 系统 中 运行 的 PAServer 服务 程序 。 


eoe 网 络 


Wi-FT 已 连接 至"DIR-629"， 其 IP 地 址 为 


@ HUAWEl Mobile .> 192.168.3.22。 
@ UsBEthenet Cy 网 络 名 称 : 「 DIR-629 引 
@ iPhone USB 目 回 询 问 加 入 新 网 络 

未 连接 


将 自动 加 入 已 知 网 络 。 如 果 没 有 已 知 网 络 ， 涯 海 问 
区 是 否 加 入 新 网 络 ， 


日 蓝牙 PAN @ 
无 IP 地 址 


EE 回 在 菜单 栏 中 显示 Wi-Fi 状态 高 级 ] (?) 


EL 点 按 锁 技 妞 以 防止 再 次 更 改 。 [向 导 .， | [复原 应 用 


图 14-19 IP 地址 的 参数 设置 


(3) 启动 PAServer 并 设置 网 络 参 数 后 ,需要 配置 XE8 环境 下 的 连接 配置 信息 。 
@ 此 时 打开 虚拟 机 中 的 Windows 7, 打 开 Delphi - 
XE8。 单 击 主 菜单 Tools| Options 选项 (图 14-20) 。 Be Mor He 
@ 在 Options 窗口 中 , 单 击 Connection Profile 四 Template Libraries.. 
Manager, 在 右 侧 下 方 单 击 Add 按钮 。 如 图 14-21 所 示 ,在 向 gee 
导 窗 口 的 Profile name 文本 框 中 输入 自 定 义 的 配置 名 称 
“TMIouch5”,Platform 中 选择 OS X 平台, 并 单 击 Next 按钮 。 图 14-20 连接 配置 信息 的 配置 方式 
@ 如 图 14-22 所 示 , 输 入 虚拟 机 外 部 Mac OS 的 IP 地 
址 ,端口 号 默认 64211, 再 输入 用 户 自 定义 连接 密码 ,完成 后 单 击 Test Connection 按钮 测试 
连接 。 
如 果 连 接 成 功 , 则 显示 如 图 14-23 所 示 的 成 功 信息 。 
如 果 输 入 无 效 的 外 部 Mac 系统 的 全 地 址 ,会 显示 连接 指定 了 P 和 端口 失败 ,如 图 14-24 所 示 。 
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G Create a Connection Profile “= 
Py 
Profile information 


This weard wil assist you im creating a connection profie. Connection profles are requred m order to 
deploy and run a project on a remote machine. More nformation on instaling PAServer 


Please specfy a profie name and select a platform for this profie. 


Brofile name: 
TMIouch| 
Platform: 
Osx 


回 Set as defaukt for the selected platform 


<< Back | (Next>> Fnsh Cancel | | Hep 


14-21 配置 文件 名 和 平台 选择 


@ Create a Connection profile 下 [| 
Remote machine information 
I Please specify either the remote machine name or the remote machine's IP address, A connection 
profile enables you to connect to the target platform only when PAServer s installed and running on 
the remote machine. More nformation on nstaling PAServer 
Remote machine (Jp address or Machine name): 
192.168.3.22 - 
Port number: 
64211 - 
Password: 
Cree 
Test Connection 
| 
<< Back Next >> Fneh | [ Gncel | [ Hep 


14-22 配置、 端口 及 密码 


Connection to '192.168.3.22' on port 64211 
succeeded 


| Go) 


14-23 ”连接 成 功 显示 信息 


第 14 章 ios 应 用 程序 设计 “365 | 


如 果 输 入 的 密码 与 PAServer 服务 设 定 的 密码 不 相同 ,会 显示 远程 连接 失败 ,无 效 的 用 户 


名 或 密码 ,如 图 14-25 所 示 。 


Information 


Connection to '192.168.3.16' on port 64211 
failed. 


Please make sure that ‘Platform Assistant 


Server is running on the host machine and 
is configured to use port 64211 


eta) 


14-24 输入 无 效 地址 引发 错误 信息 


一 x 
me ed [= 
0@ TDBXError: Remote error: Authentication 
manager rejected user credentials. This may 
due to invalid combination of DS user 
name and password 


Information 


14-25 输入 错误 密码 引发 错误 信息 


整个 配置 信息 添加 完成 后 。 在 中 间 列 表 中 会 显示 刚 添 加 的 基于 OS X 的 TMIlouch5 配置 


名 称 。 当 后 续 出 现 外 部 Mac 系统 的 IP 地 址 发 生 改 动 时 ,用 户 只 需 在 此 进入 该 界面 ,选中 配置 
文件 名 ,在 右 侧 修改 主机 IP .端口 号 和 密码 ,再 次 单 击 Test Connection 按钮 测试 连接 ,成 功 后 
退出 设置 即 可 (如 图 14-26) 。 


Goptions 


Bb 


4.Environment Options 

| ~ Object Inspector 

| 4 ToolPalette 

Colors 

Component Toolbar 
Environment Varables 
Difference Viewer 
Merge Viewer 
Reopen Menu 
Project Upgrading 
Connection profie Manager 


Profles: 


OSX 
TMIouch5 


所 ipodtouch5 
myphone5 
test001 


IOS Simubtor Pr… 


TrueMachineTou.… 


Profile properties 


pbtform:|9SX 


Host name: 192.168.3.22 - 
Port number: 64211 


Password: seeeeeee 


| “provsloning 
4 Form Designer 
Device Manager 
Explorer 
4-Delphi Options 
Library 
Library - Translated 
Type Lbrary 
SDK Manager 
4 Edtor Options 
Source Options 
Color 
Display 
Key Mappings 
Code Insight 
LveBndngs 
4 -HTML Options 
HTML Formatting 
4 Transiation Took Options 
Color 
Font ~ 


‘ mr 


图 14-26 配置 成 功 后 在 对 话 框 中 显示 信息 


(4) 在 安装 PAServer 之 后 ,在 Mac 系统 的 当前 用 户 会 产生 一 个 RADPAServer 目录 ,如 
图 14-27 所 示 。Delphi XE 会 通过 PAServer 将 编译 好 的 APP 传输 到 Mac 下 的 这 个 目录 中 去 。 

进入 当前 目录 可 见 每 个 在 XE 中 编译 的 程序 所 生成 的 目录 (图 14-28) ,目录 名 是 根据 当前 
虚拟 机 中 Windows 用 户 名 加 上 Profile 名 自动 生成 。 例 如 ,当前 用 户 Administrator, XE 中 连 
接 配 置 名 TMIouch5, 则 目录 名 为 Administrator- TMIouch5。 这 种 命名 方式 对 中 文 支持 不 
好 ,因此 如 果 Windows 用 户 名 使 用 了 中 文 ,可 能 会 出 现 Deploy (部署 ) 失 败 的 现象 , 即 不 能 将 


Information 


Connection to '192.168.3.22' on port 64211 
succeeded 


[ox] 


Bea] (Coo) [ea (Deete [Eee [ae 


和 


508 01/33/39,515 01/33/40,811 


[ 


i 人 国 


yns Applications 
(Parallels) 


图 14-27 RADPAServer 传输 目录 


编译 好 的 APP 传输 至 Max 系统 的 目录 下 。 因 此 不 推荐 Windows 用 户 名 包含 中 文字 符 。 


克昌 片 Administrator- Administrator- Administrator- 
OT test001 TMlouchs TrueMachineTouchS 


14-28 ”编译 后 程序 所 在 目录 信息 


另外 由 图 14-29 可 见 , Finder 的 个 人 收藏 列表 中 ,默认 不 会 出 现 当前 用 户 项 ,要 能 找到 
PAServer 目录 ,还 需要 在 Finder 主 菜单 的 偏好 设置 中 将 当前 边栏 显示 的 当前 用 户 名 前 的 复 
选 框 选 中 (图 14-30) 。 


Finder 偏好 设置 
nk 号 加 区 
在 边栏 中 显示 这 些 项 目 : 
个 人 收藏 
关于 Finder 口 昌 我 的 所 有 文件 
口 二 Airprop 
偏好 设置 … %, 加 次 点 用 程序 
清 倒 废 纸 答 。 分 只 甸 吕 国 粳 
安全 清 倒 记 纸 得 四 本 六 
dOrs 
服务 > 回国 8 上 
隐藏 Finder 种 H Si 
隐 荐 其 他 站 H 到 
全 部 豆 示 已 全 Pi 


图 14-29 显示 编译 目录 需 进行 的 操作 图 14-30 ”编译 目录 需 选中 用 户 项 目 
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(5) 在 前 几 个 步骤 完成 后 ,开始 进入 到 利用 iOS 模拟 器 的 调试 阶段 。 注 意 : 使 用 iOS 真 
机 调试 的 前 几 个 步骤 与 模拟 器 调试 的 设置 完全 相同 。 

进入 XE 开发 环境 中 , 单 击 主 菜单 File| New| FireMonkey Mobile Application-Delphi ,在 
类 型 向 导 的 8 种 类 型 中 选择 第 一 种 Blank Application ,如 图 14-31 所 示 。 


@ FireMonkey Mobile Application [| 


FireMonkey Mobile Application | 
Select a FreMonkey Mobile Application type. 


0] 


Blank Application 3D Application Header/Footer 
The 3D Application Template is a jumping off point for creating a 3D mobie | 
lapplication based on a 3D Form. 
Em | Cone | He | 


图 14-31 选择 应 用 程序 类 型 
如 图 14-32 所 示 ,默认 生成 的 APP 框架 为 基于 安 卓 系统 的 Google Nexus 4 机 型 。 


区 图 | [SeeseNews4 = 


Google Nexus4 
Google Nexus7 
Google Nexus7 (2013 


Google Nexus 10 
Samsung Galaxy S2 


图 14-32 ”选择 设备 型 号 
要 改 为 iOS 设备 ,可 在 右上 角 的 设备 选项 下 拉 列 表 中 选择 iPhone 5 机 型 ,如 图 14-33 所 示 。 


春 WacomePaoe| 图 Ios 01 01u 


区 图 | [henes ~][ios6 ~ 
iphone < 
iphone5 
ipad 


I 


图 14-33 ”iOS APP 需 选 择 的 版 本 
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与 此 同时 还 需要 在 右上 角 的 项 目 管 理 器 中 修改 默认 的 目标 平台 选项 ,从 Android 改 为 
iOS Device, 如 图 14-34 所 示 ,默认 的 Target Platforms 是 Android, 用 黑体 加 粗 显示 。 
如 图 14-35 所 示 ,要 改 为 iOS 模拟 器 ,只 需 在 目标 平台 的 层 琶 列表 中 用 鼠标 右键 单 击 iOS 


Simulator, 在 弹出 菜单 中 选中 Activate 命令 激活 该 选项 即 可 。 


全 9 
间 - 攻 | 臣 盖 -| 
马 但 伯 | 温 - 名 | 坊 - O- 
Fie 
品 projectGroupl 四 
日 凶 Ios_o1_ 01 门下 区 | 归 国 "| 
田 - 雹 Buld Configurations (Debug) = 3 
3 日 © Target pbtforms (iOSDevice) 乞 血 但 | 所- 多 | "oO 
日 QD ios Device - iphoneOS 6.1... 
EE 9 后 
| | DO Target 司 维 ProjectGroupl 区 | 
备 各 但 | 温 - 玫 | 名 -Oo- | 转 斩 Configuration 3 加 1I0s_01_01 
去 = 田 者 Buid Configurations (Debug) 
5 Edit SDK.- © © Target platforms (iOSSimulator) 
本 Pt Revert to Default SDK 白 - 口 os Device - PhoneOs 6.1 - …。 
日 鸣 Buid Configurations (Debug) Edit Connection... 由 外 a - 
i Revert to Default Connection © 口 os simulator - TMIouchs ... 
Release 
© Target pbtforms (Android) Activate 四 gh 村 pas 
下 项 Android - Android SDK 22.0.... Delete 01 02 ul 
由 口 os Device - Phoneos 6.1 - TML.. 
由 - 口 os Simulator - TMIouch5 profie Properties.. = 


图 14-34 目标 平台 的 配置 修改 图 14-35 激活 平台 后 显示 信息 
新 建 工程 IOS_01_01 后 ,在 默认 窗 体 上 放置 若干 组 件 ,如 一 个 标签 (显示 Hello CCZU)， 
顶端 放置 了 三 个 不 同样 式 的 按钮 ,以 及 一 个 进度 条 组 件 和 一 个 日 期 组 件 。 这 些 组 件 的 属性 、 事 


件 和 方法 在 此 不 逐个 讲解 。 

编译 程序 显示 的 项 目 和 部 署 信息 如 图 14-36 所 示 。 

将 该 工程 的 所 有 文件 保存 后 ,执行 运行 命令 后 ,可 以 看 到 如 图 14-37 所 示 , 在 XE8 界面 底 
端的 信息 显示 栏 显示 了 基于 TMIouch5 连接 的 编译 信息 和 所 耗 时 间 。 


E loy 
Project: CWXES Programs\IOS_01_01.dproj 
Deploying: iOSSimuletor\Debug\IOS_01_01.-rsm 


Current ine: 0 |Total ines: 0 
bem 
Hints: 0 |Wamings: 0 | Emors: 
Messages 


习 pacient command Ine for "TMIouch5” 


pce coed fer eT 
Success 


ses deste Elapsed time: 00:00:13.3 
图 14-37 基于 配置 参数 连接 显示 的 信息 


14-36 ”编译 时 显示 的 项 目 和 部 署 信息 


编译 成 功 后 在 XE8 环境 中 本 身 不 会 显示 任何 程序 运行 的 信息 ,而 是 弹出 如 图 14-38 所 示 
的 信息 框 ,提示 用 户 切换 到 Mac 系统 中 去 观察 iOS 模拟 器 中 的 运行 结果 。 而 此 时 在 Mac OS 
的 Dock 栏 上 RAD PAServer XE8 图 标 会 不 停 地 弹跳 办 动 , 并 且 iOS 模拟 器 自动 启动 并 运行 


编译 后 的 程序 。 
Dock 栏 是 Mac OS 系统 特有 的 一 种 用 于 切换 运行 中 应 用 程序 的 功能 界面 ,类 似 于 
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Application Launched 下 [| 


【i Compilation complete. Please switch to the machine specified in the profile IOS Simulator 
Profile” 


OK 


Don't show me this again. 


图 14-38 ”编译 成 功 后 的 提示 信息 


Windows 系统 底 端的 任务 栏 。 用 户 可 以 自行 拖 动 以 调节 


Cursor crDefaukt 
Dock 栏 的 位 置 ,如 图 14-39 所 示 。 该 Mac 系统 中 Dock 栏 位 gl (Brush) 
二 局 痢 二 、 za -二 一 人 人 pl 4 一 Da We 引 FormFactor (TFormF 
于 屏幕 左边 ,从 上 到 下 的 三 个 图 标 依次 为 : 运行 中 的 终端 (内 Poise [lore 
部 为 PAServer 监听 程序 ) .iOS 模拟 器 .RAD PAServer XE8。 ne es 


单 击 iOS 模拟 器 图 标 后 会 显示 如 图 14-40(a) 所 示 的 模拟 nd 
器 运行 界面 。 此 时 用 鼠标 单 击 底 端的 Home 键 相当 于 模拟 用 图 14-39 Dock 栏 上 闪 动 的 图 标 
际 按 下 Home 键 的 状况 ,此 时 如 图 14-40(b) 所 示 , 返 回 
到 主屏 幕 上 ,有 该 程序 IOS_01_01 的 图 标 。 


4:56 PM 4:56 PM 


N10/14 
WAN 10S 01 .01 test2 Project1 Phone...ation 


Hello CCZU 


(a) (b) 
图 14-40 模拟 器 运行 界面 
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如 果 继 续 双 击 Home 键 ,相当 于 执行 了 双击 Home 键 的 操作 ,此 时 模拟 器 运行 结果 如 
图 14-41(a) 所 示 , 底 端 弹出 当前 正在 运行 的 程序 列表 。 hgistten eee 
其 终止 。 拖 动 鼠 标 在 屏幕 上 左右 滑动 时 ,会 模拟 日 常 使 用 中 的 翻 屏 操作 。 依 次 单 击 “ 设 置 ” 
|“ 通用 ”1“ 关 于 本 机 ”, 弹 出 界面 中 显示 了 当前 模拟 器 的 版 本 信息 ,如 图 14-41(b) 所 示 , 为 
iOS6. 1(10B141) 的 版 本 信息 。 


:57 PM 


iPhone Simulator 


Songs 


Videos 
Photos 

Applications 

Capacity 

Available 

Version 6.1(10B141) 


Model N/A 


(a) (b) 
图 14-41 任务 栏 显示 和 设置 中 版 本 信息 


模拟 器 运行 完毕 后 ,如 果 需 要 关闭 当前 运行 的 程序 ,需要 在 Dock 栏 用 鼠标 右键 单 击 iOS 
模拟 器 图 标 ,在 弹出 菜单 中 执行 退出 操作 即 可 (图 14-42)。 


选项 » 


显示 所 有 窗口 
隐藏 
运 出 


图 14-42 关闭 模拟 器 的 方式 


(6) 本 章 采 用 的 是 Delphi XE8 和 Xcode 4. 6. 2 的 开发 平台 组 合 。 如 采用 Xcode 5, 由 于 

Xcode 5 默认 自 带 SDK 7.0, 升 级 Xcode 5 后 ,SDK 6. 0 就 被 覆盖 。 此 时 若 想 编译 SDK 6 的 程 

,需要 同时 安装 Xcode 4. x 和 Xcode 5. x 两 个 版 本 ; 或 者 将 旧版 本 的 SDK 加 入 到 新 版 的 
Xcode 中 去 ,方法 如 下 。 

@ 打开 旧版 本 Xcode 的 安装 路 径 ( 可 以 从 Xcode 的 dmg 安装 包 中 解压 出 对 应 的 SDK 

包 ) ,路 径 为 Applications /Xcode. app /Contents /Developer /Platforms /iPhoneOS. platform 

/Developer /SDKs。 此 路 径 中 包含 当前 Xcode 的 所 有 Base SDK( 例 如 iPhoneOS 6. 1. sdk)， 
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这 时 只 需 将 这 个 SDK 复制 到 新 的 Xcode 相同 目录 下 即 可 。 

@ 重启 Xcode 5, 打 开 Project Targets| Build Settings|Base SDK ,设置 为 对 应 的 SDK 即 
可 (例如 iOS 6)。 

@ 这 时 运行 的 模拟 器 还 是 iOS 7 版 本 ,要 启动 iOS 6 的 模拟 器 ,需要 到 路 径 / Applications/ 
Xcode. app/ Contents/ Developer/Platforms/iPhoneSimulator. platform /Developer /SDKs 下 将 
对 应 的 Simulator 复制 到 新 的 Xcode 路 径 下 即 可 。 


14.1.5 在 XE 环境 中 进行 iOS 真 机 调试 


在 Xcode 上 开发 的 程序 默认 只 能 在 iOS Simulator 中 运行 ,如 果 需 在 真 机 上 运行 , 则 需 购 
买 苹果 开发 者 证 书 (iPhone iPad iPod Touch Developer Program,iDP)。 

(1) 在 调用 真 机 的 目标 平台 (Mac OS) 上 安装 PAServer。 

(2) 安装 PAServer 后 ,继续 配置 MAC OS 的 IP 地 址 。 

(3) 在 启动 PAServer 并 设置 网 络 参数 后 ,需要 配置 XE8 环境 下 的 连接 配置 信息 
(Connection Profile Manager) 。 

(4) 在 前 三 个 与 模拟 器 调试 完全 相同 的 设置 完成 后 ,需要 继续 在 Option 对 话 框 左 侧 列表 
中 添加 SDK 信息 ,选择 SDK Manager, 如 图 14-43 所 示 。XE8 系统 可 以 添加 三 个 平台 的 SDK 
信息 ,依次 是 Android\iOS Device、Mac OS X。 


Goptions [x | 


4 Envronment Options 2 
Object Inspector - SDK versions: SDK Properties 
4 Tool Palette Android Local root drectory: 
Colors 
pn ent oobi S$(BDSPLATFORMSDKSDIR)\PhoneOS6.1.sdk >- 国 
Environment Variables iOS Device Remote paths: 
Difference Viewer | 
Pee he [imoneos ET) | FlemasWFrameworkname subdrecores “| 回 
Reopen Menu OSX Include paths 
project Upgrading - EE 
Connection Profile Manager Command Line... i 
Provisioning Library paths [9 
4-Form Designer 而 | 
Device Manager ati No 回 
Explorer art1.3.1.0 No 
4.Delphi Options lbiconv.dyib No 
Lbrary lbobjc.A.dylb No 
bm Et libsalte3.dylib No 
ype Library 
a libstdc++.dyib No 
-Editor Options lbSystem.dyib We, 
Source Options 有 bSystem.B.dyib No 
Color lbz.dyib No 
Display lbcache.dyib No 
Ky Mappings lbcommonCrypto.d N 
Code Insight ny 让 2 
LiveBindings ea - y 同 
4 HTML Options . 
HTML Formatting Update Local Fie Cache 
4 Translation Took Options 
Color 
Eee Adad |[ Delete | Epok: |[ Impor | 
Cor ][ Gnce |][ Hep 


图 14-43 ”SDK 管理 界面 


Q@ 单 击 Add 按钮 ,添加 一 个 SDK。 在 弹出 的 对 话 框 中 ,选择 iOS Device, 选 择 上 一 步 刚 
刚 建立 的 TMIouch5 连接 配置 文件 (括号 内 是 该 文件 的 主机 IP、 端 口 等 重要 信息 ), 最 后 一 个 
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列表 中 选择 iPhoneOS 6. 1, 单 击 OK 按钮 保存 ,如 图 14-44 所 示 。 


Adda NewS5DK ED Ee 
Select a platform: 
[os Device = 


Select a profie to connect: 
[TMlouchs, (Host: 192.168.3.22, Port Number ‘64211') M2 


Select an SDK version: 
[Phoneos 6.1 ~ 


加 Make the selected SDK active 
OK Cancel Help 
14-44 ”选择 平台 、 配 置 文件 和 版 本 号 


@ 此 时 回 到 如 图 14-43 所 示 的 界面 , 单 击 右 侧 列表 下 方 的 Update Local File Cache 按钮 ， 
然后 出 现 如 图 14-45 所 示 的 界面 ,将 更 新 XE8 环境 中 的 SDK 文件 。 


一 一 - 一 


Updating Local File Cache 
re 


Processing 12 of 54 Kems 
| | 
Updating files from remote machine 
Ee= 到 
Detais 
Fle: 
| 
Path: 
Log: 


14-45 更 新 本 地 SDK 文件 


@ 更 新 成 功 后 还 可 以 单 击 Export 按钮 将 SDK 导出 备份 ,或 者 单 击 Import 按钮 将 外 部 
SDK 信息 导入 XE8 中 。 图 14-46 即 为 导出 SDK 选择 文件 名 和 路 径 的 内 容 , 后 缀 名 即 为 SDK。 

(5) 在 添加 了 基于 iOS Device 的 SDK 信息 后 ,需要 在 Mac OS X 系统 中 安装 开发 者 证 
书 。 打开 Mac OS X 系统 , 单 击 Finder 主 菜单 中 的 “前 往 ”|“ 实 用 工具 ”命令 ,双击 “钥匙 串 访 
问 ”, 如 图 14-47 所 示 。 

单 击 主 菜单 “钥匙 串 访问 ”| 证 书 助 理 ?|* 从 证 书 颁发 机 构 请 求证 书 ”。 

填写 用 户 电子 邮件 地 址 : 建议 使 用 iOS 设备 的 AppleID 邮箱 ,如 XXX@cczu. edu. cn。 常 
用 名 称 : 填写 个 人 简称 或 团队 名 称 , 它 将 用 作 MAC 中 的 钥匙 名 称 ,相当 于 证 书 在 MAC 中 的 
名 称 , 用 于 签名 程序 。CA 电子 邮件 地 址 可 与 AppleID 的 邮箱 地 址 相同 。 选 中 “存储 到 磁盘 ” 
选项 ,再 选择 位 置 , 单 击 “存储 ?按钮 。 此 时 ,已 在 Mac 桌面 生成 一 份 证 书 申请 文件 ,如 图 14-48 
所 示 。 此 后 的 申请 操作 都 在 苹果 公司 的 开发 者 官网 中 完成 ,网 址 是 developer. apple. com, 具 
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ee mn am | 
上 aC) » XES Programs » -| 号 中 殉 半 XE5 Programs 
EF” 

组 织 ” 。 新 建文 件 夹 © 
Via 这 名 称 修改 日 期 引 
性 点 面 bh iOSDevice 2014-09-03 09:28 习 
芝 最 近 访 问 的 位 置 |= hb iOSSimulator 2014-09-03 10:36 习 

上 测试 文件 基本 组 成 2014-09-28 14:51 习 
油库 
岂 视 频 
马 图 片 
3 文档 
消音 乐 
2 ~ 4 四 上 
文件 名 (N): ~ 
保育 类 型 (D: [SDK files (+sdk) -| 
S emt [sse | 


14-46 ”导出 SDK 备份 文件 


加 图片 Adobe Flash Player 。 AirPort 实用 工 AppleScript 编辑 Boot Camp 助 
@ 下 载 Install Manager.app app 器 .app 理 .app 
筷 skyDrive GCC 站 
和 X 并 图 加 
国 影片 
中 音乐 Xll.app 珊 盘 工具 .app 活动 监视 器 .app 控制 台 .app 
伐 Fangji 
几 罗 0 
锅 匙 申 访 问 .app 音频 MIDI 设置 .app 次 端 .app 抓 图 .app 


图 14-47 实用 工具 中 选择 开发 者 证 书 


体 流程 请 参见 官网 详细 说 明 。 

在 开发 者 证 书 购 买 完毕 后 ,导入 该 证 书 可 以 在 “钥匙 串 访问 ” 左 侧 列表 的 证 书 中 看 到 如 
图 14-49 所 示 的 系统 内 当前 所 有 安装 证 书信 息 。 高 亮 模式 显示 的 一 行 就 是 安装 的 iPhone 
Developer 证 书 。 

如 图 14-49 所 示 ,双击 证 书 名 称 所 在 行 ,在 弹出 的 窗口 中 可 以 查看 证 书 使 用 的 截止 期 限 ， 
图 中 证 书 有 效 期 到 2015 年 10 月 31 日 截止 。IDP 证 书 开发 者 个 人 版 及 公司 版 为 99 美元 /年 ， 
企业 版 299 美元 /年 ,到 期 需要 重新 购买 才能 继续 进行 真 机 调试 和 发 布 。 
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eoe | 
。_ 负 是 串 
呈 本 录 | iPhone Developer: Liang Zhenjing (88E2F9TLGU) 
Micr,..ertificates | 签发 者 : Apple Worldwide Developer Relations Certification Authority 
局 系统 | 过 斯: 2015 年 10 月 31 日 星期 六 中 国标 准时 间 下 午 9 时 15 分 01 秒 
司 系统 根 证 书 | 名 此 证 书 有 效 
种 类 
| 区 zoll_11.08 证 书 
| Apple Application ntegration Certification Authority 证 书 
| 园 Apple poor CA 证 书 
| BB Apple Timestamp Certification Authority 证 书 


» 8 com.apple.idms.appleid.prd.49784..f5334694f464f4277666f595378673d3d 证 书 
» BB com.apple.idms.appleid.prd.49784...15334694f464f4277666f595378673d3d 证 书 
| * 国 com.apple.idms.appleid.prd.49784...f5334694f46414277666f595378673d3d 证 书 
| * 回 com.apple.idms.appleid.prd.49784.. 15334694f464f4277666f595378673d3d 证 书 
| * 辐 com.apple.idms.appleid.prd.49784.. f5334694f464f4277666f595378673d3d 证 书 
| pcom.apple.idms.appleid.prd.49784..15334694f464f4277666f595378673d3d 证 书 
入 | * BB com.apple.ubiquity.peer-uuid.587E9E03-4B15-49B8-9F8A-6B89BB0D0219B 。 证 书 
| 
| 


内 所 有 项 目 * EG com.apple.ubiquity.peer-uuid.99187476-6977-4510-8748-D5812251D823 ”证 书 

必 . 宙 加 PG com.apple.ubiquity.peer-uuid.C6E692FC-C62D-461F-88C2-88740177CB03 ”证 书 

安全 备注 » BG com.apple.ubiquity.ssl-cert.587E9E03-4815-49B8-9F8A-689B80D02198 。。 证书 

加 如 的 证 忆 上 葬 “om.apple.ubiquiry.ssl-cert.99187476-6977-4510-874B-D5812251D823 “证 书 
Uiang 2 

里 更 钥 | 民 Noc 证 书 

癌 证 | 艺 入 证 书 


图 14-48 安装 开发 者 证 书 的 信息 


iPhone Developer Liang Zhenjing (88E2F9TLGU) 
签发 者 : Apple Worldwide Developer Relations Certification Authority 
过 期 2015 年 10 月 31 日 星期 六 中 国标 准时 间 下 午 9 时 15 分 01 秒 


日 此 证 书 有 效 
3 A 种 类 
2011_11_08 证 书 
日 a 2 
园 
日 iPhone Developer Liang Zhenjing (88E2F9TLGU) 
* 园 oo 签发 者 : Apple Worldwide Developer Relations Certification Authority 
?加 过 斯 : 2015 年 10 月 31 日 是 期 六 中 国标 准时 间 下 午 9 时 15 分 01 秒 
* 国 co 名 此 证 书 有 效 
* 回 ea 
* 回 co 
* 回 co 
pb co 
号 近 ZL5Ql888YX 
图 吧 iPhone Developer: Liang Zhenjing (88E2F9TLCU) 
» 蕊 EE YY5VS852CZ 
* 葬 co Liang Zhenjing 
pO bd 
匣 oc 
郧 攀 | 这 
3 Apple Inc. 


Apple Worldwide Developer Relations 
Apple Worldwide Developer Relations Certification Authority 


14-49 详细 信息 包含 有 效 时 间 


如 图 14-50 所 示 ,当前 开发 者 证 书 还 可 以 进行 导入 导出 , 单 击 钥匙 串 访问 主 菜单 的 文件 ， 
执行 “导出 项 目 ” 命 令 ,弹出 如 图 14-51 所 示 的 对 话 框 ,可 以 将 证 书 以 “个 人 信息 交换 文件 ”(p12 
后 级 ) 的 方式 导出 备份 ; 如 果 系 统 重 装 后 可 以 再 次 导入 该 证 书 ,继续 使 用 。 
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于 EE 到 4 和 3 示 窗 Q 才 
新 建 密码 项 … SN 存储 为 : | 运 书 .p12 | 
| aa (Ee > 
| 新 建 身份 仿 好 设置 
1 
1 导入 项 目 … 人 8 : 文件 格式 : | 个 人 信息 交换 (.p12) 3 
+ ”导出 项 目 .… 人 OBE ; 
{添加 钥匙 串 .… 合 %A | 三 和 一 
删除 角 直 串 登录。 习 革 名 | | jC | 
图 14-50 导出 证 书 的 设置 图 14-51 个 人 信息 交换 文件 


(6) 特别 需要 注意 的 是 : 在 用 线 缆 将 iOS 设备 与 Mac 主机 的 USB 口 相连 接 后 ,由 于 Mac 
运行 着 Windows 7 的 虚拟 机 ,两 者 共享 硬件 ,因此 弹出 如 图 14-52 所 示 的 对 话 框 ,让 用 户 选 择 
需要 将 iOS 设备 连接 到 Mac 还 是 Windows。 此 时 必须 要 选择 “连接 到 Mac”, 否 则 Mac OS 中 
的 Xcode 不 能 检测 到 连接 的 iOS 设备 ,也 就 无 法 将 编译 后 的 程序 发 送 到 设备 让 其 运行 。 


加 


选择 您 希望 连接 Apple iPod 的 位 置 。 


口 记 住 我 的 选择 ， 以 后 不 再 询问 


Me | ES 司 


14-52 连接 iOS 设备 需 进行 的 选择 
(7) 打开 Xcode 主 界面 , 单 击 屏幕 最 右上 角 的 Organizer 按钮 (如 图 14-53 所 示 ) 。 


图 testl.xcodeproj Ea 


| Summary | Info Build Settings Bulld Phases Build Rules dentity 
RPR re C 
Bundle Identifler |CCZU.restl ] Location | Not Appllcable 
= = estlxcodepraj 
0 -— Full Path /Users/Fangll/Documents/ 
Devices | iPhone :] estl/testl.xcodepro} © 
™ Project Document 
Deployment Target [1 Jw] ee 
Project Format [ Xeode 3.2-compatible 
¥ iphone / iPod Deploymeat nfo Organization [ 方 二 
Main Storyboard [Mainstt Chass Prefix | 
m Monstovbowd -~ | 
> bE Tex Settings 
2 oem sng [pees 
wams[ [0 
Supported Interface Orientations Tab Indent 
BE Wrap Ines 
Portrait Upside pe 
Down Left Right 


14-53 ”Xcode 环境 主 界面 
如 图 14-55 所 示 ,在 Organizer 界面 ( 见 图 14-54) 中 ,可 以 看 到 左 侧 设备 列表 中 利用 专用 连 


接线 接 入 计算 机 的 当前 iOS 设备 名 的 右边 显示 一 个 小 绿 点 ,表明 有 效 地 激活 设备 ; 如 果 显 示 
小 黄 点 则 表明 证 书 安装 失败 ,其 为 无 效 设备 ,无 法 进行 调试 。 
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[ae ee 


Editor View Organizer 


14-54” 主 界面 右上 角 的 Organizer 


eoe Organizer - Devices 加 


LIBRARY 
图 Provisioning promes "的 iPod 
‘yy Software Images 方 经 的 
DDevice Logs Capacity 30.62 GB 
Screenshots Model iPod touch (4th generation) 
TEAMS Serial Number C3TGV4UIDT77 
是 Liang Zhenjing ECID 544605648140 
DEVICES ldentifler 62bf853face14c802df83b937754dde1022ec06e 
Mtrt Software Version [S11(98206) 3] [nestoreipod ] 
Provisloning Profiles Xcode cannot find the software image to install this version 
ee ES 
5.1.1 (98206) Provisioning Haoda © 
图 Provisioning Profiles 
A Applications Applicatlons FingerPiano, Golden Ear, I05_01.01, OPlayer Lite, PPTY 蜡 力 , PlanoTutor, Q... © 
匡 Console 1 FairPlay-encrypted application 
Device Logs 
Screenshots 
-a “Fangji" 的 iPhone 
§.1 (12841D) 
Device Logs 
轩 Screenshots Device Logs © 


mintsrator'ty Ind 
3.4 1 
h © 
1 Screenshots No screenshots 

Screenshots 

"inspiron" 的 iPod 
v 83(12r69) 

Device Logs 
Screenshots 


Add ro Portal Remove 
14-55 设备 列表 中 的 详细 信息 


(8) 至 此 ,iOS 真 机 调试 的 所 有 准备 工作 已 经 完成 。 进 ”es pl 
入 XE8 开发 环境 ,新 建 一 个 名 为 IOS_01_01 的 项 目 时 ,在 右 | 站 -加 | 牙 羡 -| 


上 方 的 资源 管理 器 列表 中 可 以 看 到 ,目标 平台 (Target | 和 气 徊 徊 | 量 - 邹 | 镶 - DO- 
Platforms) 层 至 列表 内 ,无 论 是 真 机 (iOS Device) 还 是 模拟 rr 


器 (iOS Simulator) 的 后 面 都 显示 刚刚 TMIouch5 profile 的 所 量 ios_ol_ol 


田 - 坊 Buid Configurations (Debug) 


配置 信息 ,并 且 iOS Device 后 也 显示 了 刚刚 建立 的 SDK 名 -© Taroet Platforms (OSDevice) 


日 口 os Device - iPphoneOs 6.1... 


称 iPhoneOS 6.1, 如 图 14-56 所 示 。 BO Target 加 
此 后 启动 程序 运行 的 方式 与 模拟 器 方式 相同 ,区 别 在 于 nn 


®- Q iOs Simulator - TMIouch5 pro... 
S_01_01_u.pas 


模拟 器 方式 的 显示 结果 通过 Mac 系统 的 iOS 模拟 器 来 展现 ， 上 

而 真 机 调试 的 结果 则 显示 在 与 Mac 系统 通过 线 缆 相 连 的 ee | 
iOS 设备 上 ,运行 外 观 和 iOS 设备 内 部 通过 App Store 下 载 一 
并 安装 的 程序 没有 任何 区 别 ,如 图 14-57 和 图 14-58 所 示 。 图 14-56 项 目 管理 器 的 目标 设备 
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14/11/10 


IOS_01_01 


Hello CCZU 
图 14-58 ”该 程序 运行 后 的 实际 效果 界面 截图 


14-57 ”使 用 iPhone 5S 运行 的 IOS_01_01 程序 的 图 标 


14.2 iOS APP 开发 中 基本 UI 元素 的 使 用 


14.2.1 与 交互 操作 相关 的 常用 组 件 使 用 案例 

【 例 14.1】 创建 一 个 名 为 IOS_16_01. dproj 的 XE8 项 目 , 内 含 4 个 窗 体 : 第 一 个 窗 体 为 
启动 窗 体 IPS_16_01_u. fmx ; 第 二 个 窗 体 (IPS_16_02_u. fmx) 使 用 了 基于 iOS 风格 的 各 种 按 
钮 组 件 ; 第 三 个 窗 体 (IPS_16_03_u. fmx) 使 用 了 编辑 和 显示 日 期 的 Calendar 组 件 ; 第 四 个 窗 
体 (IPS_16_04_u. fmx) 使 用 了 WebBrowser 组 件 来 浏览 网 页 。 基 本 项 目 结构 如 图 14-59 所 示 。 


起 -区 | 时 国 -| 
mm| 掉 - 名 | 入- O- 


ProjectGroup1 
日 名 1I0s_16_01 
四 -者 Buid Configurations (Debug) 
-© Target Patforms (iOSSimulator) 
田 路 Android - Android SDK 22.0.1 32 bit 
® 口 os Device - PhoneOs 6.1 - TMIouch5 profie 
-QD ios Simulator - TMIouchs profile 
日 -图 jps_16_01_u.pas 
国 ps_16_01_u.fmx 
JPS_16_02_u.pas 
JpS_16_02_ufmmx 
Jps_16_03_u.pas 
国 ps_16_03_u.fmx 
日 图 Ips_16_.04_u.pas 
16_04u.frm 


图 14-59 本 例 在 项 目 管理 器 中 包含 的 文件 列表 
(1) 第 一 个 窗 体 IPS_16_01_u 的 创建 步骤 以 及 知识 点 解析 。 
QO@ 选择 主 菜单 File| New| FireMonkey Mobile Application-Delphi, 创 建 一 个 空白 项 目 保 
存 为 IOS_16_01. dproj; 将 默认 窗 体 的 单元 文件 保存 为 IPS_16_01_u. pas, 此 时 与 该 单元 文件 


相关 联 的 窗 体 文件 被 自动 保存 为 fmx 格式 。 
@ 在 右上 和 角 的 设备 选项 下 拉 列 表 中 从 默认 的 Google Nexus4 机 型 更 改 为 iPhone 机 型 ， 


版 本 取 默认 的 iOS 6。 
@ 在 右 下 角 Tool Palette( 组 件 面板 ) 顶 端 搜索 栏 中 输入 “image” 并 回 车 ,显示 4 种 image 
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组 件 ,如 图 14-60 所 示 。 其 中 ,TImageViewer、TImageControl 和 TImage 功能 相似 ,TImageViewer 
继承 自 TScrollBox, 可 自动 加 滚动 条 ; 而 TImageControl 可 设置 样式 , 且 可 在 选择 时 呈现 

此 处 选择 ImageControl 组 件 ,用 鼠标 左 键 拖 动 将 其 放 入 Forml 中 ,设置 其 Align 属性 为 
alClient。 在 对 象 观察 器 中 , 单 击 ImageControll 组 件 的 Bitmap 属性 右 侧 的 小 按钮 ,如 图 14-61 所 
示 , 青 单 击 下 拉 列 表 中 的 Edit 命令 ,在 弹出 的 界面 中 加 载 所 选取 的 图 片 作 为 首 窗 体 的 背景 图 。 


Mi Toolp 昌国 
昆 | |Q imagd 开 
日 Standard 
[ 贺 Tmmaoecorl | ImageControll Timaoecontrol | 
= Properties| Events 
瞄 TImageViewer i 
ER 田 Anchors 0 
国 Timage » |Bitmap (Bitmap Emptlees | 
日 3D Layers Create New TBitmapAnimation 
TImage3D Create New TBimapListAnimation 
Edit... 
14-60 搜索 Image 组 件 14-61 Image 组 件 的 BMP 属性 设置 


@ 在 Tool Palette( 组 件 面板 ) 的 Standard 组 件 面板 中 选择 TLabel, 拖 动 到 窗 体 上 ,将 
Labell 的 Text 属性 设 为 “常州 大 学 ”。 

@ 在 Tool Palette( 组 件 面板 ) 的 Standard 组 件 面板 中 选择 TButton , 拖 动 两 次 到 窗 体 上 ， 
Buttonl 的 Text 属性 设 为 “移动 教务 平台 ”,Button2 的 Text 属性 设 为 “进入 ”。 

@ 双击 Buttonl 按钮 ,在 弹出 的 Click 事件 中 添加 如 下 语句 : 


Showmessage( ' 欢 迎 使 用 常州 大 学 移动 教务 系统 ! '); 
@ 双击 Button2 按钮 ,在 弹出 的 Click 事件 中 添加 如 下 语句 : 
Form2. show; 


在 IPS_16_01_u. pas 的 implementation 后 引用 Forml 将 调用 的 Form2 对 应 单元 文件 


IPS_16_02_u, 不 在 此 声明 引用 会 造成 第 @ 步 执行 时 无 法 显示 Form2 窗 体 。 
implementation 
{SR *. Emx} 
uses IPS 16 02 ui 
@ 激活 项 目 管理 器 中 Target Platform( 目 标 平台 ) 的 iOS Simulator。 
0 按 F9 键 或 者 单 击 快捷 工具 栏 上 的 绿色 “运行 ?按钮 启动 程序 。 启 动 后 ,会 看 到 模拟 器 
运行 界面 ,如 图 14-62 所 示 。 
单 击 “移动 教务 平台 ”按钮 ,会 弹出 欢迎 信息 框 , 而 单 击 “进入 ”按钮 ,会 显示 Form2 空白 
窗 体 。 
补充 说 明 : 运行 后 模拟 器 和 iOS 真 机 上 的 图 标 名 称 都 是 IOS_16_01, 要 使 程序 图 标 能 自 
定义 并 且 能 包含 中 文字 符 ,需要 进行 以 下 操作 。 
选择 主 菜单 Project | Options | 左 侧 列表 的 Version Info 页 , 右 下 角 的 列表 中 第 三 项 
CFBundleDisplayName 就 是 要 设置 的 项 ,这 个 值 原先 是 $ (ModuleName), 即 原来 项 目的 名 
称 , 此 项 目 名 为 IOS_16_01, 则 运行 后 在 iOS 中 显示 的 名 称 就 是 IOS_16_01, 如 图 14-63 所 示 。 
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| 移动 教务 平台 ， 


lan 2 et 于 二 


14-62 ”启动 界面 


1 全 全 Target: Debug configuration - iD5 Device pbtform 下 Apl 
Hints and Warnings 
Lnking JIndude version information n project 
Output - C/C++ Module version number 
4 Resource Compler Major version Minor version Buid 
Directories and Conditionals = - 
Buid Events 和 本 国 o 四 用 9 
Uses permissions Buid number options 
i [oo not change build number 
eit 加 wie 
RE 和 CFBundleName S$(ModuleName) 
4 Debugger CFBundleDevelopmentRegion en 
Symbol Tables CFBundeDispbyName IOS 案 例 01 
Environment Block CFBundleldentifier S$(ModuleName) 


图 14-63 设置 iOS 中 显示 的 名 称 


本 例 中 将 CFBundleDisplayName 名 称 改 为 “IOS 案例 01”, 在 运行 时 ,无 论 在 模拟 器 还 是 
真 机 中 ,都 显示 名 称 为 “IOS 案例 01”, 如 图 14-64 所 示 。 

至 此 , 窗 体 一 的 所 有 内 容 已 解析 完毕 。 

(2) 窗 体 二 IPS_16_02_u 主要 展示 基于 iOS 风格 的 各 种 按钮 组 件 。 整 体 界 面 如 图 14-65 所 
示 , 共 有 5 组 样式 各 异 的 按钮 ,下 半 部 分 空白 故 未 截取 。 这 些 不 同 外 观 的 按钮 创建 步骤 如 下 。 

@D FireMonkey 定义 了 不 同类 型 的 按钮 ,包括 在 Standard 面板 中 的 TButton 和 在 
Additional 面板 中 的 TSpeedButton。 

@ 在 Form2 窗 体 上 放置 一 个 标准 页 的 Toolbar 工具 栏 , 拖 动 后 自动 创建 在 窗 体 Form2 
的 顶端 。 在 Toolbarl 上 放置 三 个 Additional 页 的 SpeedButton 。 


380 。 belphi 程序 设计 教程 (第 3 版 ) 


中间 按钮 | 而 


图 14-64 APP 默认 图 标 14-65 ” 窗 体 二 运行 外 观 
@ 放置 了 三 个 SpeedButton 后 , 需 在 Object Inspector di 
(对 象 观察 器 ) 中 为 选中 的 按钮 设置 一 些 重要 属性 。 潍 a 
。 通过 更 改 Text 属性 的 值 来 改变 显示 在 按钮 上 显 
示 的 标 题 pe segmentedbuttonright 
。 改变 Position.X 以 及 Position. Y 属性 的 值 (或 使 村 于” 
用 鼠标 拖 动 组 件 ) 3roperties| Eve spineditbutton 
。 改变 Height 以 及 Width 属性 的 值 (或 使 用 鼠标 拖 Retonmge = stepperbuttonlet 
动 组 件 的 边缘 ) 。 RotationCente 


Scale Stepperbuttonright 
在 StyleLookup 属性 处 单 击 下 拉 箭 头 , 在 展开 列 [sme [二 | 


Stayspressed stoptoobutton 


表 中 选取 预先 定义 好 的 Style( 样 式 ) ,如 图 14-66 sedsettnos SS - 
a StyleLookup | 区 
所 示 。 . 
@ FireMonkey 使 用 按钮 组 件 来 定义 Segmented 14-66 ”StyleLookup 属性 
Control,Segmented Control 允许 用 户 从 多 个 选项 中 选择 
一 个 ,如 图 14-67 所 示 。 
为 了 定义 Segmented Control, 需 要 执行 以 下 步骤 。 
。 从 Tool Palette 中 放置 三 个 TSpeedButton 控件 ,并 按 顺序 排列 整齐 ,如 图 14-68 所 示 。 


IE 中 间 按 钮 | Sa ] ButtonLeft ”ButtonMiddle ”ButtonRight 


图 14-67 案例 外 观 14-68 默认 的 SpeedButton 外 观 


选择 第 一 个 按钮 ,修改 StyleLookup 属性 为 segmentedbuttonleft; 选择 第 二 个 按钮 , 修 
改 StyleLookup 属性 为 segmentedbuttonmiddle; 选择 第 三 个 按钮 ,修改 StyleLookup 
属性 为 segmentedbuttonright, 如 图 14-69 所 示 。 

现在 这 三 个 按钮 看 起 来 像 一 个 Segmented Control, 再 依次 修改 三 个 按钮 的 Text 属 
性 ,如 图 14-70 所 示 。 

同时 选中 这 三 个 按钮 ,设置 GroupName 属性 为 唯一 的 名 称 ,例如 “LMRButton”, 如 
图 14-71 所 示 。 

。 为 了 指定 这 三 个 按钮 中 的 一 个 默认 显示 成 按 下 的 效果 ,将 第 一 个 按钮 的 IsPressed 属 
性 设置 为 True, 如 图 14-72 所 示 。 
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|peedButton peedButton peedButton | 


er 中 
epeedButtong ai Left | Middle | Right | 
14-69 对 SpeedButton 属性 进行 修改 图 14-70 ”修改 Text 属性 值 
ee Left Middle | Right | 
»|GroupName LMRButton| 
图 14-71 对 按钮 进行 分 组 名 设置 图 14-72 设置 IsPressed 属性 后 的 外 观 


(3) 窗 体 三 IPS_16_03_u 主要 展示 日 历 组 件 的 使 用 方式 。FireMonkey 主要 有 两 个 用 于 
显示 和 编辑 日 期 的 组 件 : TCalendarEdit 和 Calendar 组 件 。 

O 在 Form3 上 先 放置 一 个 Toolbar 组 件 。 

@ 在 Toolbarl 右 侧 放置 一 个 Speedbutton ,将 其 StyleLookup 属性 设 为 refreshtoolbut- 
tonbordered 。 

@ 在 Tool Palette 中 选择 TCalendarEdit 组 件 , 拖 放 到 | 
Toolbarl 正中 间 位 置 。 要 在 Tool Palette 上 找到 这 个 组 件 ， 
在 搜索 框 输入 组 件 名 开头 的 几 个 字母 “cal" 后 即 能 显示 搜索 图 14-73 TCalendarEdit 组 件 外 观 
到 的 组 件 名 称 。 拖 放 后 ,在 Form3 上 显示 如 图 14-73 所 示 的 
CalendarEdit 组 件 。 

@ 接着 在 iOS Simulator 或 iOS Device 上 运行 时 , 单 击 TCalendarEditl 之 后 ,弹出 如 
图 14-74 所 示 的 日 期 选择 器 ,可 以 选择 一 个 日 期 ,并 单 击 Done 按钮 完成 选择 。 

@ 在 Form3 窗 体 上 放置 一 个 Calendar 组 件 , 运 行 时 在 Calendar 组 件 上 单 击 某 个 日 期 表 
示 选 中 , 单 击 Calendar 右上 角 的 月 份 和 年 份 时 ,会 弹出 如 图 14-75 所 示 的 选择 器 让 用 户 单独 选 
择 月 份 或 年 份 。 


Faais F442 本 
4 7 月 2016 


周 日 周一 周二 周三 周 四 周 五 周 六 


nti i 
Sovtonoer | 2 [oore 


图 14-74 TCalendarEdit 组 件 编辑 日 期 界面 图 14-75 单独 选择 月 份 或 年 份 
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@ 在 用 户 更 改 CalendarEdit 的 日 期 后 ,会 触发 OnChange 事件 。 因 此 需要 在 OnChange 事件 
过 程 中 编写 代码 完成 响应 。 具 体操 作 步 骤 是 : 先 选中 TCalendarEdit 组 件 ,在 对 象 观察 器 中 , 打 
开 Events 页 ,然后 双击 OnChange 后 面 的 空白 处 ,在 弹出 的 代码 编辑 器 窗口 中 编写 如 下 代码 。 
Bimplementation ~ 


{SR “.fmx} 


uses IPS 16 02 u; 


Hprocedure TForm3.CalendarEditiChange (Sender: TObject); 


. | begin 

四 showmessage (FormatDatetime('dddddd' ,calendarEdit1.Date)) 7 
® - |calendarl.Date:=calendarEdit1l.Date; 

四 end; 


此 段 代 码 运 行 时 会 首先 弹出 一 个 MessageBox 显示 选择 的 日 期 ,如 图 14-76 所 示 。 其 中 ， 
FormatDateTime 函数 转换 选择 的 日 期 为 一 个 指定 格式 (此 例 中 dddddd 指 的 是 长 类 型 日 期 格式 ) 。 

第 二 行 语句 是 将 选择 的 CalendarEdit 的 日 期 赋 给 Calendar, 于 是 看 到 如 图 14-77 所 示 界 
面 ,编辑 后 的 2015 年 8 月 1 日 当天 也 会 以 高 亮 模式 显示 在 Calendar 上 。 


8/1/15 


August 2015 


Sun Mon Tue Wed Thu Fn Sat 


2 3 4 5 6 7 8 


图 14-76 MessageBox 显示 的 格式 化 日 期 图 14-77 赋值 后 日 历 组 件 外 观 


@ 程序 写 到 此 处 时 仍 未 将 Form3 和 Form2 建立 关联 ,在 Form2 的 “日 历 ” 按 钮 的 Click 
事件 中 写 下 : Form3. show; 并 且 在 Form2 单元 的 implementation 中 引用 Form3 的 单元 名 
IPS_16_03_u。 

同样 地 , 单 击 Form3 右上 角 的 “返回 ”按钮 时 应 该 返回 Form2, 需 在 该 按钮 中 写 下 : 
Form2. show; 并 且 在 Form3 单元 的 implementation 中 引用 Form2 的 单元 名 IPS_16_02_u。 

窗 体 间 切换 的 按钮 如 图 14-78 所 示 。 

(4) 窗 体 四 IPS_16_04_u 主要 用 于 展示 浏览 器 组 件 的 使 用 。 在 iOS 平台 上 使 用 
TWebBrowser 组 件 来 封装 Web Browser。 操 作 步 又 如 下 。 

@ 建立 Form2 与 Form4 的 关联 ,在 Form2 的 “主页 ”按钮 的 Click 事件 中 写 下 : Form4. 
show; 并 且 在 Form2 单元 的 implementation 中 引用 Form3 的 单元 名 IPS_16_04_u。 

@ 在 Form4 上 首先 放置 一 个 ToolBarl ,接着 再 放置 一 个 Edit 组 件 和 两 个 SpeedButton 
组 件 ; 修改 两 个 SpeedButton 的 StyleLookup 属性 值 ,使 其 具备 如 图 14-79 所 示 的 外 观 。 


居于 于 | 


图 14-78 窗 体 间 切 换 的 按钮 图 14-79 窗 体 四 顶端 组 件 外 观 
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@@ 在 Tool Palette 中 选择 TWebBrowser 组 件 并 拖 放 到 窗 体 上 面 。 

@ 选中 WebBrowser 组 件 , 在 对 象 观察 器 中 将 其 Align 属性 设置 为 alClient, 使 之 填充 
Form4 的 窗口 剩余 空间 。 

@ 接着 要 编写 一 个 事件 处 理 过 程 , 当 用 户 在 Edit 中 输入 URL 时 打开 相应 网 页 。 与 
Windows 平台 不 同 的 是 ,智能 手机 设备 使 用 如 图 14-80 所 示 的 Virtual Keyboard 来 输入 文字 。 
用 户 可 以 通过 按 Done 或 Return 键 来 完成 这 个 动作 。FireMonkey 提供 一 些 事件 处 理 过 程 来 
处 理 用 户 操作 的 响应 。 在 Done 按钮 按 下 的 时 候 ,FireMonkey 框架 发 送 一 个 OnChange 事件 
给 Edit 控件 。 


AlsjojrlslnjJjkl 
加 zjxlclvlelvlvie 


-2123 space return 


14-80 ”虚拟 键盘 


@ 在 运行 时 ,会 发 现 默认 的 虚拟 键盘 用 于 输入 URL 地 址 不 太 适合 。iOS 提供 如 图 14-81 
所 示 的 几 种 虚拟 键盘 。 


vktAlphabet: vktDefault: vktEmailAddress: vktNamePhonePad: 

olwlelslrlvlul'lole lolwlelslrlvlul'lolr lolwelslrlvlul'lolr lolwlelslrlvlvl'lolr 
LAlslolrleln ls lr Ralslolelelnlv ki Mlslolrlelnly xie Nalslolrlolnl, kl 
ez lxlclvlel\Iw Ee Ealzlxlclvleln™ zlxlclvlelnIw Ee Elzlxlclvlel"Iw eS 
9 ER el. ER EE 


wktNumberPad- vktNumbersAndPunctuation: vktPhonePad- 


elwjlslalrlvuluoln 
Alsjpjrjslnljc 
cz|xlclvlelnIw Ee 
EEI. | |~" le 


图 14-81 虚拟 键盘 的 类 型 
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在 Edit 控件 的 KeyboardType 属性 中 选择 vktURL 作为 合适 的 虚拟 键盘 ,如 图 14-82 
所 示 。 


re a 
Edit1 TEdit = 
Properties | Events | 
HitTest 国 Tme 区 
ImeMode imDontCare 
» KeyboardType vktURL 国 
田 |bveBndnos vktAlphabet 
田 |UveBndings Designer ktDefault 
Locked vktEmalAddress 
|Margns wtNamePhonepad 
ie wktNumberPad 了 
Opscty vktNumbersAndPunctuation 


Ee [sam AN | 
seoor 四 

图 14-82 虚拟 键盘 属性 选择 
@ 在 代码 编辑 器 窗口 中 ,输入 如 下 代码 。 


| type 
TForm4 = class (TForm) 
ToolBarl: TToolBar; 
SpeedButtonl: TSpeedButton; 
Edit1l: TEdit; 
WebBrowserl: TWebBrowser; 
Button2: TButton; 
Procedure SpeedButtonlClick (Sender: TObject); 
Procedure Button2Click(Sender: TObject); 
Procedure OpenURL; 
procedure TForm4.SpeedButtonlClick (Sender: TObject); 
begin 
webbrowserl.GoBack; 
end; 
procedure Tform4.OpenURL; 
begin 
Webbrowserl.Navigate (Editl1.Text); 
Lend; 
日 procedure TForm4.EditiChange (Sender: TObject); 
begin 
OpenURL; 
Lend; 


从 三 个 不 同 的 事件 过 程 可 以 看 到 ,在 Buttonl 的 Click 事件 过 程 中 写 下 WebBrowserl. 
GoBack 实现 浏览 器 页 面 的 返回 ; 在 Form4 的 新 建 过 程 OpenURL 中 把 Edit 的 文本 内 容 赋 给 
WebBrowserl 的 Navigate 实现 页 面 的 浏览 ; 而 在 Edit 的 Change 事件 中 调用 OpenURL。 

至 此 窗 体 四 的 浏览 功能 已 全 部 实现 ,在 iOS Simulator 或 iOS Device 中 运行 程序 ,显示 界 
面 如 图 14-83 所 示 。 


14.2.2 与 界面 分 类 管理 相关 的 组 件 使 用 案例 


Delphi XE 在 iOS 平台 上 使 用 TComboBox 组 件 来 封装 选择 器 组 件 。 有 以 下 三 种 常用 方 


式 向 ComboBox 中 添加 项 目 。 
(1) 方式 一 : 在 ToolPalette 的 搜索 框 中 输入 *ComboBox” 后 搜索 ,将 找到 TComboBox 组 


件 并 拖 动 到 窗 体 设计 器 上 。 
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= CT Ea BE 


TIPS: 出 于 安全 考虑 ， 当 您 讽 开 应 用 系统 时 ， 请 
人 @@ © #1 大 学 勇 担 资 任 追求 齐 直 


HAwGznou 


Fangji 令 下 午 4:33 Fangji 全 下 午 4:34 


加 教务 管理 信息 系统 加 0 课程 中 


NatureINDEX"™ 


We 加 毕 设 管理 系统 (本 部 ) 口 0 毕 设 和 

到 机 se 六 ly 网 上 办 公 项 目 申请 吕 0 缴费 平 
F 

CRE 


加 0 大 学 生 科 创 新 中 心 号 教学 楼 ; 


(专项 资助 项 目 申 报 ) 


Copyright @ 2011 常州 
地 址 : 江苏 省 常州 市 科教 i 


， 术 领导 视 内 我 校 招生 录取 工作 现场 
* 我 检 忆 连 妇 教授 油 夯 人 选 纪念 中 国人 民 抗 日 战争 七 十 周年 铁 的 新 四 军 ' 红 色 记忆 一 经 典 


图 14-83 浏览 器 界面 运行 最 终 外 观 


右 击 TComboBox 组 件 , 如 图 14-84 所 示 ,选择 Items Editor 命令 ,在 弹出 的 如 图 14-85 所 
示 的 对 话 框 中 编辑 项 目 。 


(cl 
| ListBoxlteml [rssomem 7] 
Add Item » ListBoxltem3 
Edit ListBoxltem4 企 」 3 | [Delete | 
Control » ListBoxltem5 
Bind Visually.. 
14-84 ”ComboBox 右键 菜单 14-85 ”ComboBox 组 件 编辑 项 目 


在 左 侧 对 象 观 察 器 上 端的 Structure View (结构 化 视图 ) 中 ,选择 要 编辑 的 ComboBox 中 
的 某 一 项 ; 然后 在 对 象 观察 器 中 编辑 选中 该 项 的 Text 属性 ,如 图 14-86 所 示 。 

(2) 方式 二 : 选中 TComboBox 组 件 后 ,在 对 象 观察 器 的 Items 属性 处 , 单 击 后 面 空 白 处 
的 按钮 ,弹出 String List Editer 对 话 框 ,在 其 中 进行 编辑 ,如 图 14-87 所 示 。 

(3) 方式 三 : 使 用 代码 建立 项 目 列表 。 

如 图 14-88 所 示 ,在 窗 体 上 新 建 ComboBoxl 用 于 显示 和 选择 所 在 学 院 , 新 建 ComboBox2 
用 于 显示 和 选择 所 属 部 门 。 其 中 ,ComboBoxl 包含 的 若干 项 目 已 经 通过 第 二 种 方式 添加 到 
ComboBoxl 中 ,要 实现 APP 运行 时 能 根据 用 户 选择 的 学 院 , 自 动 将 其 包含 的 部 门 名 称 添加 并 
显示 在 所 属 部 门 的 ComboBox2 中 供用 户 继续 选择 ,需要 在 ComboBoxl 的 Change 事件 过 程 
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只 Stucture 
起 加 | 全 训 
口 Foml 
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_ Elpsed time: 00: 
图 14-87 String List Editer 对 话 框 
中 添加 以 下 代码 。 
procedure TFormf, ComboBox1Change( Sender :Tobject); 
begin 
if combobox1, Iteme[ combobox1. Selected. Index] = ' 信 息 科 学 与 工程 学 院 'then 
begin 


combobox2. Items. Add( ' 计 算 机 '); 
combobox2. Items. Add( "软件 工程 '); 
combobox2. Items. Add( ' 电 子 '); 
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combobox2. Items. Add( ' 自 动 化 '); 
end; 
end; 
如 图 14-89 所 示 ,该 程序 段 在 用 户 选择 “信息 科学 与 工程 学 院 " 后 ,自动 将 4 个 项 目 添加 到 
ComboBox2 中 供用 户 继 续 选 择 。 


所 在 学 院 。“ 信息 科学 与 工程 学 院 


所 属 部 门 


半 
氮 
党 


所 在 学 院 
所 属 部 站 电子 
图 14-88 ”案例 显示 外 观 图 14-89 ”自动 关联 选项 


需要 注意 的 是 : 当前 选中 的 项 由 ItemIndex 属性 指定 。ItemIndex 为 整 型 数值 ,使 用 从 0 
开始 的 下 标 来 指定 ( 即 第 一 个 项 的 下 标 是 0)。 要 让 图 14-89 中 第 三 项 被 选中 ,需要 在 窗 体 
FormCreate 事件 中 写 下 : 

ComboBox1. ItemIndex := 2; 


Delphi XE 在 iOS 平台 上 使 用 TListBox 组 件 来 建立 ET 站 


和 显示 一 个 iOS 风格 的 TableView ,如 图 14-90 所 示 。 


常 大 通讯 录 

首先 ,利用 ListBox 组 件 来 创建 一 个 项 目 列表 。 

(1) 选择 File| New | FireMonkey MobileApplication- oo 
Delphi| BlankApplication 命令 。 

(2) 在 Tool Palette 中 搜索 TListBox 组 件 , 找 到 后 新 的 朋友 V 
将 其 拖 放 到 新 建 的 程序 窗 体 中 。 

(3) 选中 ListBoxl 组 件 , 在 对 象 观 察 器 中 将 Align 群 聊 © 
属性 的 值 设置 为 alClient。 

(4) 右 击 该 ListBoxl 组 件 ,选择 Items Editor 命 四 标签 2 


令 , 如 图 14-91 所 示 。 
| 圆 xs 
(5) 在 Items Designer 上 ,通过 多 次 单 击 Add Item 


给 Lis 涪 个 项 目 ， - 示 。 
按钮 来 给 ListBoxl 添加 若干 个 项 目 , 如 图 14-92 所 示 时 测 本 着 二 
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ems Desi 


5 Tx 


| ListBoxlteml | | TListBoxltem 加 
Ttems Editor... | 
0 
Add ftem : ListBoxltem3 | 
Edit » ListBoxltem4 | [人 多 | [8 |[ Delete 
Control » ListBoxltem5 
Bind Visually... 
图 14-91 ListBox 右键 菜单 14-92 ”Items Designer 编辑 项 目 


(6) 关闭 项 目 列表 设计 器 。 窗 体 上 显示 了 刚 添加 的 ListBox 项 目 列表 ,如 图 14-93 所 示 。 
(7) 在 TListBox 组 件 上 定义 一 个 Header。 右 击 TListBox 组 件 , 选 择 Addltem | 
TListBoxHeader 命令 ,如 图 14-94 所 示 。 


ListBoxItem4 

Kems Editor... l 

Add kem ， TListBodtem 

EE TMetropolisUIListBoxdtem 

Bi Taeorede 人 

8 TSearchBox 
TListBoxGroupHeader 

Align To Grid TListBoxGroupFooter 


Revert to Inherited 


ListBoxltem1 
ListBoxltem2 有 10:57 AM 
- ListBoxHeader 
ListBoxltem3 5 5 
ListBoxItem1 
ListBoxItem4 
图 14-93 ”编辑 项 目 后 显示 的 外 观 图 14-94 添加 ListBox 的 Header 


(8) 放置 一 个 TLabel 组 件 并 将 其 拖 放 到 刚 添 加 的 TListBoxHeader 上 ,在 对 象 观察 器 中 ， 
将 Label 组 件 的 属性 更 改 为 : 

Align: = alclient; 

StyleLookup: = toollabel; 

TextAlign: = taCenter; 

Text: = ' 常 大 通讯 录 '; 

注意 : 如 图 14-95 所 示 , 除 了 上 述 方法 添加 一 个 Header 以 外 ,还 可 以 添加 分 组 Header 或 
Footer 到 列表 中 去 ,操作 方法 如 下 。 

(1) 右 击 TListBox 组 件 , 然 后 选择 Items Editor 命令 。 

(2) 从 下 拉 列 表 中 选择 TListBoxGroupHeader, 单 击 Add Item 按钮 ,如 图 14-96 所 示 。 

(3) 在 下 拉 列 表 中 选择 TListBoxGroupFooter, 单 击 Add Item 按钮 。 

(4) 选中 在 项 目 列 表 中 的 ListBoxGroupHeader 和 ListBoxGroupFooter, 然 后 单 击 右 侧 上 
下 箭头 调整 其 在 列表 中 的 位 置 。 

(5) 关闭 对 话 框 即 能 看 到 多 了 一 个 分 组 Header 和 一 个 分 组 Footer。 
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ss 


ListBoxGroupHeader1 


ListBoxltem1 


ListBoxltem2 ListBoxltem1 TListBoxGroupHeader 
ListBoxltem2 TListBoxltem 
ListBoxltem3 ListBoxitemS TMetropolisUIListBodem 
ListBoxltem4 TListBoxGroupHeader 
TListBoxGroupFooter 人 
ListBoxltem4 
14-95 ”添加 Header 和 Footer 后 的 外 观 14-96 ”添加 项 目 类 型 选择 


第 二 步 , 实 现 如 图 14-97 所 示 的 ListBox 分 组 状态 。 在 ListBox 上 的 项 目 可 以 显示 成 一 个 
Plain 列表 或 一 个 Grouped 列表 。 由 GroupingKind 属性 和 StyleLookup 属性 所 控制 ,图 14-97(a) 
的 GroupingKind 值 为 Plain ,而 图 14-97(b) 的 GroupingKind 值 为 Grouped( 最 明显 的 区 别 是 
4 个 角 为 圆滑 过 渡 的 苹果 风格 ) 。 

第 三 步 , 添 加 一 个 复 选 框 给 ListBox 的 各 个 项 目 。TListBox 里 的 每 个 项 通过 ItemData. 
Accessory 属性 来 使 用 一 个 辅助 项 ,例如 复 选 标记 。 图 14-98 显示 了 向 ItemData. Accessory 
赋值 后 的 显示 效果 。 


ListBoxGroupHeaderl 
ee [DO rpm v 


公众 号 公众 号 


四 公众 号 
(a) (b) 
图 14-97 ”两 种 不 同 的 外 观 图 14-98 复 选 标记 的 不 同 外 观 


由 图 可 知 , 对 4 个 列表 项 目的 ItemData 的 Accessory 属性 赋 的 值 依 次 为 aCheckmark、 
aDetail\aMore 和 aNone。 几 种 属性 值 的 选择 如 图 14-99 所 示 。 


口 
ListBoxItem4 TLstBoxltem 二 


Properties| Events| 
IsChecked FIFake - 
IsSelected [Pake 
alRemData (TUListBoxItemData; 
»|Accessory aNone 加 | 司 
Bitmap aCheckmark 
Detal aDetal 
Text aMore 
习 [LveBindings 和 
Dl vonindinne ne 
3nd Visualy. 


14-99 几 种 属性 值 的 选择 
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第 四 步 ,添加 图 标 给 ListBox 的 各 个 项 目 。TListBox 里 的 每 个 项 通过 ItemData. Bitmap 
属性 来 设置 图 标 ,如 图 14-100 所 示 。 从 图 14-98 中 也 可 以 看 到 添加 图 标 后 的 图 标 效果 。 此 
外 ,在 ItemData. Detail 属性 中 指定 附加 文本 ,然后 通过 StyleLookup 属性 来 选择 详细 文本 的 
位 置 。 

前 几 个 步骤 是 利用 开发 环境 静态 编辑 的 交互 方式 创建 ListBox 所 包含 的 列表 项 。 而 利用 
代码 来 添加 列表 项 给 ListBox, 只 要 简单 调用 Items. Add 方法 : 


ListBox1. Items. Add( 'Text to add'); 
如 果 用 户 想 要 创建 不 只 一 个 简单 项 ,或 是 控件 其 他 属性 ,可 以 先 创 建 一 个 项 目 实例 ,然后 


将 它 添加 到 ListBox 中 。 
【 例 14.2】 以 下 代码 运行 后 ,将 添加 如 图 14-101 所 示 的 列表 项 目 到 ListBoxl 中 。 


常州 大 学 通讯 录 


| 
履 objectInspector Qe 


引 
[UistBoxItem1 TUstgoxtiem = 
JPropertes | Events | 
ElitemData (TUListBoxTtemData) = ~ 
Accessory aDetail 
» Bitmap IH Gitmap) 可 
Detall Create New TBitmapAnimation 
JText Create New TBitmapListAnimation 
图 |uvesndnos | Edit... 


图 |UveBindngs Designer [LveBindings Designer 从 
固 False 


Margins (TBounds) | 


图 14-100 ”编辑 Bitmap 选项 14-101 案例 运行 外 观 


Procedure TForm]. FormCreate( Sender: TObject); 
var 
c: Char; 
i: Integer; 
Buffer: String; 
ListBoxItem : TListBoxItem; 
ListBoxGroupHeader : TListBoxGroupHeader; 


begin 
ListBoxl. BeginUpdate; 
forc:= 'a'to 'z'do 
begin 


ListBoxGroupHeader : = TListBoxGroupHeader. Create(ListBoxl) 1; 
ListBoxGroupHeader. Text : = UpperCase(c); 

ListBoxl. AddObject (ListBoxGroupHeader); 

for i:= 1t03g 

begin 
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Buffer := StringOfChar(c, i); 
ListBoxItem : = TListBoxItem. Create(ListBoxl1); 
ListBoxItem. Text : = Buffer; 
ListBoxItem. ItemData. Accessory : = TListBoxItemData.TAccessory(i); 
ListBox1. AddObject (ListBoxItem); 
end; 


ListBox1. EndUpdate; 
end; 
最 后 ,为 ListBox 添加 一 个 搜索 框 。 使 用 搜索 框 ,用 户 可 以 很 便利 地 在 列表 中 定位 到 要 找 
的 选项 ,如 图 14-102 所 示 。 
要 在 ListBox 组 件 中 添加 搜索 框 ,只 需 右 击 TListBox 组 件 , 从 弹出 菜单 中 选择 Add Item 
|TSearchBox 选项 即 可 ,如 图 14-103 所 示 。 


A| s, D, [| 加 H 日 IK 回 Ttems Editor.. 


Add ltem TListBoxltem 
zfx[c[vieln[m i a THetrapertll Insanem 
Sid » TlistBoxHeader 


Bind Visually.. Tees 本 
.?123 Space return istBoxGroupHe: 
小 | Eoson "| TUistBoxGroupFooter 


14-102 ”添加 搜索 框 后 的 外 观 图 14-103 ”添加 搜索 框 的 操作 方法 


与 ListBox 和 CombBox 不 同 的 是 ,Tab 组 件 是 一 个 容器 ,用 来 包含 若干 个 Tab 页 面 ,每 
个 Tab 页 可 以 包含 任意 的 用 户 界面 元 素 。 对 于 每 个 Tab 页 ,用 户 可 以 指定 预先 定义 好 的 图 
片 , 也 可 以 自 定义 图 标 , 以 及 Text 标签 。 当 然 用 户 也 可 以 在 控件 的 顶部 或 底部 放置 Tab, 如 
图 14-104 所 示 。 

在 APP 中 创建 Tab 页 ,并 设置 系统 默认 图 标的 操作 步骤 如 下 。 

(1) 创建 一 个 HD FireMonkey Mobile Application ,选择 File| New | FireMonkeyMobile 
Application-Delphi| Blank Application 命令 。 

(2) 从 Tool Palette 中 选择 TTabControl, 如 图 14-105 所 示 。 

(3) 在 拖 放 TabControl 到 窗 体 之 后 ,一 个 空 的 TabControl 会 显示 在 新 建 窗 体 上 ,如 
图 14-106 所 示 。 

(4) 通常 ,APP 中 的 TabControl 都 是 全 屏 显示 在 页 面 上 的 ,所 以 需要 更 改 TabControl 的 
默认 对 齐 方式 ,更 改 TabControl 的 Align 属性 为 alClient, 如 图 14-107 所 示 。 
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4:58 PM 


下 


Tablteme 


$4 Tool Palette 四 
|R|Q tbd 

Common Controls 

EE TTabControl 


图 14-104 Tab 组 件 使 用 案例 的 外 观 图 14-105 搜索 Tab 组 件 


国 Tabcontro 
国 ToolBarl 
国 Labell 
9 国 Tabltem2 
昌国 Tabltem3 
国 Tabrem4 
轩 Lst8ox4 


#3 object Inspector 3 
TabControl2 T Ee 


Properties| Events 
HelpType htContext ^ 
HitTest True 

习 |LveBindings LiveBindings 

LveBindings Desid LveBindings Designer 上 习 
Locked Fake 

下 Margns (TBounds) 

»|Name TabControla| = 


图 14-106 放置 Tab 到 界面 上 的 显示 外 观 


(5) 右 击 TabControl, 从 弹出 菜单 中 选择 Items Editor 命令 ,如 图 14-108 所 示 。 


{3 Object Inspector 了 
TabControll TTabCont EE) 
Properties| Events 
习 | Ac ab Tabltem2 全 
Aion alcCiient =]E 
Anchors alBottom 
ClpChildren alCenter 
Cipparent tems Editor.. NR 
Cursor wi Add hem » 
DesignVsble 。 aiFiLeA 电 襄 
Rems Editor... Bind alFtRight 
alHorizontal Control » 
alHorzCenter Bind Visually... 
Alinn ap 全 


图 14-107 选择 对 齐 方式 14-108 ”编辑 项 目 
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(6) 根据 需要 单 击 若干 次 Add Item 按钮 ,创建 TabItem 的 实例 ,如 图 14-109 所 示 。 关 闭 
窗口 。 


r 
(8) ltems Designer 呈 | 辐 
TTabitem 
Add Rem T wee 


图 14-109 添加 项 目 


(7) 选择 系统 自 带 的 Tab 图 标 。 如 图 14-109 所 示 , 依次 选择 4 个 Tabltem, 修改 
TabItem1l 一 TabItem4 的 StyleLookup 属性 为 tabitemfavorites、tabitemcontacts、tabitemfeatured 、 
tabitembookmarks, 如 图 14-11 所 示 。 


记 Structure 3 号 Ios_16_03u 
弛 Z | 会 生 
日 国 Forml 
加 Tabcontroll 
3 加 Tablteml 
国 Tabcontro2 
昌国 Tabltem5 
加 辐 Tabltem6 
图 Tabltem7 
四 回 Tabltem8 10:57 AM 一 
刁 转 ToolBarl 
ass i 
9 国 Tabltem3 
9 国 Tabltem4 


上 Object Inspector 5 
Tabltem1 TTablrer 国 


Properties| Events 

paddng (TBounds) 要 
PopupMenu 

9 postion (TPosition) 
RotationAngle 0 

引 RotationCenter (TPosition) 

四 Saale (TPosition) 

田 | StyledSettings [ssFamiy,ssSize,ssStyle| 

»|styleLookup “ETETETTTS[] = 
StyleName 
TabOrder 0 
Tag 0 


Eni 2 


Bind Visualy... 


StyleLookup 


图 14-110 设置 StyleLookup 属性 


(8) 要 选中 相应 的 页 面 ,只 需要 在 窗 体 设计 器 上 单 击 该 Tab 的 图 标 , 或 在 对 象 观察 器 里 选 
择 外 部 TabControl 的 ActiveTab 属性 的 TabItem 列表 项 ,如 图 14-111 所 示 。 选 中 后 ,可 在 
Tab 页 放置 任何 控件 。 

(9) 为 了 改变 Tab 的 位 置 ,选择 TabControl 组 件 的 TabPosition 属性 。 每 个 Tab ,用 户 都 
可 以 在 对 象 观察 器 中 选择 如 图 14-112 所 示 的 任意 值 。 
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二 object Inspector 口 图 | 
|Tabcontroll Tra 图 
Taborder 0 
Properties | Events » Tabposition tpTop 回 
本 Activerab Tabltem1 [EE] Tag tpBottom 
Aion Tabltemi Touch tpDots 
国 |[Anchors Tabltem2 国 |ToudhTargetExpanstpNone 
Cipchidren Tebltem3 2 Visble 
Clpparent False 一 width 320 
14-111 选择 活动 页 面 14-112 改变 放置 Tab 的 位 置 


TabPosition 共有 4 种 属性 : tpTop 为 置顶 ; tpBottom 为 置 底 ; tpDots 会 在 底部 中 间 位 置 
显示 若干 小 圆 点 ; 而 tpNone 为 不 显示 (此 种 方式 只 能 通过 代码 方式 或 者 Action 动作 才能 切 
换 各 个 TabControl 中 的 页 面 ) 。 

使 用 用 户 自 定义 的 Tab 图 标的 操作 步骤 如 下 。 

用 户 可 以 通过 下 面 这 些 步骤 来 给 Tab 页 使 用 自 定 义 图 标 和 自 定义 标题 。 默 认 外 观 如 
图 14-113 所 示 。 

(1) 放置 一 个 TabControl, 设 置 它 的 对 齐 (Align 属性 ) ,然后 为 它 创 建 几 个 Tab 页 ,如 
图 14-114 所 示 。 


一 Ss 上 


图 14-113 ”默认 外 观 图 14-114 创建 自 定义 图 标 时 的 外 观 ( 为 刷新 ) 
(2) 选择 一 个 Tab, 然 后 在 Object Inspector 中 , 单 击 TTabItem 中 CustomIcon 属性 中 的 
Bitmap 字段 的 省 略 号 按钮 ,如 图 14-115 所 示 。 
(3) 从 下 拉 菜 单 中 选择 Edit, 如 图 14-116 所 示 。 


#3 object Inspector 3713) 十 Object Inspector 


TabItem1 ” TabItem1 TTabit = 


JProperties | = > JProperties | Events 
Cursor GDefault - Cursor aDefault 人 
日 Customicon (Icon) 日 customicon (Icon) 
» [Bitmap 5 中 »| ma 加 
BitmapHiRes (Bitmap) = IBi| Create New TBitmapAnimation E 
|pesgnvisble 司 True 是 Create New TBitmapListAnimation 
|DragMode dmManual Drad Edit.,. 
[Enabled 国 True En Te 
图 14-115 编辑 Bitmap 属性 图 14-116 列表 中 的 编辑 选择 


(4) 在 Bitmap Editor 中 , 单 击 Load 按钮 ,选择 一 个 PNG 文件 ,如 图 14-117 所 示 。 普 通 
方案 建议 尺寸 为 30 X30, 高 级 方案 建议 60X60( 用 户 在 下 一 步 用 设置 BitmapHiRes 图 标 ) 。 

(5) 关闭 Bitmap Editor, 在 Object Inspector 中 选中 用 户 想 要 使 用 的 CustomIcon 的 
BitmapHiRes(High-Resolution) 字 段 。 

(6) 在 Object Inspector 中 将 StyleLookup 属性 设置 为 tabitemcustom, 如 图 14-118 所 示 。 

(7) 在 Text 属性 里 ,更 改 Tab 上 的 Text, 如 图 14-119 所 示 。 

所 使 用 的 自 定义 图 片 都 放 在 Delphi XE 安装 路 径 下 ,本 教材 的 图 片 存放 路 径 为 : C:\ 
Programs Files\Embarcadero\RAD Studio\12. 0\Images\GlyFX。 该 目录 中 有 一 个 glyFX. 
zip 压缩 文件 ,需要 用 户 自行 解压 到 该 文件 夹 中 才能 使 用 内 部 资源 。 
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14-117 ”Bitmap Editor 中 加 载 图 片 


| rabrteml TTabitem 


Propertes|Events| Tabrteml Tabrtem ”| 
RotationAnge [Ho < JProperties | Events L 
DRotationCenter |(TPosition) TabOrder = 
图 scale (TPosition) [Tag 加 
图 StyledSettings [ssFamily,ssSize,ssStyle » Text | 
» styleLookup tabitemcuston| eta | ome a 
styleName lrouch ie 
Taborder 0 


|TouchTargetExpans| (TBounds) 门 


图 14-118 StyleLookup 属性 图 14-119 设置 Text 属性 


在 定义 好 一 个 图 标 之 后 ,FireMonkey 框架 根据 给 定 的 . png 文件 生成 一 个 选中 的 图 片 和 
一 个 未 选中 的 图 片 。 这 个 转换 由 Bitmap Data 的 Alpha-Channel 完成 。 由 图 14-120 可 见 ,从 
左 到 右 的 三 个 图 标 依次 是 原始 图 片 、 选 中 时 的 图 片 外 观 、 未 选中 该 页 时 的 图 片 外 观 。 


” 匡 蛋 本 于 


14-120 ” 自 定义 图 标 编辑 前 后 的 外 观 对 比 


每 个 Tab 页 可 以 包含 任意 数量 的 控件 ,包括 男 一 个 TabControl。 用 户 可 以 在 对 象 观 察 器 
上 方 的 Structure View 中 方便 地 查看 并 管理 不 同 的 Tab 页 。 

本 案例 在 Structure View 中 的 结构 如 图 14-121 所 示 。 

在 运行 时 切换 Tab 分 页 共有 以 下 三 种 方式 。 

方式 一 : 通过 用 户 单 击 Tab 切换 。 

如 果 Tab 显示 ( 当 TabPosition 设置 成 不 是 tpNone) ,用 户 可 以 简单 地 单 击 Tab 来 在 分 页 
之 间 进 行 切换 。 

方式 二 : 通过 Action 和 ActionList 切换 。 

一 个 Action 动作 绑 定 一 个 或 多 个 用 户 界 面 元 素 , 例 如 菜单 项 .工具 条 按钮 、 控 件 等 。 
Action 提供 两 个 功能 : 提供 用 户 界面 元 素 的 通用 属性 ,例如 控件 是 否 可 用 或 勾 选 框 是 否 选 中 ; 
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图 14-121 案例 在 Structure View 中 结构 一 览 


响应 控件 触发 ,例如 , 当 应 用 程序 用 户 单 击 按钮 或 选中 了 菜单 项 。 

以 下 是 让 用 户 通过 单 击 按钮 来 移动 到 不 同 分 页 的 实现 步骤 。 

(1) 在 FireMonkey Mobile 应 用 程序 中 ,放置 一 个 TabControl, 在 上 面 放 置 一 些 Tab 项 
(Tablteml ,TablItem2 ,TablItem3) 。 

(2) 从 Tool Palette 中 ,添加 一 个 TButton 到 窗 体 上 ,然后 添加 一 个 ActionList 组 件 , 如 
图 14-122 所 示 。 

(3) 在 对 象 观察 器 中 选择 Button 组 件 ,然后 从 下 拉 菜 单 中 选择 Action | New Standard 
Action| Tab|TChangeTabAction, 如 图 14-123 所 示 。 在 用 户 单 击 这 个 按钮 时 ,用 户 刚才 定义 
的 Action 就 会 被 执行 (Tab 分 页 会 切换 ) 。 
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Buttonl TButton 四 

[Properties| Events 

?|Action 


Algn New Action 于 


到 Anchors [New Sndard Acton (No Categony) 


,四 

AutoTransbte WTrue Edit » 

Cancel Fakse nListl 
CanFocus 于 Tue Window a 
CanparentFocus ”加 jake File » 
CipChidren Fake Tab » 
VE View 
Phone Dialer » 
ua) 全 “ on Medialibray 
Actionlistl LiveBindings » 

图 14-122 添加 ActionList 组 件 图 14-123 选择 Action 类 型 


(4) 在 Structure View 中 选择 ChangeTabAction1, 然 后 在 对 象 观 察 器 中 选择 TabItem2 
作为 Tab 属性 的 值 ,这 个 Action 就 可 以 将 当前 分 页 切换 到 Tabltem2, 如 图 14-124 所 示 。 
(5) ChangeTabAction 也 支持 Slide 动态 效果 来 表现 分 页 之 间 的 切换 。 为 了 使 用 它 ,设置 
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Transition 属性 为 ttSlide, 如 图 14-125 所 示 。 


ChangeTabAction1 TChangeTabAction 


] properties| Events 
HelbType htKeyword 到 
和 -一 一 一 Hint 
2 9 LveBindngs Designe LiveBindings Designer 
日 国 Forml Name ChangeTabAction1 
日 晶 ActionListl SecondaryShortCuts (TOustomShortCutList) 
日 翁 (No Category) ShortCut (None) 
SSE Tab E 
日 图 Tabcontroll Tag 0 上 
捍 回 Tabreml > Transition ttslide 国 
加 Buttonl Visble ttNone 医 | 
白 回 ImageContro5 ttsde 有 
图 14-124 Structure View 中 的 Action 14-125 选择 过 渡 效 果 


方式 三 : 代码 方式 切换 。 
可 以 使 用 下 面 三 种 方法 在 代码 中 切换 当前 的 分 页 。 
(1) 将 TTabItem 的 实例 赋 给 ActiveTab 属性 : 


TabControl1. ActiveTab : = TabItem2; 


(2) 更 改 TabIndex 的 值 。TabIndex 属性 是 0 开始 的 下 标 值 (用 户 可 以 使 用 0 一 
TabControll. TabCount 一 1 之 间 的 值 ) 。 


TabControll. TabIndex := 1; 
(3) 如 果 定 义 了 ChangeTabAction, 用 户 也 可 以 从 代码 里 执行 这 个 Action。 


ChangeTabAction]1. Tab : = TabItem2; 

ChangeTabRction1. Execute; 

从 如 图 14-126 所 示 的 例子 中 可 以 看 到 ,TabControll 的 Tablteml 内 部 的 上 方 , 放 置 了 一 
个 包含 4 个 TablItem 的 TabControl2 ,在 TabIteml 下 方 的 4 个 按钮 中 定义 了 4 个 Action, 功 
能 为 单 击 该 按钮 时 触发 显示 对 应 的 4 张 图 ; 这 4 个 ImageControl 放置 在 Tabltem5 一 
TabItem8 中 ,结构 也 可 以 从 图 中 观察 到 。 


人 


Mas 一 书馆 一 卡通 M4 国 书 馆 一 卡通 


图 14-126 本 案例 最 终 外 观 
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另外 ,此 种 切换 方式 是 运行 时 通过 按钮 单 击 的 手动 切换 方式 ,如 果 要 实现 固定 时 间 自 动 切 
换 到 下 一 张 图 ,可 以 新 建 一 个 Timer 计时 器 组 件 , 再 通过 代码 方式 实现 该 功能 。 


14.3 ”在 iOS APP 中 使 用 iOS 设备 功能 


14.3.1 在 iOS APP 中 使 用 摄像 头 和 分 享 照片 


在 iOS APP 中 使 用 摄像 头 的 功能 由 Actions 提供 ,用 户 只 需要 为 每 个 任务 编写 简单 的 代 

码 即 可 。 
-个 Action 绑 定 一 个 或 多 个 用 户 界面 元 素 , 例 如 菜单 项 、 工 具 栏 按钮 ,以 及 其 他 控件 。 

Actions 提供 以 下 两 种 用 途 。 

(1) Action 可 以 表示 用 户 界面 元 素 的 通用 属性 。 例 如 ,控件 是 否 启用 ,或 者 CheckBox 是 
否 色 选 。 

(2) Action 可 以 响应 控件 触发 的 事件 。 例 如 , 当 用 户 单 击 一 个 按钮 或 是 选择 一 个 菜单 项 。 

1. 建立 基本 的 UL, 并 将 要 支持 的 功能 Action 赋 给 UI 元 素 

在 窗 体 上 新 建 一 个 Toolbar, 上 面 放 置 4 个 按钮 ， 
左 起 按钮 1 实现 返回 调用 主 界面 的 功能 (此 处 代码 略 [Dj 和 白 
去 ); 按钮 2 实现 调用 摄像 头 拍 照 的 功能 ; 按钮 3 实现 和 | 
访问 照片 库 的 功能 ,按钮 4 实现 分 享 照片 的 功能 。 

4 个 TButton 按钮 使 用 不 同 的 图 标 ,为 它们 分 别 设 
置 StyleLookup 属性 ,使 外 观 如 图 14-127 所 示 。 最 后 a 
在 界面 上 放置 一 个 TActionList 组 件 。 

2. 使 用 iOS Device 的 摄像 头 拍 照 

可 以 定义 一 个 Action 来 使 用 iOS Device 上 的 摄像 
头 拍照 ,步骤 如 下 。 

(1) 在 当前 窗 体 上 ,选择 用 来 拍照 的 按钮 Button2 。 

(2) 在 对 象 观察 器 中 ,从 Action 属性 的 下 拉 列 表 中 选择 New Standard Action | Media 
Library| TTakePhotoFromCameraAction, 如 图 14-128 所 示 。 


图 14-127 案例 中 界面 上 的 各 个 组 件 


回 Button3 
图 Button4 


履 Object Inspector 四 
Button2 TButton 


加 


Properties| Events 


3Action tofromCameraAction1[™] 
New Action 


ActionListl 


ee (No Category) » 
ShowShareSheetAction1 2 
TakephotoFromCameraAction1 Window ; 
TakephotoFromLibraryAction1 File » 
3nd Visualy... Tab » 
View 上 | 
tion | Phone Dialer 上 | 
Media Library » TTakePhotoFromLibraryAction 
all shown LiveBindings » TTakePhotoFromCameraAction 
届 Messaoes TShowShareSheetAction 


图 14-128 选择 Action 的 类 型 
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(3) 在 Events 页 ,展开 Action 节点 ,然后 双击 OnDidFinishTaking 事件 ,如 图 14-129 


所 示 。 
(4) 添加 如 下 代码 到 OnDidFinishTaking 事件 处 理 过 程 。 
Procedure TForm4. TakePhotoFromCameraActionlDidFinishTaking (Image: TBitmap) 7 
begin 
imagel.Bitmap.Assign (Image); 
end; 


该 代码 将 iOS 设备 的 摄像 头 拍 下 的 照片 赋 给 TImage 组 件 的 Bitmap 属性 ,拍摄 界面 如 
图 14-130 所 示 。 


Object Inspector [Lal] 

Button2 TButton “ 国 
Properties [Events 

日 |Action TakephotoFromCameraAction1 四 
田 |LiveBindings LiveBindings 


OnCanActionExec 
OnDidCancelTaking 

OnDidFinshTaking |TakePhotoFromCameraAction1DidFinishTaking 
OnUpdate 

[LveBndings LiveBindings 


mnhAnnkvchunt annin 


图 14-129 Events 页 面 需 进行 的 操作 图 14-130 运行 时 加 载 图 片 后 的 外 观 


图 


3. 使 用 iOS 设备 照片 库 中 的 照片 
可 以 使 用 如 下 步骤 定义 一 个 Action 来 使 用 照片 库 中 的 照片 ,如 图 14-131 所 示 。 
(1) 在 Form Designer 上 ,选择 一 个 用 户 想 要 用 来 选择 照片 的 按钮 。 
(2) 在 对 象 观 察 器 中 , 单 击 Action 属性 的 下 拉 列 表 , 选 择 New Standard Action| Media 
Library| TTakePhotoFromLibraryAction。 
(3) 在 Events 页 ,展开 Action 节点 ,然后 双击 OnDidFinishTaking 事件 。 
(4) 在 OnDidFinishTaking 事件 处 理 程序 中 添加 如 下 代码 。 
Procedure TForm4.TakePhotoFromLibraryActionlDidFinishTaking (Image: TBitmap); 
begin 


imagel .Bitmap.Assign (Image); 
end; 


这 段 代码 将 照片 库 中 的 照片 赋 给 TImage 组 件 的 Bitmap 属性 。 
4. 在 iOS APP 中 共享 或 打印 照片 
如 图 14-132 所 示 ,在 iOS APP 中 ,用 户 可 以 共享 照片 到 社交 应 用 ,也 可 以 发 送 照片 给 打 


印 机 、 使 用 照片 作为 邮件 附件 、 赋 给 联系 人 等 。 
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AirDrop。 轻 按 来 打开 无 线 局 域 网 和 蓝牙 
以 通过 AirDrop 共享 。 


邮件 iCloud 照片 共 
享 


册 《)》 和 四 


个 人 收藏 
2 存 企图 像 ”指定 给 联系 人 拷贝 打印 
图 14-131 调用 iOS 照片 库 图 14-132 共享 界面 弹出 信息 


这 种 多 共享 服务 被 称 为 Share Sheet Functionality, 可 以 按照 以 下 步骤 来 实现 这 个 功能 。 

(1) 在 Form Designer 上 ,选择 一 个 用 来 共享 照片 的 按钮 。 

(2) 在 对 象 观察 器 中 ,在 Action 属性 中 单 击 下 拉 列 表 , 然 后 选择 New Standard Action | 
Media Library| TShowShareSheetAction。 

(3) 在 Events 页 ,展开 Action 节点 ,然后 双击 OnBeforeExecute 事件 。 

(4) 在 OnBeforeExecute 事件 处 理 过 程 中 添加 如 下 代码 。 


日 procedure TForm4.ShowShareSheetActionlBeforeExecute (Sender: TObject); 
begin 


showsharesheetactionl1.Bitmap.Assign (imagel .Bitmap); 
Lend; 


这 段 代 码 将 TImage 组件 的 照片 赋 给 Share Sheet Functionality 共享 服务 。 
用 户 在 服务 列表 中 选择 iCloud 照片 共享 后 ,可 以 使 用 组 件 来 上 传 照片 到 iCloud 照片 共享 
上 ,如 图 14-133 所 示 。 


取消 


演示 Delphi XE 拍照 并 共识 


14-133 ”iCloud 照片 共享 
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14.3.2 利用 iOS 通知 中 心 实现 推送 功能 

当 用 户 在 他 们 的 iOS 设备 上 为 某 些 应 用 设置 了 通知 后 ,通知 可 以 以 4 种 基本 的 方式 传递 
给 用 户 。 

(1) 在 应 用 图 标 上 显示 数字 标记 ,如 图 14-134 所 示 。 


EL 


图 14-134 ”数字 标记 外 观 
(2) 顶端 自动 弹出 通知 横幅 ,如 图 14-135 所 示 。 


图 Project1 
Delphi for iOS is here! 


图 14-135 ”通知 横幅 外 观 
(3) 通知 提醒 框 ,如 图 14-136 所 示 。 


Project1 
Delphi for iOS is herel! 


Launch 


图 14-136 通知 提醒 框 外 观 


(4) 下 拉 通 知 中 心 的 通知 列表 ,如 图 14-137 所 示 。 
【 例 14.3】 在 如 图 14-138 所 示 界 面 的 7 个 按钮 中 ,实现 iOS 通知 中 心 的 各 种 功能 。 
其 属性 设置 如 表 14-1 所 示 。 
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Ed 


Project1 
Project1 


Delphi foriOS is here! 


图 14-137 通知 列表 外 观 


NotificationCenterl 


图 14-138 本 例 的 主要 运行 界面 


表 14-1 属性 设置 
按钮 名 称 按钮 标题 实现 的 功能 
Buttonl 开启 通知 服务 访问 通知 服务 
Button2 设置 数字 标记 在 代码 中 设置 图 标 数字 标记 
Button3 重 置 数字 标记 重新 设置 图 标 标记 的 数字 
Button4 调度 通知 调度 通知 
Button5 取消 通知 更 新 或 取消 一 个 已 经 调度 过 的 通知 消息 
Button6 立即 显示 通知 立即 显示 通知 消息 
Button7 添加 操作 到 通知 提醒 框 添加 操作 到 通知 提醒 框 


(1) Buttonl 的 功能 : 开启 访问 通知 服务 ,允许 使 用 图 标 数 字 标 记 。 

通知 服务 接口 (IFMXNotificationCenter) 定 义 为 一 个 FireMonkey Platform Service。 
要 访问 通知 服务 ,需要 完成 以 下 两 个 步骤 。 

@O 在 当前 单元 的 Uses 子 句 中 添加 : 


uses 


FMX. Platform, FMX. Notification; 
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@ 在 Buttonl 的 Click 事件 中 添加 如 下 代码 ,来 运行 一 个 FireMonkey Platform Services 
的 查询 。 


procedure TForm1. SpeedButton1Click(Sender: TObject); 
var 
NotificationService: IFMXNotificationCenter; 
begin 
if TPlatformServices. Current. SupportsPlatformService( IFMXNotificationCenter) then 
NotificationService : = TPlatformServices. Current. GetPlatformService 
(IFMXNotificationCenter) as IFMXNotificationCenter; 
end; 


IFMXNotificationCenter 接口 提供 了 使 用 图 标 数 字 标 记 来 作为 通知 的 基本 服务 。 
(2) Button2 的 功能 : 设置 图 标 数 字 标 记 。 
IFMXNotificationCenter 有 SetIconBadgeNumber 方法 来 定义 图 标 标记 的 数字 。 


procedure TForm]. SerIconBadgeNumber; 
var 
NotificationService: IFMXNotificationCenter; 

begin 

if TPlatformServices. Current. SupportsPlatformService( IFMXNotificationCenter) then 

NotificationService TPlatformServices. Current. GetPlatformService 

(IFMXNotificationCenter) as IFMXNotificationCenter; 

if Assigned(NotificationService) then 

NotificationService. SetIconBadgeNumber( 6); 

end; 


然后 在 Button2 的 Click 事件 中 调用 SerIconBadgeNumber 方法 。 


Procedure TForm]. Button2Click(Sender: TObject); 
begin 

Forml. SerIconBadgeNumber; 
end; 


在 用 户 设置 图 标 标记 的 数字 为 6 之 后 ,用 户 可 以 在 iOS 主屏 上 看 得 到 而 . 


(3) Button3 的 功能 : 重 置 图 标 标记 的 数字 。 
重新 设置 图 标 标 记 的 数字 应 使 用 ResetIconBadgeNumber 方法 。 


Procedure TForm1. ResetIconBadgeNumber; 
var 

NotificationService: IFMXNotificationCenter; 
begin 

if TPlatformServices. Current. SupportsPlatformService( IFMXNotificationCenter) then 

NotificationService : Dn TPlatformServices. Current. GetPlatformService 

(IFMXNotificationCenter) as IFMXNotificationCenter; 

if Assigned(NotificationService) then 

NotificationService. ResetIconBadgeNumber; 

end; 


然后 在 Button3 的 Click 事件 中 调用 ResetIconBadgeNumber 方法 。 
procedure TForm1. Button3Click(Sender: TObject); 
begin 
Form1. ResetIconBadgeNumber; 
end; 
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(4) Button4 的 功能 : 调度 通知 。 
用 户 可 以 使 用 ScheduleNotification 方法 来 调度 通知 消息 。 
要 显示 一 个 通知 消息 ,用 户 需 要 创建 一 个 TNofication 类 的 实例 ,然后 定义 Name( 标 识 


符 ) 和 Message。 


procedure TForm1l. ScheduleNotification'; 
Var 
NotificationService: IFMXNotificationCenter; 
Notification: TNotification; 
begin 
if TPlatformServices. Current. SupportsPlatformService( IFMXNotificationCenter) then 
NotificationService ; = TPlatformServices. Current. GetPlatformService 
(IFMXNotificationCenter) as IFMXNotificationCenter; 
if Assigned(NotificationService) then 


begin 
Notification : = TNotification.Create; 
try 
Notification. Name : = 'MyNotification'; 


Notification. AlertBody : = 'Delphi for i0S is here! '; 
Notification. FireDate : = Now + EncodeTime(0,0,10,0); 
NotificationService. ScheduleNotification(Notification); 

finally 
Notification. Free; 

end; 

end 
end; 


然后 在 Button4 的 Click 事件 中 调用 ScheduleNotification 方法 。 

procedure TForml. Button4Click(Sender: TObject); 

an .ScheduleNotification; 

end; 

在 设置 通知 消息 之 后 ,可 以 在 iOS 主屏 项 部 看 到 如 图 14-139 所 示 通 知 消息 。 


图 Project1 
Delphi for iOS is here! 


图 14-139 通知 消息 
(5) Button5 的 功能 : 更 新 或 取消 一 个 已 经 调度 过 的 通知 消息 。 
每 个 调度 的 通知 消息 通过 TNotification 对 象 的 Name 属性 来 识别 。 
要 更 新 一 个 已 经 调度 过 的 通知 ,简单 地 再 调用 一 次 ScheduleNotification, 使 用 有 相同 名 


称 (Name 属性 ) 的 TNotification 实例 。 


要 取消 一 个 已 经 调度 过 的 通知 ,用 户 可 以 简单 地 调用 CancelNotification 方法 ,使 用 用 户 


上 次 使 用 的 标识 符 。 


Procedure TForml.CancelNotification; 
var 

NotificationService: IFMXNotificationCenter; 
begin 
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if TPlatformServices. Current. SupportsPlatformService(IFMXNotificationCenter) then 
NotificationService 8 = TPlatformServices. Current. GetPlatformService 
(IFMXNotificationCenter) as IFMXNotificationCenter; 
if Assigned(NotificationService) then 
NotificationService. CancelNotification( ‘MyNotification'); 
end; 


然后 在 Button5 的 Click 事件 中 调用 CancelNotification 方法 。 


procedure TForm1. Button5Click( Sender: TObject) ; 
begin 

Form1. CancelNotification; 
end; 


(6) Button6 的 功能 : 立即 显示 通知 消息 。 

可 以 使 用 PresentNotification 来 立即 显示 通知 消息 。 

要 显示 一 个 通知 消息 ,用 户 需要 创建 TNotification 类 的 一 个 实例 ,然后 定义 它 的 Name 
(标识 符 ) 和 Message。 


Procedure TForm1. PresentNotification; 
var 
NotificationService: IFMXNotificationCenter; 
Notification: TNotification; 
begin 
if TPlatformServices. Current. SupportsPlatformService( IFMXNotificationCenter) then 
NotificationService 3 = TPlatformServices. Current. GetPlatformService 
(IFMXNotificationCenter) as IFMXNotificationCenter; 
if Assigned(NotificationService) then 
begin 
Notification : = TNotification. Create; 
try 
Notification. Name : = 'MYNotification'; 
Notification. AlertBody : = 'Delphi 调度 通知 显示 成 功 ! '; 
Notification. ApplicationIconBadgeNumber := 6; 
NotificationService. PresentNotification(Notification); 
finally 
Notification. Free; 
end; 
end; 
end; 


然后 在 Button6 的 Click 事件 中 调用 PresentNotification 方法 。 


procedure TForm1. SpeedButton6Click( Sender: TObject); 
begin 

Form1. PresentNotification; 
end; 


下 拉 通 知 列表 信息 如 图 14-140 所 示 。 
(7) Button7 的 功能 : 添加 操作 到 通知 提醒 框 。 


IOS 16 5 


添加 一 个 操作 按钮 来 自 定义 一 个 提醒 框 。 ss 


要 自 定义 一 个 提醒 操作 ,用 户 需要 设置 AlterAction 
属性 的 操作 ,然后 设置 HasAction 属性 为 True, 如 下 。 图 14.140 下 拉 通 知 列表 的 信息 
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Procedure TForm1. Button7C1lick(Sender: TObject); 
var 
MyNotification:TNotification; 
NotificationService: IFMXNotificationCenter; 


begin 
try 
MyNotification. Name : = 'MyNotification'; 
MyNotification. AlertBody : = 'Delphi 调度 通知 显示 成 功 ! '; 
MyNotification. AlertAction := 'Code Now! '; 
MyNotification. HasAction := True; 


MyNotification. FireDate : = Now + EncodeTime(0,0,10,0); 
NotificationService. ScheduleNotification(MyNotification); 


finally 
MyNotification. Free; 
end; 
end; 
运行 后 单 击 Button7 按钮 ,10s 后 即使 处 于 锁 屏 状态 ,仍然 会 弹出 通知 提醒 框 ,如 图 14-141 
所 示 。 


(8) 手动 修改 通知 横幅 或 通知 提醒 框 的 方法 。 
要 使 用 通知 提醒 框 来 代替 通知 横幅 ,需要 通过 消息 中 心 配置 页 来 更 改 通 知 方式 ,如 图 14-142 
所 示 。 


Fangji 下 午 3:33 -3 
通知 Le, S 16 5 
提醒 样式 
oo 
国 


作 才 能 继续 提醒 。 
横幅 会 出 现在 屏幕 项 部 并 自动 消失 。 


应 用 程序 图 标 标记 @x,) 


声音 人 区 ) 


在 锁定 的 屏幕 显示 @x) 


图 14-141 锁 屏 界 面 弹出 显示 的 信息 图 14-142 消息 中 心 配置 页 


小 结 


开发 iOS APP 是 Delphi XE8 的 重要 功能 之 一 。 本 章 重点 介绍 了 如 何 使 Delphi XE8 和 
Xcode 4. 6. 2 配合 起 来 ,完成 Windows 环境 下 iOS APP 的 开发 工作 ,详细 介绍 了 在 Delphi XE 
IDE 中 iOS 基本 用 户 界 面 元 素 的 使 用 ,以 及 如 何 使 用 iOS 设备 的 拍照 分享 和 通知 推送 功能 。 
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关于 如 何在 iOS APP 中 访问 数据 库 ,请 参阅 本 教材 第 10 章 。 
习 题 


14-1 使 用 ToolBar、TabControl 和 ListBox 等 组 件 来 完成 如 图 14-143 所 示 的 UI 设计 。 
14-2 ”使 用 TabControl .Label 和 SpeedButton 等 组 件 来 完成 如 图 14-144 所 示 的 UI 设计 。 


TCR 一 3 
REPEAT MODES 
All V 
仿 ” 扫 一 扫 One 
各 摇 一 摇 None 
Default 
瑞 附近 的 人 
SHUFFLE MUSIC 
购物 Enable Shuffle Mode 
<》 游戏 
ADJUST VOLUME 
{ Ns © 
图 14-143 习题 14-1 14-144 习题 14-2 图 


14-3 ”使 用 ToolBar .SpeedButton 和 ListBox 等 组 件 来 完成 如 图 14-145 所 示 的 UI 设计 。 
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图 14-145 习题 14-3 图 


